handle many to many relations

2015-09-28 15:53:03 +03:00
parent edff915f9e
commit bcf3bf5586
3 changed files with 54 additions and 25 deletions
@@ -58,6 +58,9 @@ data Relation = Relation {
 , relFTable  :: Text
 , relFColumn :: Text
 , relType    :: Text
+, relLTable  :: Maybe Text
+, relLCol1   :: Maybe Text
+, relLCol2   :: Maybe Text
 } deriving (Show, Eq)