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)
|
||||
PAUSE -> do
|
||||
stoprunning m
|
||||
go h True m
|
||||
go h True M.empty
|
||||
RESUME -> do
|
||||
when paused $
|
||||
startrunning m
|
||||
|
|
Loading…
Reference in a new issue