orion/purescript-node-stream-pipes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

wip: explore removing delays(6)

Browse Source
This commit is contained in:
orion 2024-05-14 10:55:14 -05:00
parent dfdca9f5e9
commit ba8d90038d
Signed by: orion
GPG Key ID: 6D4165AE4C928719
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Pipes.Node.Stream.purs
View File

@ -119,6 +119,8 @@ fromTransform t =
maybeYield1 maybeYield1
pure $ Loop { error, cancel } pure $ Loop { error, cancel }
O.WriteWouldBlock -> do O.WriteWouldBlock -> do
queueLen <- liftEffect $ O.readableLength t
when (queueLen == 0) $ liftAff $ O.awaitReadableOrClosed t
yieldWhileReadable yieldWhileReadable
liftAff $ O.awaitWritableOrClosed t liftAff $ O.awaitWritableOrClosed t
pure $ Loop { error, cancel } pure $ Loop { error, cancel }