Quieten some compilation warnings
commit20b2c7abe236ec6a162d481411fdaf09c93ad6e9
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 1 Nov 2011, 21:02 (15 years ago)
parent3a1a0d1
Data/Text/Array.hs+4
@@ -60,7 +60,11 @@ if (_k_) < 0 || (_k_) >= (_len_) then error ("Data.Text.Array." ++ (_func_) ++ "
6060#if defined(ASSERTS)
6161import Control.Exception (assert)
6262#endif
63+#if __GLASGOW_HASKELL__ >= 702
64+import Control.Monad.ST.Unsafe (unsafeIOToST)
65+#else
6366import Control.Monad.ST (unsafeIOToST)
67+#endif
6468import Data.Bits ((.&.), xor)
6569import Data.Text.Unsafe.Base (inlinePerformIO)
6670import Data.Text.UnsafeShift (shiftL, shiftR)
Data/Text/Foreign.hs+4
@@ -33,7 +33,11 @@ module Data.Text.Foreign
3333#if defined(ASSERTS)
3434import Control.Exception (assert)
3535#endif
36+#if __GLASGOW_HASKELL__ >= 702
37+import Control.Monad.ST.Unsafe (unsafeIOToST)
38+#else
3639import Control.Monad.ST (unsafeIOToST)
40+#endif
3741import Data.Text.Internal (Text(..), empty)
3842import Data.Text.Unsafe (lengthWord16)
3943import qualified Data.Text.Array as A