Use versioned schemas in all requests

Fixes #7
2014-07-18 21:13:14 -07:00
parent dd1547adea
commit 57af2bf511
2 changed files with 7 additions and 6 deletions
@@ -55,7 +55,7 @@ app config req respond = do
      []      -> responseLBS status200 [json] <$> (printTables ver =<< conn)
      [table] -> responseLBS status200 [json] <$>
                ( if verb == methodOptions
-                  then printColumns table =<< conn
+                  then printColumns ver table =<< conn
                  else selectWhere (T.pack $ show ver) table qq =<< conn )
      _       -> return $ responseLBS status404 [] ""