diff --git a/src/Dbapi.hs b/src/Dbapi.hs index e515424a0..6b147e071 100644 --- a/src/Dbapi.hs +++ b/src/Dbapi.hs @@ -68,7 +68,7 @@ app conn req respond = do (getRows (show ver) (unpack table) qq range conn) ([table], "POST") -> jsonBodyAction req (\row -> - responseLBS status200 [jsonContentType] <$> ( + responseLBS status201 [jsonContentType] <$> ( insert ver table row conn)) (_, _) -> return $ responseLBS status404 [] ""