git.iko.soy/text
on master help sign in
Silence a compiler warning.
829bea1Bryan O'Sullivan
Data/Text/Encoding.hs+5−1
compare with master
unifiedsplit
@@ -1,4 +1,4 @@
1−{-# LANGUAGE BangPatterns, ForeignFunctionInterface, MagicHash,
1+{-# LANGUAGE BangPatterns, CPP, ForeignFunctionInterface, MagicHash,
2 UnliftedFFITypes #-}
2 UnliftedFFITypes #-}
3-- |
3-- |
4-- Module : Data.Text.Encoding
4-- Module : Data.Text.Encoding
@@ -48,7 +48,11 @@ module Data.Text.Encoding
48 ) where
48 ) where
49
49
50import Control.Exception (evaluate, try)
50import Control.Exception (evaluate, try)
51+#if __GLASGOW_HASKELL__ >= 702
52+import Control.Monad.ST.Unsafe (unsafeIOToST, unsafeSTToIO)
53+#else
51import Control.Monad.ST (unsafeIOToST, unsafeSTToIO)
54import Control.Monad.ST (unsafeIOToST, unsafeSTToIO)
55+#endif
52import Data.Bits ((.&.))
56import Data.Bits ((.&.))
53import Data.ByteString as B
57import Data.ByteString as B
54import Data.ByteString.Internal as B
58import Data.ByteString.Internal as B