Commits

Bryan O'Sullivan committed d5e7625

Silence a compiler warning.

Comments (0)

Files changed (1)

Data/Text/Encoding.hs

-{-# LANGUAGE BangPatterns, ForeignFunctionInterface, MagicHash,
+{-# LANGUAGE BangPatterns, CPP, ForeignFunctionInterface, MagicHash,
     UnliftedFFITypes #-}
 -- |
 -- Module      : Data.Text.Encoding
     ) where
 
 import Control.Exception (evaluate, try)
+#if __GLASGOW_HASKELL__ >= 702
+import Control.Monad.ST.Unsafe (unsafeIOToST, unsafeSTToIO)
+#else
 import Control.Monad.ST (unsafeIOToST, unsafeSTToIO)
+#endif
 import Data.Bits ((.&.))
 import Data.ByteString as B
 import Data.ByteString.Internal as B