@@ -98,7 +98,7 @@ import Foreign
98
98
( Word8 , Ptr , nullPtr , plusPtr , peekByteOff , pokeByteOff
99
99
, ForeignPtr , FinalizerPtr , mallocForeignPtrBytes , addForeignPtrFinalizer
100
100
, withForeignPtr , touchForeignPtr , minusPtr )
101
- #if __GLASGOW_HASKELL__ >= 702
101
+ #if MIN_VERSION_base(4,4,0)
102
102
import Foreign.ForeignPtr.Unsafe ( unsafeForeignPtrToPtr )
103
103
import System.IO.Unsafe ( unsafePerformIO )
104
104
#else
@@ -112,10 +112,16 @@ import Foreign.C
112
112
import Data.ByteString.Internal (nullForeignPtr )
113
113
import qualified Data.ByteString.Unsafe as B
114
114
import Data.ByteString (ByteString )
115
+ #if !(MIN_VERSION_base(4,8,0))
115
116
import Control.Applicative (Applicative (.. ))
117
+ #endif
116
118
import Control.Monad (ap ,liftM )
117
- #if __GLASGOW_HASKELL__ >= 702
119
+ #if MIN_VERSION_base(4,4,0)
120
+ #if MIN_VERSION_base(4,7,0)
121
+ import Control.Monad.ST.Strict
122
+ #else
118
123
import Control.Monad.ST.Strict hiding (unsafeIOToST )
124
+ #endif
119
125
import Control.Monad.ST.Unsafe
120
126
#else
121
127
import Control.Monad.ST.Strict
0 commit comments