git.iko.soy/text
on master help sign in
Quieten some compilation warnings
20b2c7aBryan O'Sullivan
Data/Text/Array.hs+4
compare with master
unifiedsplit
@@ -60,7 +60,11 @@ if (_k_) < 0 || (_k_) >= (_len_) then error ("Data.Text.Array." ++ (_func_) ++ "
60#if defined(ASSERTS)
60#if defined(ASSERTS)
61import Control.Exception (assert)
61import Control.Exception (assert)
62#endif
62#endif
63+#if __GLASGOW_HASKELL__ >= 702
64+import Control.Monad.ST.Unsafe (unsafeIOToST)
65+#else
63import Control.Monad.ST (unsafeIOToST)
66import Control.Monad.ST (unsafeIOToST)
67+#endif
64import Data.Bits ((.&.), xor)
68import Data.Bits ((.&.), xor)
65import Data.Text.Unsafe.Base (inlinePerformIO)
69import Data.Text.Unsafe.Base (inlinePerformIO)
66import Data.Text.UnsafeShift (shiftL, shiftR)
70import Data.Text.UnsafeShift (shiftL, shiftR)
Data/Text/Foreign.hs+4
@@ -33,7 +33,11 @@ module Data.Text.Foreign
33#if defined(ASSERTS)
33#if defined(ASSERTS)
34import Control.Exception (assert)
34import Control.Exception (assert)
35#endif
35#endif
36+#if __GLASGOW_HASKELL__ >= 702
37+import Control.Monad.ST.Unsafe (unsafeIOToST)
38+#else
36import Control.Monad.ST (unsafeIOToST)
39import Control.Monad.ST (unsafeIOToST)
40+#endif
37import Data.Text.Internal (Text(..), empty)
41import Data.Text.Internal (Text(..), empty)
38import Data.Text.Unsafe (lengthWord16)
42import Data.Text.Unsafe (lengthWord16)
39import qualified Data.Text.Array as A
43import qualified Data.Text.Array as A