82325d1 · text · git.iko.soy

git.iko.soy/text

Clean up some warnings with inports

--HG-- extra : convert_revision : 81e02ff09cd0a126b06f4aef035d26f19058a5ee

commit82325d11faec63758e5287682827e4c75ff3078e authorDuncan Coutts <duncan@haskell.org> dateSun 18 Jan 2009, 17:53 (18 years ago) parent10f0317

5 files changed+16−17

compare with master

unifiedsplit

Data/Text.hs+8−8 Data/Text/Fusion.hs+5−3 Data/Text/Internal.hs+2−2 Data/Text/Utf32.hs+1−3 Data/Text/Utf8.hs−1

Data/Text.hs+8−8

@@ -5,21 +5,21 @@ module Data.Text where

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

77 Eq,(==),

8− Show,showsPrec,show,not,

9− Read,readsPrec,read,

8+ Show,showsPrec,

9+ Read,readsPrec,

1010 (&&),(||),(+),(-),($),(<),(>),(<=),(>=),(.),(>>=),

11− return,otherwise,seq,fromIntegral)

11+ return,otherwise,seq,

12+ IO, FilePath)

1213

1314import Data.Char (isSpace)

14−import Control.Monad.ST(ST(..))

15+import Control.Monad.ST(ST)

1516import Data.Array.Base(unsafeNewArray_,unsafeWrite,unsafeAt)

16−import Data.Array.ST(STUArray(..), runSTUArray)

17+import Data.Array.ST(STUArray, runSTUArray)

1718import qualified Data.ByteString as B

18−import Data.ByteString(ByteString(..))

19+import Data.ByteString(ByteString)

1920import qualified Data.List as L

2021import Data.Monoid(Monoid(..))

21−import Data.Word(Word16(..))

22−import System.IO hiding (readFile)

22+import Data.Word(Word16)

2323

2424import qualified Data.Text.Fusion as S

2525import Data.Text.Fusion (Stream(..),Step(..),Encoding(..),

Data/Text/Fusion.hs+5−3

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

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

22{-# LANGUAGE BangPatterns #-}

3+--TODO: eliminate the need to supress these warnings:

4+{-# OPTIONS_GHC -fno-warn-incomplete-patterns -fno-warn-unused-matches #-}

46module Data.Text.Fusion where

@@ -8,14 +10,14 @@ import Prelude hiding (map, tail, head, foldr, filter,concat)

810import Data.Char

911import Control.Exception(assert)

1012import Control.Monad(liftM2)

11−import Control.Monad.ST(runST,ST(..))

13+import Control.Monad.ST(runST,ST)

1214import Data.Array.Base

1315import Data.Bits

1416import qualified Data.ByteString as B

1517import Data.ByteString.Internal(ByteString(..),mallocByteString,memcpy)

1618import qualified Data.List as L

17−import Data.Word(Word8(..),Word16(..),Word32(..))

18−import Foreign.ForeignPtr(withForeignPtr,ForeignPtr(..))

19+import Data.Word(Word8, Word16, Word32)

20+import Foreign.ForeignPtr(withForeignPtr,ForeignPtr)

1921import Foreign.Storable(pokeByteOff)

2022import GHC.Exts

2123import System.IO.Unsafe(unsafePerformIO)

Data/Text/Internal.hs+2−2

@@ -1,8 +1,8 @@

11module Data.Text.Internal where

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

4−import Data.Array.Unboxed(UArray(..))

5−import Data.Word(Word16(..))

4+import Data.Array.Unboxed(UArray)

5+import Data.Word(Word16)

77data Text = Text !(UArray Int Word16) {-# UNPACK #-}!Int {-# UNPACK #-}!Int

Data/Text/Utf32.hs+1−3

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

11module Data.Text.Utf32 where

3−import Data.Bits

4−import Data.Char

5−import Data.Word

3+import Data.Word (Word32)

75validate :: Word32 -> Bool

86validate x1 = (x1 >= 0x0 && x1 < 0xD800) || (x1 > 0xDFFF && x1 <= 0x10FFFF)

Data/Text/Utf8.hs−1

@@ -3,7 +3,6 @@ module Data.Text.Utf8 where

44import Data.Char(ord)

55import Data.Bits

6−import Data.Word

87import GHC.Exts

98import GHC.Prim