dd1a5c9 · text · git.iko.soy

git.iko.soy/text

Update types

--HG-- extra : convert_revision : 4f3059959f0e3f81747bd6c654be1ca3a93de64b

commitdd1a5c9e82063a4b1f445d529d98b3f31c217af3 authorBryan O'Sullivan <bos@serpentine.com> dateWed 8 Sep 2010, 02:12 (16 years ago) parentdfe90e0

2 files changed+6−6

compare with master

unifiedsplit

Data/Text.hs+3−3 Data/Text/Lazy.hs+3−3

Data/Text.hs+3−3

@@ -657,12 +657,12 @@ transpose ts = P.map pack (L.transpose (P.map unpack ts))

657657-- (typically the left-identity of the operator), and a 'Text',

658658-- reduces the 'Text' using the binary operator, from left to right.

659659-- Subject to fusion.

660−foldl :: (b -> Char -> b) -> b -> Text -> b

660+foldl :: (a -> Char -> a) -> a -> Text -> a

661661foldl f z t = S.foldl f z (stream t)

662662{-# INLINE foldl #-}

663663

664664-- | /O(n)/ A strict version of 'foldl'. Subject to fusion.

665−foldl' :: (b -> Char -> b) -> b -> Text -> b

665+foldl' :: (a -> Char -> a) -> a -> Text -> a

666666foldl' f z t = S.foldl' f z (stream t)

667667{-# INLINE foldl' #-}

668668

@@ -681,7 +681,7 @@ foldl1' f t = S.foldl1' f (stream t)

681681-- (typically the right-identity of the operator), and a 'Text',

682682-- reduces the 'Text' using the binary operator, from right to left.

683683-- Subject to fusion.

684−foldr :: (Char -> b -> b) -> b -> Text -> b

684+foldr :: (Char -> a -> a) -> a -> Text -> a

685685foldr f z t = S.foldr f z (stream t)

686686{-# INLINE foldr #-}

687687

Data/Text/Lazy.hs+3−3

@@ -576,13 +576,13 @@ toUpper t = unstream (S.toUpper (stream t))

576576-- (typically the left-identity of the operator), and a 'Text',

577577-- reduces the 'Text' using the binary operator, from left to right.

578578-- Subject to array fusion.

579−foldl :: (b -> Char -> b) -> b -> Text -> b

579+foldl :: (a -> Char -> a) -> a -> Text -> a

580580foldl f z t = S.foldl f z (stream t)

581581{-# INLINE foldl #-}

582582

583583-- | /O(n)/ A strict version of 'foldl'.

584584-- Subject to array fusion.

585−foldl' :: (b -> Char -> b) -> b -> Text -> b

585+foldl' :: (a -> Char -> a) -> a -> Text -> a

586586foldl' f z t = S.foldl' f z (stream t)

587587{-# INLINE foldl' #-}

588588

@@ -603,7 +603,7 @@ foldl1' f t = S.foldl1' f (stream t)

603603-- (typically the right-identity of the operator), and a 'Text',

604604-- reduces the 'Text' using the binary operator, from right to left.

605605-- Subject to array fusion.

606−foldr :: (Char -> b -> b) -> b -> Text -> b

606+foldr :: (Char -> a -> a) -> a -> Text -> a

607607foldr f z t = S.foldr f z (stream t)

608608{-# INLINE foldr #-}

609609