Permalink
Browse files

Quieten some compilation warnings

  • Loading branch information...
1 parent 3a1a0d1 commit 20b2c7abe236ec6a162d481411fdaf09c93ad6e9 @bos committed Nov 2, 2011
Showing with 8 additions and 0 deletions.
  1. +4 −0 Data/Text/Array.hs
  2. +4 −0 Data/Text/Foreign.hs
View
@@ -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)
@@ -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

0 comments on commit 20b2c7a

Please sign in to comment.