22 lines
669 B
Plaintext
22 lines
669 B
Plaintext
$# 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}
|