Hlint cleanup

2022-07-23 19:17:03 +01:00
parent 248dec79e4
commit f0f9751afe
10 changed files with 11 additions and 12 deletions
@@ -23,7 +23,7 @@ makeIntInterval x y

 makeInt2Interval :: Int2 -> Int2 -> [Int2]
 makeInt2Interval (V2 x1 y1) (V2 x2 y2) 
-    = [(V2 x y) | x <- makeIntInterval x1 x2, y <- makeIntInterval y1 y2]
+    = [V2 x y | x <- makeIntInterval x1 x2, y <- makeIntInterval y1 y2]

 zoneOfPoint' :: Float -> Point2 -> Int2
 zoneOfPoint' s = fmap (divTo s)
@@ -35,7 +35,7 @@ zoneExtract :: Monoid m => Int2 -> IM.IntMap (IM.IntMap m) -> m
 zoneExtract (V2 x y) = fromMaybe mempty . (^? ix x . ix y)
 --
 zonesExtract :: Monoid m => IM.IntMap (IM.IntMap m) -> [Int2] -> m
-zonesExtract im = foldMap (flip zoneExtract im)
+zonesExtract im = foldMap (`zoneExtract` im)

 xIntercepts' :: Float -> Point2 -> Point2 -> [Point2]
 {-# INLINE xIntercepts' #-}