From 6bf0f321cf41cd536aac3987a9fd2598da844bcf Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 14 Jan 2018 01:37:01 +0100 Subject: [PATCH] Check decryption before redirecting (as was intended) --- src/Handler/CryptoIDDispatch.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/Handler/CryptoIDDispatch.hs b/src/Handler/CryptoIDDispatch.hs index 450f6944e..7666225f7 100644 --- a/src/Handler/CryptoIDDispatch.hs +++ b/src/Handler/CryptoIDDispatch.hs @@ -20,12 +20,18 @@ import Import hiding (Proxy) import Data.Proxy +import qualified Data.UUID.Cryptographic as UUID + class KnownSymbol namespace => CryptoRoute ciphertext namespace where cryptoIDRoute :: CryptoID namespace ciphertext -> Handler (Route UniWorX) instance CryptoRoute UUID "Submission" where - cryptoIDRoute = return . SubmissionR + cryptoIDRoute cID = do + cIDKey <- getsYesod appCryptoIDKey + sId <- UUID.decrypt cIDKey cID + + return $ SubmissionR cID class Dispatch ciphertext (x :: [Symbol]) where