Rename DbStructure names

src/PostgREST/App.hs

@@ -160,10 +160,10 @@ app dbStructure conf reqBody req =
       return $ responseLBS status404 [] ""
 
   where
-    allTabs = tables dbStructure
+    allTabs = dbTables dbStructure
-    allRels = relations dbStructure
+    allRels = dbRelations dbStructure
-    allCols = columns dbStructure
+    allCols = dbColumns dbStructure
-    allPrKeys = primaryKeys dbStructure
+    allPrKeys = dbPrimaryKeys dbStructure
     filterCol sc table (Column{colTable=Table{tableSchema=s, tableName=t}}) = s==sc && table==t
     filterCol _ _ _ =  False
     filterPk sc table pk = sc == (tableSchema . pkTable) pk && table == (tableName . pkTable) pk

src/PostgREST/Config.hs

@@ -28,7 +28,7 @@ import           Data.Text                   (strip)
 import           Data.Version                (versionBranch)
 import           Network.Wai
 import           Network.Wai.Middleware.Cors (CorsResourcePolicy (..))
-import           Options.Applicative         hiding (columns)
+import           Options.Applicative
 import           Paths_postgrest             (version)
 import           Prelude
 

src/PostgREST/DbStructure.hs

@@ -39,10 +39,10 @@ getDbStructure schema = do
       keys' = synonymousPrimaryKeys syns keys
 
   return DbStructure {
-      tables = tabs
+      dbTables = tabs
-    , columns = cols'
+    , dbColumns = cols'
-    , relations = rels'
+    , dbRelations = rels'
-    , primaryKeys = keys'
+    , dbPrimaryKeys = keys'
     }
 
 doesProc :: forall c s. B.CxValue c Int =>

src/PostgREST/MainTest.hs

@@ -98,10 +98,10 @@ main = do
     (\(tabs, rels, cols, keys) ->
 
       return DbStructure {
-          tables=tabs
+          dbTables=tabs
-        , columns=cols
+        , dbColumns=cols
-        , relations=rels
+        , dbRelations=rels
-        , primaryKeys=keys
+        , dbPrimaryKeys=keys
         }
     ) metadata
   runSettings appSettings $ middle $ \ req respond -> do

src/PostgREST/Types.hs

@@ -6,10 +6,10 @@ import Data.Aeson
 import Data.Map
 
 data DbStructure = DbStructure {
-  tables :: [Table]
+  dbTables :: [Table]
-, columns :: [Column]
+, dbColumns :: [Column]
-, relations :: [Relation]
+, dbRelations :: [Relation]
-, primaryKeys :: [PrimaryKey]
+, dbPrimaryKeys :: [PrimaryKey]
 } deriving (Show, Eq)
 
 type Schema = Text