@@ -64,7 +64,11 @@ import Control.Monad.ST (unsafeIOToST)
64import Data.Bits ((.&.), xor)
64import Data.Bits ((.&.), xor)
65import Data.Text.Unsafe.Base (inlinePerformIO)
65import Data.Text.Unsafe.Base (inlinePerformIO)
66import Data.Text.UnsafeShift (shiftL, shiftR)
66import Data.Text.UnsafeShift (shiftL, shiftR)
67+#if __GLASGOW_HASKELL__ >= 703
68+import Foreign.C.Types (CInt(CInt), CSize(CSize))
67import Foreign.C.Types (CInt, CSize)
70import Foreign.C.Types (CInt, CSize)
68import GHC.Base (ByteArray#, MutableByteArray#, Int(..),
72import GHC.Base (ByteArray#, MutableByteArray#, Int(..),
69 indexWord16Array#, newByteArray#,
73 indexWord16Array#, newByteArray#,
70 unsafeCoerce#, writeWord16Array#)
74 unsafeCoerce#, writeWord16Array#)