mirror of
https://github.com/composewell/streamly.git
synced 2024-09-11 11:37:22 +03:00
Fix up
This commit is contained in:
parent
36c4d9495c
commit
7e68d0a991
@ -50,7 +50,7 @@ import qualified Streamly.Internal.Data.Stream.Type as Stream (fromStreamK)
|
||||
|
||||
import Streamly.Internal.Data.SVar
|
||||
|
||||
#if !MIN_VERSION_base(4,14,0)
|
||||
#if __GLASGOW_HASKELL__ < 810
|
||||
#ifdef INSPECTION
|
||||
import Control.Exception (Exception)
|
||||
import Control.Monad.Catch (MonadThrow)
|
||||
@ -161,7 +161,7 @@ fromStreamVar sv = K.MkStream $ \st yld sng stp -> do
|
||||
sid <- liftIO $ readIORef (svarStopBy sv)
|
||||
return $ tid == sid
|
||||
|
||||
#if !MIN_VERSION_base(4,14,0)
|
||||
#if __GLASGOW_HASKELL__ < 810
|
||||
#ifdef INSPECTION
|
||||
-- Use of GHC constraint tuple (GHC.Classes.(%,,%)) in fromStreamVar leads to
|
||||
-- space leak because the tuple gets allocated in every recursive call and each
|
||||
|
Loading…
Reference in New Issue
Block a user