From f7136bca152ef455e6e6ce38c9cfaa39b213370d Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Sat, 8 Feb 2020 00:06:28 +0100
Subject: [PATCH] fix(exam-correct): reintroduce examResults

---
 src/Handler/Exam/Correct.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Exam/Correct.hs b/src/Handler/Exam/Correct.hs
index 364a8fcf7..38f862fa6 100644
--- a/src/Handler/Exam/Correct.hs
+++ b/src/Handler/Exam/Correct.hs
@@ -110,7 +110,7 @@ postECorrectR tid ssh csh examn = do
 
   CorrectInterfaceRequest{..} <- requireCheckJsonBody
 
-  let mayEditResults = False
+  mayEditResults <- hasWriteAccessTo $ CExamR tid ssh csh examn EUsersR
   
   response <- runDB . exceptT (<$ transactionUndo) return $ do
     Entity eId Exam{..} <- lift $ fetchExam tid ssh csh examn