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