Rename functions

2015-11-11 15:53:52 -05:00
parent 0374d4e651
commit b8b073810f
4 changed files with 23 additions and 23 deletions
@@ -68,11 +68,11 @@ main = do
    ) supportedOrError

  let txSettings = Just (H.ReadCommitted, Just True)
-  dbOrError <- H.session pool $ H.tx txSettings $ createDbStructure (cs $ configSchema conf)
-  db <- either hasqlError return dbOrError
+  dbOrError <- H.session pool $ H.tx txSettings $ getDbStructure (cs $ configSchema conf)
+  dbStructure <- either hasqlError return dbOrError

  runSettings appSettings $ middle $ \ req respond -> do
    body <- strictRequestBody req
    resOrError <- liftIO $ H.session pool $ H.tx txSettings $
-      runWithClaims conf (app db conf body) req
+      runWithClaims conf (app dbStructure conf body) req
    either (respond . errResponse) respond resOrError