From d37ee331f68004e97fb458cb70449c81f4d929af Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 14 Jan 2018 02:30:21 +0100 Subject: [PATCH] Use correct status header --- src/Handler/CryptoIDDispatch.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/CryptoIDDispatch.hs b/src/Handler/CryptoIDDispatch.hs index 04fe31baf..68890b823 100644 --- a/src/Handler/CryptoIDDispatch.hs +++ b/src/Handler/CryptoIDDispatch.hs @@ -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