@@ -6,7 +6,7 @@ module Data.Text.Fusion where
66
77import Prelude hiding (map, tail, head, foldr, filter,concat)
88
9−import Data.Char
9+import Data.Char (ord)
1010import Control.Exception(assert)
1111import Control.Monad(liftM2)
1212import Control.Monad.ST(runST,ST)
@@ -19,7 +19,7 @@ import qualified Data.List as L
1919import Data.Word(Word8, Word16, Word32)
2020import Foreign.ForeignPtr(withForeignPtr,ForeignPtr)
2121import Foreign.Storable(pokeByteOff)
22−import GHC.Exts
22+import GHC.Exts (Int(..), (+#))
2323import System.IO.Unsafe(unsafePerformIO)
2424
2525import Data.Text.Internal(Text(..),empty)