@@ -1,9 +1,59 @@
11{-# LANGUAGE ExistentialQuantification, BangPatterns, MagicHash #-}
22
3−module Data.Text.Fusion where
4−
5−import Prelude hiding (map, tail, head, foldr, filter,concat)
6−
3+module Data.Text.Fusion
4+ (
5+ Stream(..)
6+ , Step(..)
7+ , Encoding(..)
8+ , stream
9+ , unstream
10+ , stream_bs
11+ , unstream_bs
12+ , restream
13+ , errorEmptyList
14+ , eq
15+ , cons
16+ , snoc
17+ , append
18+ , head
19+ , tail
20+ , last
21+ , init
22+ , null
23+ , length
24+ , map
25+ , foldl
26+ , foldl'
27+ , foldl1
28+ , foldl1'
29+ , foldr
30+ , foldr1
31+ , concat
32+ , concatMap
33+ , any
34+ , all
35+ , maximum
36+ , minimum
37+ , unfoldr
38+ , unfoldrN
39+ , take
40+ , drop
41+ , takeWhile
42+ , dropWhile
43+ , elem
44+ , find
45+ , filter
46+ , intersperse
47+ , index
48+ , findIndex
49+ , elemIndex
50+ , zipWith
51+ ) where
52+
53+import Prelude hiding
54+ (map, tail, head, foldr, filter, concat, last, init, null, length, foldl,
55+ foldl1, foldr1, concatMap, any, all, maximum, minimum, take, drop,
56+ takeWhile, dropWhile, elem, zipWith)
757import Data.Char (ord)
858import Control.Exception(assert)
959import Control.Monad(liftM2)
@@ -19,7 +69,6 @@ import Foreign.ForeignPtr(withForeignPtr,ForeignPtr)
1969import Foreign.Storable(pokeByteOff)
2070import GHC.Exts (Int(..), (+#))
2171import System.IO.Unsafe(unsafePerformIO)
22−
2372import Data.Text.Internal(Text(..),empty)
2473import Data.Text.UnsafeChar(unsafeChr,unsafeChr8,unsafeChr32)
2574import qualified Data.Text.Utf8 as U8
@@ -35,8 +84,6 @@ data T4 a b c d = T4 !a !b !c !d
3584
3685data Switch = S1 | S2
3786
38−data EitherS a b = LeftS !a | RightS !b
39−
4087data Stream a = forall s. Stream (s -> Step s a) !s {-# UNPACK #-}!Int
4188
4289data Step s a = Done