Improve prettiness further

2014-11-16 04:49:13 +01:00
parent 9c7acc6dce
commit 62583d82a5
2 changed files with 12 additions and 12 deletions
--- a/Algorithms/PolygonIntersection/Core.hs
+++ b/Algorithms/PolygonIntersection/Core.hs
@@ -127,8 +127,8 @@ intersectionPoints xs' = rmdups . go $ xs'
    segIntersections :: ([Segment], [Segment]) -> [PT]
    segIntersections (a@(_:_), b@(_:_)) =
      catMaybes
-        . fmap (\[x, y] -> intersectSeg' x y)
-        $ combinations a b
+      . fmap (\[x, y] -> intersectSeg' x y)
+      $ combinations a b
    segIntersections _ = []

    -- Gets all unique(!) combinations of two arrays. Both arrays