From b7bead090e7fc826b5e1fcbd856e5dc4ab18ce51 Mon Sep 17 00:00:00 2001
From: Orion Kindel <orionkindel@gmail.com>
Date: Mon, 13 May 2024 14:35:44 -0500
Subject: [PATCH] fix: transform should read more than just 1 chunk after
 writing

---
 src/Pipes.Node.Stream.purs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Pipes.Node.Stream.purs b/src/Pipes.Node.Stream.purs
index 245f1f9..c6f0066 100644
--- a/src/Pipes.Node.Stream.purs
+++ b/src/Pipes.Node.Stream.purs
@@ -97,7 +97,7 @@ fromTransform t =
     yieldFromReadableHalf = do
       res <- liftEffect (O.read t)
       case res of
-        O.ReadJust a -> yield (Just a)
+        O.ReadJust a -> yield (Just a) *> yieldFromReadableHalf
         O.ReadWouldBlock -> pure unit
         O.ReadClosed -> yield Nothing *> pure unit
     go { error, cancel } = do