From 807c0fb28dd148d323c1295665eee92e4d8ff0a9 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 30 Jun 2018 21:37:50 +0200 Subject: [PATCH] Fix build --- src/Handler/Submission.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index 2a845191b..7cf47ae44 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -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