File tree Expand file tree Collapse file tree 1 file changed +6
-2
lines changed Expand file tree Collapse file tree 1 file changed +6
-2
lines changed Original file line number Diff line number Diff line change @@ -79,7 +79,11 @@ import Control.Monad (when)
79
79
import Control.Exception (Exception , throw , assert )
80
80
import Control.Monad.ST.Lazy hiding (stToIO )
81
81
import Control.Monad.ST.Strict (stToIO )
82
- import Control.Monad.ST.Unsafe (unsafeIOToST )
82
+ #if __GLASGOW_HASKELL__ >= 702
83
+ import qualified Control.Monad.ST.Unsafe as Unsafe (unsafeIOToST )
84
+ #else
85
+ import qualified Control.Monad.ST.Strict as Unsafe (unsafeIOToST )
86
+ #endif
83
87
import Data.Typeable (Typeable )
84
88
import qualified Data.ByteString.Lazy as L
85
89
import qualified Data.ByteString.Lazy.Internal as L
@@ -740,7 +744,7 @@ mkStateIO = stToIO Stream.mkState
740
744
741
745
runStreamST :: Stream a -> Stream. State s -> ST s (a , Stream. State s )
742
746
runStreamIO :: Stream a -> Stream. State RealWorld -> IO (a , Stream. State RealWorld )
743
- runStreamST strm zstate = strictToLazyST (unsafeIOToST noDuplicate >> Stream. runStream strm zstate)
747
+ runStreamST strm zstate = strictToLazyST (Unsafe. unsafeIOToST noDuplicate >> Stream. runStream strm zstate)
744
748
runStreamIO strm zstate = stToIO (Stream. runStream strm zstate)
745
749
746
750
compressStreamIO :: Stream. Format -> CompressParams -> CompressStream IO
You can’t perform that action at this time.
0 commit comments