diff --git a/src/Handler/CryptoIDDispatch.hs b/src/Handler/CryptoIDDispatch.hs
index 7666225f7..04fe31baf 100644
--- a/src/Handler/CryptoIDDispatch.hs
+++ b/src/Handler/CryptoIDDispatch.hs
@@ -29,7 +29,7 @@ class KnownSymbol namespace => CryptoRoute ciphertext namespace where
 instance CryptoRoute UUID "Submission" where
   cryptoIDRoute cID = do
     cIDKey <- getsYesod appCryptoIDKey
-    sId <- UUID.decrypt cIDKey cID
+    (_ :: SubmissionId) <- UUID.decrypt cIDKey cID
     
     return $ SubmissionR cID