Revert to the old way of displaying the list of tables

This commit is contained in:
Ruslan Talpa
2015-11-03 09:31:56 +02:00
parent b3e88a37d3
commit 14e806759d
5 changed files with 66 additions and 58 deletions
+1 -3
View File
@@ -6,8 +6,7 @@ import Data.Aeson
import Data.Map
data DbStructure = DbStructure {
tables :: [Table]
, columns :: [Column]
columns :: [Column]
, relations :: [Relation]
, primaryKeys :: [PrimaryKey]
}
@@ -17,7 +16,6 @@ data Table = Table {
tableSchema :: Text
, tableName :: Text
, tableInsertable :: Bool
, tableAcl :: [Text]
} deriving (Show)
data ForeignKey = ForeignKey {