Permalink
Browse files

Silence a compiler warning.

  • Loading branch information...
1 parent aac6b06 commit 829bea191f8f6609426a94aced10f2d66525b070 @bos committed Oct 4, 2011
Showing with 5 additions and 1 deletion.
  1. +5 −1 Data/Text/Encoding.hs
View
@@ -1,4 +1,4 @@
-{-# LANGUAGE BangPatterns, ForeignFunctionInterface, MagicHash,
+{-# LANGUAGE BangPatterns, CPP, ForeignFunctionInterface, MagicHash,
UnliftedFFITypes #-}
-- |
-- Module : Data.Text.Encoding
@@ -48,7 +48,11 @@ 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

0 comments on commit 829bea1

Please sign in to comment.