From 33691556abd40041a1707e3f902cfcf5d513342d Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Wed, 12 Aug 2020 11:58:15 +0200
Subject: [PATCH] fix(eecorrectr): use default time

---
 src/Handler/ExternalExam/Correct.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Handler/ExternalExam/Correct.hs b/src/Handler/ExternalExam/Correct.hs
index 401890fc9..a4472ea91 100644
--- a/src/Handler/ExternalExam/Correct.hs
+++ b/src/Handler/ExternalExam/Correct.hs
@@ -112,15 +112,16 @@ postEECorrectR tid ssh coursen examn = do
                 mOld = externalExamResultResult . entityVal <$> mOldResult
               in if
                 | ciqGrade' /= mOld -> do
+                  let resultTime = maybe now id externalExamDefaultTime  -- TODO add option to override default?
                   newResult <- upsert ExternalExamResult
                     { externalExamResultExam        = eeId
                     , externalExamResultUser        = uid
                     , externalExamResultResult      = resultGrade
-                    , externalExamResultTime        = now  -- TODO add and use utcTimeField
+                    , externalExamResultTime        = resultTime
                     , externalExamResultLastChanged = now
                     }
                     [ ExternalExamResultResult      =. resultGrade
-                    , ExternalExamResultTime        =. now  -- TODO add and use utcTimeField
+                    , ExternalExamResultTime        =. resultTime
                     , ExternalExamResultLastChanged =. now
                     ]
                   audit $ TransactionExternalExamResultEdit eeId uid