Fixes hlint suggestions

2015-11-01 16:49:21 -05:00
parent 066d120c0e
commit 2c1236652e
2 changed files with 2 additions and 2 deletions
@@ -172,7 +172,7 @@ allRelations = do
    )
  |]
  let simpleRelations = foldr (addParentRelation.relationFromRow) [] rels
-      links = join $ map (combinations 2) $ filter ((>=1).length) $ groupWith groupFn $ filter ( (==Child). relType) simpleRelations
+      links = join $ map (combinations 2) $ filter (not . null) $ groupWith groupFn $ filter ( (==Child). relType) simpleRelations
  return $ simpleRelations ++ mapMaybe link2Relation links
  where
    groupFn :: Relation -> Text