From d69f81aeaeb9f492d7fcab0adb139030309cbf7d Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sat, 30 Jun 2018 21:34:41 +0200
Subject: [PATCH] We don't use CryptoUUIDSubmission any more

---
 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 86d52be0b..2a845191b 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 . tshow $ ciphertext (cUUID :: CryptoUUIDSubmission) }
+            info = ZipInfo { zipComment = Text.encodeUtf8 . CI.foldedCase $ ciphertext (cUUID :: CryptoFileNameSubmission) }
         fileEntitySource' =$= produceZip info =$= Conduit.map toFlushBuilder