Cleanup

2025-01-06 01:05:56 +00:00
parent e5cbac480e
commit c20486fc34
6 changed files with 19 additions and 94 deletions
@@ -80,7 +80,7 @@ yIntercepts' s sp ep = map f $ xIntercepts s (f sp) (f ep)

 zoneMonoid :: Semigroup m => Int2 -> m -> IM.IntMap (IM.IntMap m) -> IM.IntMap (IM.IntMap m)
 {-# INLINE zoneMonoid #-}
-zoneMonoid !(V2 !x !y) a = IM.insertWith f x $! IM.singleton y a
+zoneMonoid (V2 !x !y) a = IM.insertWith f x $! IM.singleton y a
  where
    f _ = IM.insertWith (<>) y a