all tests passing after moving table structure detection at load time

This commit is contained in:
Ruslan Talpa
2015-09-23 09:38:40 +03:00
parent 6f55e1d389
commit c0e17c44ba
5 changed files with 64 additions and 53 deletions
+2 -1
View File
@@ -6,13 +6,14 @@ data DbStructure = DbStructure {
, columns :: [Column]
, relations :: [Relation]
, primaryKeys :: [PrimaryKey]
, tablesAcl :: [(Text, Text, Text)]
--, tablesAcl :: [(Text, Text, Text)]
}
data Table = Table {
tableSchema :: Text
, tableName :: Text
, tableInsertable :: Bool
, tableAcl :: [Text]
} deriving (Show)
data ForeignKey = ForeignKey {