Quieten a compiler warning

haskell · Nov 18, 2011 · 1f361d0 · 1f361d0
1 parent 7fb6b28
commit 1f361d0
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/Data/Double/Conversion/Text.hs b/Data/Double/Conversion/Text.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE MagicHash, Rank2Types #-}
+{-# LANGUAGE CPP, MagicHash, Rank2Types #-}
 
 -- |
 -- Module      : Data.Double.Conversion.Text
@@ -24,7 +24,12 @@ module Data.Double.Conversion.Text
     ) where
 
 import Control.Monad (when)
-import Control.Monad.ST (unsafeIOToST, runST)
+#if MIN_VERSION_base(4,4,0)
+import Control.Monad.ST.Unsafe (unsafeIOToST)
+#else
+import Control.Monad.ST (unsafeIOToST)
+#endif
+import Control.Monad.ST (runST)
 import Data.Double.Conversion.FFI
 import Data.Text.Internal (Text(Text))
 import Foreign.C.Types (CDouble, CInt)