fix: catch incorrect stream implementations

2024-05-14 13:42:39 -05:00 · 2024-05-14 13:42:39 -05:00 · 7076b13df4
commit 7076b13df4
parent 3f4bc12d36
1 changed files with 1 additions and 0 deletions
--- a/src/Pipes.Node.Stream.purs
+++ b/src/Pipes.Node.Stream.purs
@ -87,6 +87,7 @@ 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
      fromReadable t