Correct response code for endpoint

This commit is contained in:
Rene Vergara 2022-09-06 15:52:32 -05:00
parent c3747794d4
commit 18498b6032
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2

View file

@ -602,7 +602,7 @@ routes pipe config = do
oAdd <- param "address" oAdd <- param "address"
c <- param "code" c <- param "code"
liftAndCatchIO $ run (addAccCode oAdd c) liftAndCatchIO $ run (addAccCode oAdd c)
status created201 status accepted202
--Get user associated with session --Get user associated with session
get "/api/user" $ do get "/api/user" $ do
sess <- param "session" sess <- param "session"