Non-convex chasms

src/Geometry/Triangulate.hs

@@ -4,6 +4,7 @@ module Geometry.Triangulate where
 
 import Data.List
 
+-- assumes that the polygon is convex
 polyToTris :: [s] -> [s]
 {-# INLINEABLE polyToTris #-}
 polyToTris (x : xs) = foldl' (f x) [] $ zip xs $ tail xs