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

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