21 lines
567 B
Plaintext
21 lines
567 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{}
|
|
$if fromMaybe False (gradingPassed grading points)
|
|
_{MsgPassed}
|
|
$else
|
|
_{MsgNotPassed}
|
|
$of PassBinary
|
|
$if fromMaybe False (gradingPassed grading points)
|
|
_{MsgPassed}
|
|
$else
|
|
_{MsgNotPassed}
|
|
$nothing
|
|
#{tickmarkS}
|