From 5d9ca454fa5353009c33678e21d9f49bd45f6cc3 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Wed, 12 Aug 2020 14:31:55 +0200
Subject: [PATCH] fix(eecorrectr): encrypt eeid

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

diff --git a/src/CryptoID.hs b/src/CryptoID.hs
index 17b75dc85..a53d59d57 100644
--- a/src/CryptoID.hs
+++ b/src/CryptoID.hs
@@ -72,6 +72,7 @@ decCryptoIDs [ ''SubmissionId
              , ''CourseNewsId
              , ''CourseEventId
              , ''TutorialId
+             , ''ExternalExamId
              ]
 
 decCryptoIDKeySize
diff --git a/src/Handler/ExternalExam/Correct.hs b/src/Handler/ExternalExam/Correct.hs
index f7e3d9270..349dd6154 100644
--- a/src/Handler/ExternalExam/Correct.hs
+++ b/src/Handler/ExternalExam/Correct.hs
@@ -20,7 +20,7 @@ getEECorrectR :: TermId -> SchoolId -> CourseName -> ExamName -> Handler Html
 getEECorrectR tid ssh coursen examn = do
   MsgRenderer mr <- getMsgRenderer
 
-  Entity _eeId ExternalExam{..} <- runDB $ fetchExternalExam tid ssh coursen examn
+  Entity eeId ExternalExam{..} <- runDB $ fetchExternalExam tid ssh coursen examn
 
   mayEditResults <- hasWriteAccessTo $ EExamR tid ssh coursen examn EEUsersR
 
@@ -38,10 +38,7 @@ getEECorrectR tid ssh coursen examn = do
 
     examGradingMode = externalExamGradingMode
 
-    examCorrectIdent :: Text
-    examCorrectIdent = "TODO"  -- TODO fix below
-
-  -- examCorrectIdent <- encrypt eeId :: Handler (CryptoID UUID ExternalExamId)
+  examCorrectIdent <- encrypt eeId :: Handler CryptoUUIDExternalExam
 
   siteLayoutMsg heading $ do
     setTitleI heading