Improve line zoning

src/Geometry/ConvexPoly.hs

@@ -57,7 +57,7 @@ polyPointsIntersect :: [Point2] -> [Point2] -> Bool
 polyPointsIntersect (a:b:xs) ps = go a (a:b:xs) ps
   where
     go x' (a':b':xs') ps' = pairPolyPointsIntersect a' b' ps' || go x' (b':xs') ps'
-    go b' (a':[]) ps' = pairPolyPointsIntersect a' b' ps'
+    go b' [a'] ps' = pairPolyPointsIntersect a' b' ps'
     go _ _ _ = False
 polyPointsIntersect _ _ = False
 
@@ -67,7 +67,7 @@ pairPolyPointsIntersect a' b' (c':d':xs') = go c' a' b' (c':d':xs')
     go x a b (c:d:xs) 
         | isJust $ myIntersectSegSeg a b c d = True
         | otherwise = go x a b (d:xs)
-    go d a b (c:[]) = isJust $ myIntersectSegSeg a b c d
+    go d a b [c] = isJust $ myIntersectSegSeg a b c d
     go _ _ _ _ = False
 pairPolyPointsIntersect _ _ _ = False