diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs
index 00d060934..3ed2a9d6a 100644
--- 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