From 37eb3fc850cb28bcf72d971b4fff99902bbce811 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 29 Apr 2017 15:13:44 -0400 Subject: use developer control window to tell when write access is granted --- WebSockets.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'WebSockets.hs') diff --git a/WebSockets.hs b/WebSockets.hs index 00f762a..7cb140b 100644 --- a/WebSockets.hs +++ b/WebSockets.hs @@ -100,6 +100,7 @@ clientApp mode recentactivity mksent filterreceived a conn = do -- Wait for any more data from the server. -- These often die with a ConnectionClosed. void $ waitCatch sthread + cancel rthread void $ waitCatch rthread go sid (schan, rchan, _, _) = a schan rchan sid -- cgit v1.2.3