Quieten some compilation warnings

haskell · Nov 2, 2011 · 20b2c7a · 20b2c7a
1 parent 3a1a0d1
commit 20b2c7a
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/Data/Text/Array.hs b/Data/Text/Array.hs
@@ -60,7 +60,11 @@ if (_k_) < 0 || (_k_) >= (_len_) then error ("Data.Text.Array." ++ (_func_) ++ "
 #if defined(ASSERTS)
 import Control.Exception (assert)
 #endif
+#if __GLASGOW_HASKELL__ >= 702
+import Control.Monad.ST.Unsafe (unsafeIOToST)
+#else
 import Control.Monad.ST (unsafeIOToST)
+#endif
 import Data.Bits ((.&.), xor)
 import Data.Text.Unsafe.Base (inlinePerformIO)
 import Data.Text.UnsafeShift (shiftL, shiftR)

diff --git a/Data/Text/Foreign.hs b/Data/Text/Foreign.hs
@@ -33,7 +33,11 @@ module Data.Text.Foreign
 #if defined(ASSERTS)
 import Control.Exception (assert)
 #endif
+#if __GLASGOW_HASKELL__ >= 702
+import Control.Monad.ST.Unsafe (unsafeIOToST)
+#else
 import Control.Monad.ST (unsafeIOToST)
+#endif
 import Data.Text.Internal (Text(..), empty)
 import Data.Text.Unsafe (lengthWord16)
 import qualified Data.Text.Array as A