Allow user to override schema used for v1 of api

2015-03-03 22:29:37 -08:00
parent 5be0b5d5ae
commit 3d3c7277c7
5 changed files with 14 additions and 11 deletions
@@ -63,7 +63,7 @@ main = do
  runSettings appSettings $ middle $ \req respond -> do
    body <- strictRequestBody req
    resOrError <- liftIO $ H.session pool $ H.tx Nothing $
-      authenticated currRole anonRole (app body) req
+      authenticated currRole anonRole (app (cs $ configV1Schema conf) body) req
    either (respond . errResponse) respond resOrError

  where