Use integers for schemas in insert

2014-08-14 10:03:07 -07:00
parent 09da9e7e94
commit d25da99f10
3 changed files with 8 additions and 3 deletions
@@ -93,7 +93,7 @@ app config req respond = do
      ([table], "POST") ->
        jsonBodyAction req (\row ->
          responseLBS status200 [jsonContentType] <$> (
-            insert (pack $ show ver) table row conn))
+            insert ver table row conn))
      (_, _) ->
        return $ responseLBS status404 [] ""