fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

fix(exam-bonus): fix rounding

Browse Source 
Fixes #672
This commit is contained in:
Gregor Kleen 2021-02-15 12:55:12 +01:00
parent 0fd7e86695
commit 854fa6b968
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Utils/Exam.hs
View File

@ -178,7 +178,7 @@ examResultBonus bonusRule bonusPossible bonusAchieved = case bonusRule of
passesPossible = getSum $ numSheetsPasses bonusPossible passesPossible = getSum $ numSheetsPasses bonusPossible
pointsPossible = getSum $ sumSheetsPoints bonusPossible - sumSheetsPassPoints 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 examGrade :: ( MonoFoldable mono
, Element mono ~ ExamResultPoints , Element mono ~ ExamResultPoints