discard old transports on pause
This commit is contained in:
parent
fac7bca05b
commit
960394a947
1 changed files with 1 additions and 1 deletions
|
@ -71,7 +71,7 @@ runController ichan ochan = do
|
||||||
go h paused (M.union common new)
|
go h paused (M.union common new)
|
||||||
PAUSE -> do
|
PAUSE -> do
|
||||||
stoprunning m
|
stoprunning m
|
||||||
go h True m
|
go h True M.empty
|
||||||
RESUME -> do
|
RESUME -> do
|
||||||
when paused $
|
when paused $
|
||||||
startrunning m
|
startrunning m
|
||||||
|
|
Loading…
Reference in a new issue