From 16186a8b831bf771ff4f0ea40aa49bcc0b46b837 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 8 Apr 2014 15:26:32 -0400 Subject: discard old transports on pause --- RemoteDaemon/Core.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'RemoteDaemon') diff --git a/RemoteDaemon/Core.hs b/RemoteDaemon/Core.hs index b32be98ef..7d07c35b1 100644 --- a/RemoteDaemon/Core.hs +++ b/RemoteDaemon/Core.hs @@ -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 -- cgit v1.2.3