f9827c3 · text · git.iko.soy

git.iko.soy/text

on master help sign in

Fix up import and export lists

f9827c3Bryan O'Sullivan18 years ago

Data/Text/Fusion.hs+54−7

compare with master

unifiedsplit

@@ -1,9 +1,59 @@

1{-# LANGUAGE ExistentialQuantification, BangPatterns, MagicHash #-}

3−module Data.Text.Fusion where

3+module Data.Text.Fusion

4−

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+

5−import Prelude hiding (map, tail, head, foldr, filter,concat)

53+import Prelude hiding

6−

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)

7import Data.Char (ord)

57import Data.Char (ord)

8import Control.Exception(assert)

58import Control.Exception(assert)

9import Control.Monad(liftM2)

59import Control.Monad(liftM2)

@@ -19,7 +69,6 @@ import Foreign.ForeignPtr(withForeignPtr,ForeignPtr)

19import Foreign.Storable(pokeByteOff)

69import Foreign.Storable(pokeByteOff)

20import GHC.Exts (Int(..), (+#))

70import GHC.Exts (Int(..), (+#))

21import System.IO.Unsafe(unsafePerformIO)

71import System.IO.Unsafe(unsafePerformIO)

22−

23import Data.Text.Internal(Text(..),empty)

72import Data.Text.Internal(Text(..),empty)

24import Data.Text.UnsafeChar(unsafeChr,unsafeChr8,unsafeChr32)

73import Data.Text.UnsafeChar(unsafeChr,unsafeChr8,unsafeChr32)

25import qualified Data.Text.Utf8 as U8

74import qualified Data.Text.Utf8 as U8

@@ -35,8 +84,6 @@ data T4 a b c d = T4 !a !b !c !d

36data Switch = S1 | S2

85data Switch = S1 | S2

38−data EitherS a b = LeftS !a | RightS !b

39−

40data Stream a = forall s. Stream (s -> Step s a) !s {-# UNPACK #-}!Int

87data Stream a = forall s. Stream (s -> Step s a) !s {-# UNPACK #-}!Int

42data Step s a = Done

89data Step s a = Done