Replace PutShape with PutForeground

2022-06-27 14:30:08 +01:00
parent fec72cdf48
commit 0def31895f
11 changed files with 39 additions and 55 deletions
@@ -7,6 +7,7 @@ import qualified Streaming.Prelude as S
 import qualified Control.Foldl as L

 boundPoints :: Stream (Of Point2) Identity () -> Maybe (Float,Float,Float,Float)
+{-# INLINE boundPoints #-}
 boundPoints = f . runIdentity . L.purely S.fold_ ((,,,) 
    <$> L.premap (^?! _2) L.maximum
    <*> L.premap (^?! _2) L.minimum