Commits

Bryan O'Sullivan committed f1161ce

Inline some more fusion-happy functions.

Comments (0)

Files changed (1)

Data/Text/Fusion.hs

                       Skip s'                -> loop_any s'
                       Yield x s' | p x       -> True
                                  | otherwise -> loop_any s'
+{-# INLINE [0] any #-}
 
 -- | /O(n)/ all @p @xs determines if all characters in the 'Text'
 -- @xs@ satisify the predicate @p@.
                       Skip s'                -> loop_all s'
                       Yield x s' | p x       -> loop_all s'
                                  | otherwise -> False
+{-# INLINE [0] all #-}
 
 -- | /O(n)/ maximum returns the maximum value from a stream, which must be
 -- non-empty.
                              Yield x s'
                                  | x > z     -> loop_maximum x s'
                                  | otherwise -> loop_maximum z s'
+{-# INLINE [0] maximum #-}
 
 -- | /O(n)/ minimum returns the minimum value from a 'Text', which must be
 -- non-empty.
                              Yield x s'
                                  | x < z     -> loop_minimum x s'
                                  | otherwise -> loop_minimum z s'
-
-
-
+{-# INLINE [0] minimum #-}
 
 -- -----------------------------------------------------------------------------
 -- * Building streams