Fix bug in many-many relation detection introduced but prev PR

2015-12-22 16:36:02 +02:00
parent 437a592c65
commit a61778dba0
3 changed files with 8 additions and 2 deletions
@@ -129,7 +129,6 @@ addRelations schema allRelations parentNode node@(Node readNode@(query, (name, _
      where
        rel = note ("no relation between " <> parentTable <> " and " <> name)
            $  findRelationByTable schema name parentTable
-           <|> findRelationByTable schema parentTable name
           <|> findRelationByColumn schema parentTable name
        addRel :: (ReadQuery, (NodeName, Maybe Relation)) -> Relation -> (ReadQuery, (NodeName, Maybe Relation))
        addRel (q, (n, _)) r = (q {from=fromRelation}, (n, Just r))