respond 201 on successful post

2014-08-23 21:49:43 -07:00
parent 094c145228
commit a48474b21a
1 changed files with 1 additions and 1 deletions
@@ -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 [] ""