Commits

Bryan O'Sullivan  committed 96c3d1c

Quieten a compiler warning

  • Participants
  • Parent commits 626d278

Comments (0)

Files changed (1)

File Data/Double/Conversion/Text.hs

-{-# LANGUAGE MagicHash, Rank2Types #-}
+{-# LANGUAGE CPP, MagicHash, Rank2Types #-}
 
 -- |
 -- 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)