Simplify analyser machines somewhat

src/Geometry.hs

@@ -48,7 +48,7 @@ errorPointInPolygon :: Int -> Point2 -> [Point2] -> Bool
 errorPointInPolygon !i !p xs
     | length xs == 1 = error "one point polygon"
     | length xs == 2 = error "two point polygon"
-    | nub xs == xs = pointInPolygon p xs
+    | nub xs == xs = pointInPoly p xs
     | otherwise = error $ "errorPointInPolygon " ++ show i
 
 -- | Debug version of 'normalizeV'.