composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-08-17 07:20:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

specialize the wait API

Browse Source
This commit is contained in:
Harendra Kumar 2017-08-08 15:53:43 +05:30
parent 88d79e9656
commit 103c918fe1
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Asyncly/RunAsync.hs
View File

@ -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