respond 201 on successful post
This commit is contained in:
+1
-1
@@ -68,7 +68,7 @@ app conn req respond = do
|
|||||||
(getRows (show ver) (unpack table) qq range conn)
|
(getRows (show ver) (unpack table) qq range conn)
|
||||||
([table], "POST") ->
|
([table], "POST") ->
|
||||||
jsonBodyAction req (\row ->
|
jsonBodyAction req (\row ->
|
||||||
responseLBS status200 [jsonContentType] <$> (
|
responseLBS status201 [jsonContentType] <$> (
|
||||||
insert ver table row conn))
|
insert ver table row conn))
|
||||||
(_, _) ->
|
(_, _) ->
|
||||||
return $ responseLBS status404 [] ""
|
return $ responseLBS status404 [] ""
|
||||||
|
|||||||
Reference in New Issue
Block a user