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")