From a48474b21a23dcfa55e50d602634705c4701d5f8 Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Sat, 23 Aug 2014 21:49:43 -0700
Subject: [PATCH] respond 201 on successful post

---
 src/Dbapi.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 [] ""