Include location header in post response

2014-08-25 11:31:27 -07:00
parent a48474b21a
commit 780c9d7c0f
5 changed files with 45 additions and 33 deletions
@@ -69,7 +69,7 @@ data TableOptions = TableOptions {
 instance JSON.ToJSON TableOptions where
  toJSON t = JSON.object [
      "columns" .= tblOptcolumns t
-    , "pkey"   .= tblOptpkey t ]
+    , "pkey"    .= tblOptpkey t ]

 tables :: String -> Connection -> IO [Table]
 tables s conn = do