48685b2 · text · git.iko.soy

git.iko.soy/text

on master help sign in

Inline some more fusion-happy functions.

48685b2Bryan O'Sullivan18 years ago

Data/Text/Fusion.hs+4−3

compare with master

unifiedsplit

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

513 Skip s' -> loop_any s'

514 Yield x s' | p x -> True

515 | otherwise -> loop_any s'

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

516

517

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

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

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

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

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

524 Skip s' -> loop_all s'

525 Skip s' -> loop_all s'

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

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

526 | otherwise -> False

527 | otherwise -> False

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

527

529

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

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

529-- non-empty.

531-- non-empty.

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

540 Yield x s'

542 Yield x s'

541 | x > z -> loop_maximum x s'

543 | x > z -> loop_maximum x s'

542 | otherwise -> loop_maximum z s'

544 | otherwise -> loop_maximum z s'

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

543

546

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

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

545-- non-empty.

548-- non-empty.

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

556 Yield x s'

559 Yield x s'

557 | x < z -> loop_minimum x s'

560 | x < z -> loop_minimum x s'

558 | otherwise -> loop_minimum z s'

561 | otherwise -> loop_minimum z s'

559−

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

560−

561−

562

563

563-- -----------------------------------------------------------------------------

564-- -----------------------------------------------------------------------------

564-- * Building streams

565-- * Building streams