git.iko.soy/text
on master help sign in
Use module Data.Char instead of Char
c5a281fDuncan Coutts
Text.hs+1−1
compare with master
unifiedsplit
@@ -10,7 +10,7 @@ import Prelude (Char,Bool,Int,Maybe,String,
10 (&&),(||),(+),(-),($),(<),(>),(<=),(>=),(.),(>>=),
10 (&&),(||),(+),(-),($),(<),(>),(<=),(>=),(.),(>>=),
11 return,otherwise,seq,fromIntegral)
11 return,otherwise,seq,fromIntegral)
12
12
13−import Char (isSpace)
13+import Data.Char (isSpace)
14import Control.Monad.ST(ST(..))
14import Control.Monad.ST(ST(..))
15import Data.Array.Base(unsafeNewArray_,unsafeWrite,unsafeAt)
15import Data.Array.Base(unsafeNewArray_,unsafeWrite,unsafeAt)
16import Data.Array.ST(STUArray(..), runSTUArray)
16import Data.Array.ST(STUArray(..), runSTUArray)
Text/Fusion.hs+1−1
@@ -5,7 +5,7 @@ module Text.Fusion where
5
5
6import Prelude hiding (map, tail, head, foldr, filter,concat)
6import Prelude hiding (map, tail, head, foldr, filter,concat)
7
7
8−import Char
8+import Data.Char
9import Control.Exception(assert)
9import Control.Exception(assert)
10import Control.Monad(liftM2)
10import Control.Monad(liftM2)
11import Control.Monad.ST(runST,ST(..))
11import Control.Monad.ST(runST,ST(..))
Text/Utf32.hs+1−1
@@ -1,7 +1,7 @@
1module Text.Utf32 where
1module Text.Utf32 where
2
2
3import Data.Bits
3import Data.Bits
4−import Char
4+import Data.Char
5import Data.Word
5import Data.Word
6
6
7validate :: Word32 -> Bool
7validate :: Word32 -> Bool
Text/Utf8.hs+1−1
@@ -1,7 +1,7 @@
1{-# OPTIONS_GHC -fglasgow-exts #-}
1{-# OPTIONS_GHC -fglasgow-exts #-}
2module Text.Utf8 where
2module Text.Utf8 where
3
3
4−import Char(ord)
4+import Data.Char(ord)
5import Data.Bits
5import Data.Bits
6import Data.Word
6import Data.Word
7
7