@@ -40,12 +40,11 @@ module Data.Text.Array
4040#if defined(__GLASGOW_HASKELL__)
4141#include "MachDeps.h"
4242
43−import GHC.Base (ByteArray#, MutableByteArray#, indexWord16Array#,
43+import GHC.Base (ByteArray#, MutableByteArray#, Int(..), indexWord16Array#,
4444 newByteArray#, readWord16Array#, unsafeCoerce#,
4545 writeWord16Array#, (+#), (*#))
4646import GHC.Prim (Int#)
4747import GHC.ST (ST(..), runST)
48−import GHC.Types (Int(..))
4948import GHC.Word (Word16(..))
5049
5150#elif defined(__HUGS__)