This commit is contained in:
bingus 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
else if isNothing r then
liftAff $ delay $ wrap 10.0
empty
else do
r' <- MaybeT $ pure r
lift $ cb r'
guard $ isClosed
pure unit
readToQ =