This commit is contained in:
orion 2024-05-03 12:58:52 -05:00
parent 05b61d84f0
commit 874503a300
Signed by: orion
GPG Key ID: 6D4165AE4C928719

View File

@ -146,10 +146,10 @@ foreach stream cb =
pure unit pure unit
else if isNothing r then else if isNothing r then
liftAff $ delay $ wrap 10.0 liftAff $ delay $ wrap 10.0
empty
else do else do
r' <- MaybeT $ pure r r' <- MaybeT $ pure r
lift $ cb r' lift $ cb r'
guard $ isClosed
pure unit pure unit
readToQ = readToQ =