fix: maybe a race condition
This commit is contained in:
parent
3d8d722871
commit
eea77a3000
@ -141,7 +141,7 @@ foreach stream cb = do
|
||||
untilJust do
|
||||
delay $ wrap 10.0
|
||||
ct <- liftEffect $ ST.toEffect $ STRef.read count
|
||||
pure $ if ct == 0 then Just unit else Nothing
|
||||
pure $ if ct <= 1 then Just unit else Nothing
|
||||
liftEffect $ res $ Right unit
|
||||
|
||||
pure $ Canceler $ const $ liftEffect do
|
||||
|
Loading…
Reference in New Issue
Block a user