From b514ee3c92ba869ee0d7cf2e0d965dd77723fb91 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 11 Oct 2017 00:29:31 +0200
Subject: [PATCH] Minor cleanup

---
 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 3a26ef586..a805c4ccd 100644
--- a/src/Handler/Submission.hs
+++ b/src/Handler/Submission.hs
@@ -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")