Cleanup

2022-07-13 22:22:24 +01:00
parent 33e9b5b1f0
commit 35a1eb9732
18 changed files with 89 additions and 69 deletions
@@ -12,7 +12,7 @@ import qualified Streaming.Prelude as S
 --import qualified Data.Set as S

 gridInPolygon :: Float -> [Point2] -> [Point2]
-gridInPolygon gap ps = filter (flip pointInPolygon ps) 
+gridInPolygon gap ps = filter (`pointInPolygon` ps)
    .  maybe [] (boundedGrid gap) . boundPoints . S.each $ ps

 boundedGrid :: Float -> (Float,Float,Float,Float) -> [Point2]