all tests passing after moving table structure detection at load time

2015-09-23 09:38:40 +03:00
parent 6f55e1d389
commit c0e17c44ba
5 changed files with 64 additions and 53 deletions
@@ -69,16 +69,17 @@ withApp perform = do
  pkRes <-  H.session pool $ H.tx txParam $ allprimaryKeys
  let allPrimaryKeys = either (fail . show) id pkRes

-  tableAclRes <-  H.session pool $ H.tx txParam $ alltablesAcl
-  let allTablesAcl = either (fail . show) id tableAclRes
+  -- tableAclRes <-  H.session pool $ H.tx txParam $ alltablesAcl
+  -- let allTablesAcl = either (fail . show) id tableAclRes


  let dbstructure = DbStructure {
-    tables=allTables,
-    columns=allColumns,
-    relations=allRelations,
-    primaryKeys=allPrimaryKeys,
-    tablesAcl=allTablesAcl}
+      tables=allTables
+    , columns=allColumns
+    , relations=allRelations
+    , primaryKeys=allPrimaryKeys
+    --, tablesAcl=allTablesAcl
+    }


  perform $ middle $ \req resp -> do