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 @@ -78,7 +78,11 @@ import Control.Monad (when)
78
78
import Control.Exception (Exception , throw , assert )
79
79
import Control.Monad.ST.Lazy hiding (stToIO )
80
80
import Control.Monad.ST.Strict (stToIO )
81
- import Control.Monad.ST.Unsafe (unsafeIOToST )
81
+ #if __GLASGOW_HASKELL__ >= 702
82
+ import qualified Control.Monad.ST.Unsafe as Unsafe (unsafeIOToST )
83
+ #else
84
+ import qualified Control.Monad.ST.Strict as Unsafe (unsafeIOToST )
85
+ #endif
82
86
import Data.Typeable (Typeable )
83
87
import qualified Data.ByteString.Lazy as L
84
88
import qualified Data.ByteString.Lazy.Internal as L
@@ -735,7 +739,7 @@ mkStateIO = stToIO Stream.mkState
735
739
736
740
runStreamST :: Stream a -> Stream. State s -> ST s (a , Stream. State s )
737
741
runStreamIO :: Stream a -> Stream. State RealWorld -> IO (a , Stream. State RealWorld )
738
- runStreamST strm zstate = strictToLazyST (unsafeIOToST noDuplicate >> Stream. runStream strm zstate)
742
+ runStreamST strm zstate = strictToLazyST (Unsafe. unsafeIOToST noDuplicate >> Stream. runStream strm zstate)
739
743
runStreamIO strm zstate = stToIO (Stream. runStream strm zstate)
740
744
741
745
compressStreamIO :: Stream. Format -> CompressParams -> CompressStream IO
You can’t perform that action at this time.
0 commit comments