Permalink
Browse files

Quieten a compiler warning

  • Loading branch information...
1 parent 7fb6b28 commit 1f361d0003e3dd259263ea0598d257a04298c44e @bos committed Nov 18, 2011
Showing with 7 additions and 2 deletions.
  1. +7 −2 Data/Double/Conversion/Text.hs
View
9 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)

0 comments on commit 1f361d0

Please sign in to comment.