fix(exam-bonus): fix rounding

Fixes #672
2021-02-15 12:55:12 +01:00 · 2021-02-15 12:55:12 +01:00 · 854fa6b968
commit 854fa6b968
parent 0fd7e86695
1 changed files with 1 additions and 1 deletions
--- a/src/Handler/Utils/Exam.hs
+++ b/src/Handler/Utils/Exam.hs
@ -178,7 +178,7 @@ examResultBonus bonusRule bonusPossible bonusAchieved = case bonusRule of
            passesPossible = getSum $ numSheetsPasses bonusPossible
            pointsPossible = getSum $ sumSheetsPoints bonusPossible - sumSheetsPassPoints bonusPossible

-    roundToPoints' mult = (* mult) . roundToPoints . (/ toRational mult)
+    roundToPoints' mult = (* mult) . (realToFrac :: Uni -> Points) . roundToPoints . (/ toRational mult)

 examGrade :: ( MonoFoldable mono
             , Element mono ~ ExamResultPoints