chore: prepare v1.6.1

package.json

@@ -1,6 +1,6 @@
 {
   "name": "purescript-node-stream-pipes",
-  "version": "v1.6.0",
+  "version": "v1.6.1",
   "type": "module",
   "dependencies": {
     "csv-parse": "^5.5.5",

spago.yaml

@@ -1,7 +1,7 @@
 package:
   name: node-stream-pipes
   publish:
-    version: '1.6.0'
+    version: '1.6.1'
     license: 'GPL-3.0-or-later'
     location:
       githubOwner: 'cakekindel'

src/Node.Stream.Object.purs

@@ -172,9 +172,10 @@ unsafeFromStringWritable :: forall r. Stream.Writable r -> Writable String
 unsafeFromStringWritable = unsafeCoerce
 
 awaitReadableOrClosed :: forall s a. Read s a => s -> Aff Unit
-awaitReadableOrClosed s = do
+awaitReadableOrClosed s = Aff.supervise do
   fiber <-
-    Aff.forkAff $ parOneOf
+    Aff.forkAff
+    $ parOneOf
       [ onceAff0 readableH s $> Right unit
       , onceAff0 closeH s $> Right unit
       , Left <$> onceAff1 errorH s
@@ -189,14 +190,20 @@ awaitReadableOrClosed s = do
     Aff.killFiber (error "") fiber
 
 awaitFinished :: forall s a. Write s a => s -> Aff Unit
-awaitFinished s = do
+awaitFinished s = Aff.supervise do
   fiber <- Aff.forkAff $ onceAff0 finishH s
   finished <- liftEffect $ isWritableFinished s
   if not finished then Aff.joinFiber fiber else Aff.killFiber (error "") fiber
 
 awaitWritableOrClosed :: forall s a. Write s a => s -> Aff Unit
-awaitWritableOrClosed s = do
-  fiber <- Aff.forkAff $ parOneOf [ onceAff0 drainH s $> Right unit, onceAff0 closeH s $> Right unit, Left <$> onceAff1 errorH s ]
+awaitWritableOrClosed s = Aff.supervise do
+  fiber <-
+    Aff.forkAff
+    $ parOneOf
+        [ onceAff0 drainH s $> Right unit
+        , onceAff0 closeH s $> Right unit
+        , Left <$> onceAff1 errorH s
+        ]
   closed <- liftEffect $ isClosed s
   writeEnded <- liftEffect $ isWritableEnded s
   writable <- liftEffect $ isWritable s

src/Pipes.Node.Stream.purs

@@ -7,6 +7,7 @@ import Control.Monad.Rec.Class (class MonadRec, Step(..), tailRecM, whileJust)
 import Control.Monad.ST.Class (liftST)
 import Control.Monad.ST.Ref as STRef
 import Control.Monad.Trans.Class (lift)
+import Control.Parallel (parOneOf)
 import Data.Maybe (Maybe(..), maybe)
 import Data.Traversable (for_, traverse, traverse_)
 import Data.Tuple.Nested ((/\))
@@ -118,7 +119,7 @@ fromTransform t = do
       ended <- liftEffect $ O.isWritableEnded t
       if needsDrain then do
         yieldWhileReadable
-        liftAff $ O.awaitWritableOrClosed t
+        liftAff $ parOneOf [O.awaitWritableOrClosed t, O.awaitReadableOrClosed t]
         pure $ Loop unit
       else if ended then
         cleanup $> Done unit