From 5125ddfeecc7e53f2fa4bcf960112e019d97063c Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Fri, 7 Feb 2020 09:51:50 +0100 Subject: [PATCH] chore(exam-correct): reintroduce examResults --- src/Handler/Exam/Correct.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/Handler/Exam/Correct.hs b/src/Handler/Exam/Correct.hs index daaa269a0..70996ab93 100644 --- a/src/Handler/Exam/Correct.hs +++ b/src/Handler/Exam/Correct.hs @@ -74,9 +74,7 @@ getECorrectR tid ssh csh examn = do examParts <- sortOn (view $ _entityVal . _examPartNumber) <$> selectList [ ExamPartExam ==. eId ] [ Asc ExamPartName ] return (exam, entityVal <$> examParts) - -- TODO submit exam results: work in progress - -- mayEditResults <- hasWriteAccessTo $ CExamR tid ssh csh examn EUsersR - let mayEditResults = False + mayEditResults <- hasWriteAccessTo $ CExamR tid ssh csh examn EUsersR let heading = prependCourseTitle tid ssh csh $ (mr . MsgExamCorrectHeading . CI.original) examName