mirror of
https://github.com/composewell/streamly.git
synced 2024-08-17 07:20:36 +03:00
specialize the wait API
This commit is contained in:
parent
88d79e9656
commit
103c918fe1
@ -82,6 +82,7 @@ wait_ (AsynclyT m) = do
|
||||
-- XXX pull from children here
|
||||
_ -> return ()
|
||||
|
||||
{-# SPECIALIZE wait :: AsynclyT IO a -> IO [a] #-}
|
||||
wait :: forall m a. (MonadAsync m, MonadCatch m) => AsynclyT m a -> m [a]
|
||||
wait (AsynclyT m) = liftIO (getContext Nothing) >>= run m
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user