@@ -1,4 +1,4 @@
1−{-# LANGUAGE BangPatterns, ForeignFunctionInterface, MagicHash,
1+{-# LANGUAGE BangPatterns, CPP, ForeignFunctionInterface, MagicHash,
22 UnliftedFFITypes #-}
33-- |
44-- Module : Data.Text.Encoding
@@ -48,7 +48,11 @@ module Data.Text.Encoding
4848 ) where
4949
5050import Control.Exception (evaluate, try)
51+#if __GLASGOW_HASKELL__ >= 702
52+import Control.Monad.ST.Unsafe (unsafeIOToST, unsafeSTToIO)
53+#else
5154import Control.Monad.ST (unsafeIOToST, unsafeSTToIO)
55+#endif
5256import Data.Bits ((.&.))
5357import Data.ByteString as B
5458import Data.ByteString.Internal as B