fix: await finished before exiting

2024-05-14 14:07:20 -05:00 · 2024-05-14 14:07:20 -05:00 · 657af14bb6
commit 657af14bb6
parent 33d42034fc
1 changed files with 2 additions and 2 deletions
--- a/src/Pipes.Node.Stream.purs
+++ b/src/Pipes.Node.Stream.purs
@ -94,10 +94,10 @@ fromTransform :: forall a b m. MonadThrow Error m => MonadAff m => O.Transform a
 fromTransform t =
  let
    cleanup removeErrorListener = do
-      yieldWhileReadable
      liftEffect $ O.end t
-      liftEffect $ removeErrorListener
+      liftAff $ O.awaitFinished t
      fromReadable t
+      liftEffect $ removeErrorListener
      pure $ Done unit

    yieldWhileReadable = do