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

Fix build

Browse Source
This commit is contained in:
Gregor Kleen 2018-06-30 21:37:50 +02:00
parent d69f81aeae
commit 807c0fb28d
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

@ -321,5 +321,5 @@ getSubmissionDownloadArchiveR tid csh shn (ZIPArchiveName cID) = do
Just rating' -> do
let fileEntitySource' :: Source (YesodDB UniWorX) File
fileEntitySource' = submissionFileSource submissionID =$= Conduit.map entityVal >> yieldM (ratingFile cID rating')
info = ZipInfo { zipComment = Text.encodeUtf8 . CI.foldedCase $ ciphertext (cUUID :: CryptoFileNameSubmission) }
info = ZipInfo { zipComment = Text.encodeUtf8 . pack . CI.foldedCase $ ciphertext (cUUID :: CryptoFileNameSubmission) }
fileEntitySource' =$= produceZip info =$= Conduit.map toFlushBuilder