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

Check decryption before redirecting (as was intended)

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

8
src/Handler/CryptoIDDispatch.hs
View File

@ -20,12 +20,18 @@ import Import hiding (Proxy)
import Data.Proxy import Data.Proxy
import qualified Data.UUID.Cryptographic as UUID
class KnownSymbol namespace => CryptoRoute ciphertext namespace where class KnownSymbol namespace => CryptoRoute ciphertext namespace where
cryptoIDRoute :: CryptoID namespace ciphertext -> Handler (Route UniWorX) cryptoIDRoute :: CryptoID namespace ciphertext -> Handler (Route UniWorX)
instance CryptoRoute UUID "Submission" where 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 class Dispatch ciphertext (x :: [Symbol]) where