fix relation detection bug and allow offset on lower levels

2016-10-05 11:34:07 +03:00
parent 980680f3d6
commit 211e3d4141
9 changed files with 169 additions and 98 deletions
@@ -88,7 +88,7 @@ data QualifiedIdentifier = QualifiedIdentifier {
 } deriving (Show, Eq)


-data RelationType = Child | Parent | Many deriving (Show, Eq)
+data RelationType = Child | Parent | Many | Root deriving (Show, Eq)
 data Relation = Relation {
  relTable    :: Table
 , relColumns  :: [Column]