fix: bug
This commit is contained in:
parent
05b61d84f0
commit
874503a300
@ -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 =
|
||||||
|
Loading…
Reference in New Issue
Block a user