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