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

$maybe points <- submissionRatingPoints
  $case sheetType
    $of Bonus{..}
      _{MsgAchievedOf points maxPoints}
    $of Normal{..}
      _{MsgAchievedOf points maxPoints}
    $of Pass{..}
      $if points >= passingPoints
        _{MsgPassed}
      $else
        _{MsgNotPassed}
    $of NotGraded
        #{show tickmark}