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

2020-03-16 10:33:54 +01:00 · 2020-03-16 10:33:54 +01:00 · 731231d5ea
commit 731231d5ea
parent ec6a8ae463
1 changed files with 2 additions and 2 deletions
--- a/src/Handler/Utils/Exam.hs
+++ b/src/Handler/Utils/Exam.hs
@ -224,8 +224,8 @@ examBonusGrade :: ( MonoFoldable sheets
               => Exam
               -> Either Points sheets -- ^ `Points` retrieved from relevant `ExamBonus`, iff it exists
               -> results
-               -> Maybe ExamResultGrade
-examBonusGrade exam@Exam{..} bonusInp = examGrade exam mBonus
+               -> (Maybe Points, Maybe ExamResultGrade)
+examBonusGrade exam@Exam{..} bonusInp = (mBonus, ) . examGrade exam mBonus
  where mBonus = asum
          [ bonusInp ^? _Left
          , examResultBonus <$> examBonusRule <*> bonusPossible <*> bonusAchieved