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

Use correct status header

Browse Source
This commit is contained in:
Gregor Kleen 2018-01-14 02:30:21 +01:00
parent 7c5c12dc6b
commit d37ee331f6
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

@ -50,7 +50,7 @@ instance (CryptoRoute ciphertext namespace, Dispatch ciphertext ns) => Dispatch
getCryptoUUIDDispatchR :: UUID -> Handler ()
getCryptoUUIDDispatchR uuid = dispatchID p uuid >>= maybe notFound redirect
getCryptoUUIDDispatchR uuid = dispatchID p uuid >>= maybe notFound (redirectWith found302)
where
p :: Proxy '["Submission"]
p = Proxy