10f0317 · text · git.iko.soy

git.iko.soy/text

Move to Data.* module namespace

--HG-- extra : convert_revision : 5ba2baf9ea67f29cbb8701293a55bce94751d71b

commit10f031707d4805216fac2ab7052f605ac25c30e7 authorDuncan Coutts <duncan@haskell.org> dateSun 18 Jan 2009, 17:39 (18 years ago) parentc5a281f

11 files changed+18−18

compare with master

unifiedsplit

Text.hs → Data/Text.hs+6−6 Text/Fusion.hs → Data/Text/Fusion.hs+6−6 Text/Internal.hs → Data/Text/Internal.hs+1−1 Text/UnsafeChar.hs → Data/Text/UnsafeChar.hs+1−1 Text/Utf16.hs → Data/Text/Utf16.hs+2−2 Text/Utf32.hs → Data/Text/Utf32.hs+1−1 Text/Utf32/Fusion.hs → Data/Text/Utf32/Fusion.hs Text/Utf32/Internal.hs → Data/Text/Utf32/Internal.hs Text/Utf8.hs → Data/Text/Utf8.hs+1−1 Text/Utf8/Fusion.hs → Data/Text/Utf8/Fusion.hs Text/Utf8/Internal.hs → Data/Text/Utf8/Internal.hs

Text.hs → Data/Text.hsrenamed+6−6

@@ -1,7 +1,7 @@

11{-# OPTIONS_GHC -fglasgow-exts #-}

22{-# LANGUAGE BangPatterns #-}

4−module Text where

4+module Data.Text where

66import Prelude (Char,Bool,Int,Maybe,String,

77 Eq,(==),

@@ -21,14 +21,14 @@ import Data.Monoid(Monoid(..))

2121import Data.Word(Word16(..))

2222import System.IO hiding (readFile)

2323

24−import qualified Text.Fusion as S

25−import Text.Fusion (Stream(..),Step(..),Encoding(..),

24+import qualified Data.Text.Fusion as S

25+import Data.Text.Fusion (Stream(..),Step(..),Encoding(..),

2626 stream,unstream,stream_bs,unstream_bs,restream,

2727 errorEmptyList)

28−import Text.Internal(Text(..),empty)

28+import Data.Text.Internal(Text(..),empty)

2929import qualified Prelude as P

30−import Text.UnsafeChar(unsafeChr)

31−import qualified Text.Utf16 as U16

30+import Data.Text.UnsafeChar(unsafeChr)

31+import qualified Data.Text.Utf16 as U16

3232

3333instance Eq Text where

3434 t1 == t2 = (stream t1) `S.eq` (stream t2)

Text/Fusion.hs → Data/Text/Fusion.hsrenamed+6−6

@@ -1,7 +1,7 @@

11{-# OPTIONS_GHC -fglasgow-exts #-}

22{-# LANGUAGE BangPatterns #-}

4−module Text.Fusion where

4+module Data.Text.Fusion where

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

@@ -20,11 +20,11 @@ import Foreign.Storable(pokeByteOff)

2020import GHC.Exts

2121import System.IO.Unsafe(unsafePerformIO)

2222

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

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

25−import qualified Text.Utf8 as U8

26−import qualified Text.Utf16 as U16

27−import qualified Text.Utf32 as U32

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

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

25+import qualified Data.Text.Utf8 as U8

26+import qualified Data.Text.Utf16 as U16

27+import qualified Data.Text.Utf32 as U32

2828

2929default(Int)

3030

Text/Internal.hs → Data/Text/Internal.hsrenamed+1−1

@@ -1,4 +1,4 @@

1−module Text.Internal where

1+module Data.Text.Internal where

33import Data.Array.ST(newArray_,runSTUArray)

44import Data.Array.Unboxed(UArray(..))

Text/UnsafeChar.hs → Data/Text/UnsafeChar.hsrenamed+1−1

@@ -1,6 +1,6 @@

11{-# OPTIONS_GHC -fglasgow-exts #-}

3−module Text.UnsafeChar where

3+module Data.Text.UnsafeChar where

55import GHC.Exts

66import GHC.Word

Text/Utf16.hs → Data/Text/Utf16.hsrenamed+2−2

@@ -1,6 +1,6 @@

11{-# OPTIONS_GHC -fglasgow-exts #-}

3−module Text.Utf16 where

3+module Data.Text.Utf16 where

55import GHC.Exts

66import GHC.Word

@@ -21,4 +21,4 @@ validate1 x1 = (x1 >= 0 && x1 < 0xD800) || (x1 > 0xDFFF && x1 < 0x10000)

2121

2222validate2 :: Word16 -> Word16 -> Bool

2323validate2 x1 x2 = (x1 >= 0xD800 && x1 <= 0xDBFF) &&

24− (x2 >= 0xDC00 && x2 <= 0xDFFF)

24+ (x2 >= 0xDC00 && x2 <= 0xDFFF)

Text/Utf32.hs → Data/Text/Utf32.hsrenamed+1−1

@@ -1,4 +1,4 @@

1−module Text.Utf32 where

1+module Data.Text.Utf32 where

33import Data.Bits

44import Data.Char

Text/Utf32/Fusion.hs → Data/Text/Utf32/Fusion.hsrenamed

The content is the same.

Text/Utf32/Internal.hs → Data/Text/Utf32/Internal.hsrenamed

The content is the same.

Text/Utf8.hs → Data/Text/Utf8.hsrenamed+1−1

@@ -1,5 +1,5 @@

11{-# OPTIONS_GHC -fglasgow-exts #-}

2−module Text.Utf8 where

2+module Data.Text.Utf8 where

44import Data.Char(ord)

55import Data.Bits

Text/Utf8/Fusion.hs → Data/Text/Utf8/Fusion.hsrenamed

The content is the same.

Text/Utf8/Internal.hs → Data/Text/Utf8/Internal.hsrenamed

The content is the same.