fradrive/templates/widgets/rating.hamlet
2018-11-01 22:06:00 +01:00

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}