48685b2 · text · git.iko.soy

Inline some more fusion-happy functions.

--HG-- extra : convert_revision : c16af0bd32060c53de3454edfcfefc0bd840ff91

commit48685b2099a29a1ba78090d13116f685f229aabe authorBryan O'Sullivan <bos@serpentine.com> dateThu 12 Feb 2009, 07:42 (18 years ago) parent98b83d8

1 file changed+4−3

unifiedsplit

Data/Text/Fusion.hs+4−3

@@ -513,6 +513,7 @@ any p (Stream next0 s0 _len) = loop_any s0

513513 Skip s' -> loop_any s'

514514 Yield x s' | p x -> True

515515 | otherwise -> loop_any s'

516+{-# INLINE [0] any #-}

516517

517518-- | /O(n)/ all @p @xs determines if all characters in the 'Text'

518519-- @xs@ satisify the predicate @p@.

@@ -524,6 +525,7 @@ all p (Stream next0 s0 _len) = loop_all s0

524525 Skip s' -> loop_all s'

525526 Yield x s' | p x -> loop_all s'

526527 | otherwise -> False

528+{-# INLINE [0] all #-}

527529

528530-- | /O(n)/ maximum returns the maximum value from a stream, which must be

529531-- non-empty.

@@ -540,6 +542,7 @@ maximum (Stream next0 s0 _len) = loop0_maximum s0

540542 Yield x s'

541543 | x > z -> loop_maximum x s'

542544 | otherwise -> loop_maximum z s'

545+{-# INLINE [0] maximum #-}

543546

544547-- | /O(n)/ minimum returns the minimum value from a 'Text', which must be

545548-- non-empty.

@@ -556,9 +559,7 @@ minimum (Stream next0 s0 _len) = loop0_minimum s0

556559 Yield x s'

557560 | x < z -> loop_minimum x s'

558561 | otherwise -> loop_minimum z s'

559−

560−

561−

562+{-# INLINE [0] minimum #-}

562563

563564-- -----------------------------------------------------------------------------

564565-- * Building streams