fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(eecorrectr): encrypt eeid

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-12 14:31:55 +02:00
parent 4515987446
commit 5d9ca454fa
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/CryptoID.hs
View File

@ -72,6 +72,7 @@ decCryptoIDs [ ''SubmissionId
, ''CourseNewsId
, ''CourseEventId
, ''TutorialId
, ''ExternalExamId
]
decCryptoIDKeySize

7
src/Handler/ExternalExam/Correct.hs
View File

@ -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