fix: await finished before exiting
This commit is contained in:
parent
33d42034fc
commit
657af14bb6
@ -94,10 +94,10 @@ fromTransform :: forall a b m. MonadThrow Error m => MonadAff m => O.Transform a
|
|||||||
fromTransform t =
|
fromTransform t =
|
||||||
let
|
let
|
||||||
cleanup removeErrorListener = do
|
cleanup removeErrorListener = do
|
||||||
yieldWhileReadable
|
|
||||||
liftEffect $ O.end t
|
liftEffect $ O.end t
|
||||||
liftEffect $ removeErrorListener
|
liftAff $ O.awaitFinished t
|
||||||
fromReadable t
|
fromReadable t
|
||||||
|
liftEffect $ removeErrorListener
|
||||||
pure $ Done unit
|
pure $ Done unit
|
||||||
|
|
||||||
yieldWhileReadable = do
|
yieldWhileReadable = do
|
||||||
|
Loading…
Reference in New Issue
Block a user