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

fix(exams): provide bonus information in return of examBonusGrade

Browse Source
This commit is contained in:
Gregor Kleen 2020-03-16 10:33:54 +01:00
parent ec6a8ae463
commit 731231d5ea
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -224,8 +224,8 @@ examBonusGrade :: ( MonoFoldable sheets
=> Exam => Exam
-> Either Points sheets -- ^ `Points` retrieved from relevant `ExamBonus`, iff it exists -> Either Points sheets -- ^ `Points` retrieved from relevant `ExamBonus`, iff it exists
-> results -> results
-> Maybe ExamResultGrade -> (Maybe Points, Maybe ExamResultGrade)
examBonusGrade exam@Exam{..} bonusInp = examGrade exam mBonus examBonusGrade exam@Exam{..} bonusInp = (mBonus, ) . examGrade exam mBonus
where mBonus = asum where mBonus = asum
[ bonusInp ^? _Left [ bonusInp ^? _Left
, examResultBonus <$> examBonusRule <*> bonusPossible <*> bonusAchieved , examResultBonus <$> examBonusRule <*> bonusPossible <*> bonusAchieved