17 lines
397 B
Plaintext
17 lines
397 B
Plaintext
$# 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}
|