fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 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
let
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
defaultLayout $(widgetFile "submission-list")