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

Minor cleanup

Browse Source
This commit is contained in:
Gregor Kleen 2017-10-11 00:29:31 +02:00
parent 845369a27a
commit b514ee3c92
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Submission.hs
View File

@ -23,7 +23,7 @@ getSubmissionListR = do
cIDKey <- getsYesod appCryptoIDKey cIDKey <- getsYesod appCryptoIDKey
let let
cryptEntity :: Entity Submission -> Handler (CryptoUUIDSubmission, Submission) cryptEntity :: Entity Submission -> Handler (CryptoUUIDSubmission, Submission)
cryptEntity (Entity key val) = (, val) <$> UUID.encrypt cIDKey (traceShowId key) cryptEntity (Entity key val) = (, val) <$> UUID.encrypt cIDKey key
submissionList <- mapM cryptEntity entityList submissionList <- mapM cryptEntity entityList
defaultLayout $(widgetFile "submission-list") defaultLayout $(widgetFile "submission-list")