Tweaks before attempting to move zoning out of LWorld

2023-02-23 16:59:09 +00:00
parent c814fa2cd5
commit f873b679aa
3 changed files with 3 additions and 15 deletions
@@ -78,6 +78,7 @@ yIntercepts' s sp ep = map f $ xIntercepts s (f sp) (f ep)
    f (V2 x y) = V2 y x

 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
  where
    f _ = IM.insertWith (<>) y a