Fix use-unliftio flag (#2218)
commit96a8bd04d8f556db606b634e266ba1f45952a787
authorRanjeet Ranjan <ranjeetr@composewell.com>
dateFri 13 Jan 2023, 17:07 (4 years ago)
parent02ac6e4
src/Streamly/Internal/Data/Stream/Exception/Lifted.hs+4
@@ -25,8 +25,12 @@ where
2525
2626import Control.Exception (Exception, SomeException, mask_)
2727import Control.Monad.Catch (MonadCatch)
28+#ifdef USE_UNLIFTIO
29+import Control.Monad.IO.Unlift (MonadUnliftIO)
30+#else
2831import Control.Monad.IO.Class (MonadIO)
2932import Control.Monad.Trans.Control (MonadBaseControl)
33+#endif
3034import Data.Map.Strict (Map)
3135import GHC.Exts (inline)
3236import Streamly.Internal.Control.Concurrent