fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix type error

Browse Source
This commit is contained in:
Gregor Kleen 2018-01-14 02:30:12 +01:00
parent 6bf0f321cf
commit 7c5c12dc6b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/CryptoIDDispatch.hs
View File

@ -29,7 +29,7 @@ class KnownSymbol namespace => CryptoRoute ciphertext namespace where
instance CryptoRoute UUID "Submission" where instance CryptoRoute UUID "Submission" where
cryptoIDRoute cID = do cryptoIDRoute cID = do
cIDKey <- getsYesod appCryptoIDKey cIDKey <- getsYesod appCryptoIDKey
sId <- UUID.decrypt cIDKey cID (_ :: SubmissionId) <- UUID.decrypt cIDKey cID
return $ SubmissionR cID return $ SubmissionR cID