From 16abcd2265136b63e28dbde252f44c94417d0aff Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Thu, 26 Sep 2019 16:50:30 +0200
Subject: [PATCH] fix: don't treat ExamBonusManual as override

---
 src/Handler/Exam/Users.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Handler/Exam/Users.hs b/src/Handler/Exam/Users.hs
index 121f430ff..966853113 100644
--- a/src/Handler/Exam/Users.hs
+++ b/src/Handler/Exam/Users.hs
@@ -690,6 +690,8 @@ postEUsersR tid ssh csh examn = do
                           -> return ()
                       _ | is _Nothing newBonus
                           -> return ()
+                      _ | Just ExamBonusManual{} <- examBonusRule
+                          -> yield $ ExamUserCsvSetBonusData False uid newBonus
                       Nothing
                         -> yield $ ExamUserCsvSetBonusData False uid newBonus
                       Just _