git.iko.soy/streamly
on master help sign in
Fix use-unliftio flag (#2218)
96a8bd0Ranjeet Ranjan
src/Streamly/Internal/Data/Stream/Exception/Lifted.hs+4
compare with master
unifiedsplit
@@ -25,8 +25,12 @@ where
25
25
26import Control.Exception (Exception, SomeException, mask_)
26import Control.Exception (Exception, SomeException, mask_)
27import Control.Monad.Catch (MonadCatch)
27import Control.Monad.Catch (MonadCatch)
28+#ifdef USE_UNLIFTIO
29+import Control.Monad.IO.Unlift (MonadUnliftIO)
30+#else
28import Control.Monad.IO.Class (MonadIO)
31import Control.Monad.IO.Class (MonadIO)
29import Control.Monad.Trans.Control (MonadBaseControl)
32import Control.Monad.Trans.Control (MonadBaseControl)
33+#endif
30import Data.Map.Strict (Map)
34import Data.Map.Strict (Map)
31import GHC.Exts (inline)
35import GHC.Exts (inline)
32import Streamly.Internal.Control.Concurrent
36import Streamly.Internal.Control.Concurrent