$# Display Rating, expects
$#  submissionRatingPoints :: Maybe points

$maybe points <- submissionRatingPoints
  $maybe grading <- preview _grading sheetType
    $case grading
      $of Points{..}
        _{MsgAchievedOf points maxPoints}
      $of PassPoints{maxPoints}
        $if fromMaybe False (gradingPassed grading points)
          _{MsgPassed}, _{MsgAchievedOf points maxPoints}
        $else
          _{MsgNotPassed}, _{MsgAchievedOf points maxPoints}
      $of PassBinary
        $if fromMaybe False (gradingPassed grading points)
          _{MsgPassed}
        $else
          _{MsgNotPassed}
    , _{SheetTypeHeader sheetType}
  $nothing
    #{tickmarkS}
