Better relations for views

- Better column synonyms detection - Raise relations to accessible schema when possible
2015-11-11 09:11:57 -05:00
parent e1e4fe6d5c
commit 16af8fc61e
6 changed files with 285 additions and 184 deletions
@@ -54,7 +54,7 @@ withApp perform = do
    <- H.acquirePool pgSettings testPoolOpts

  let txSettings = Just (H.ReadCommitted, Just True)
-  dbOrError <- H.session pool $ H.tx txSettings createDbStructure
+  dbOrError <- H.session pool $ H.tx txSettings $ createDbStructure (cs $ configSchema cfg)
  db <- either (fail . show) return dbOrError

  perform $ middle $ \req resp -> do