discard old transports on pause

This commit is contained in:
Joey Hess 2014-04-08 15:26:32 -04:00
parent fac7bca05b
commit 960394a947

View file

@ -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