Rename DbStructure names

2015-11-12 15:01:23 -05:00
parent 0f5bc34c04
commit 2f6254f44c
5 changed files with 17 additions and 17 deletions
@@ -39,10 +39,10 @@ getDbStructure schema = do
      keys' = synonymousPrimaryKeys syns keys

  return DbStructure {
-      tables = tabs
-    , columns = cols'
-    , relations = rels'
-    , primaryKeys = keys'
+      dbTables = tabs
+    , dbColumns = cols'
+    , dbRelations = rels'
+    , dbPrimaryKeys = keys'
    }

 doesProc :: forall c s. B.CxValue c Int =>