diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-29 15:13:44 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-29 15:13:44 -0400 |
commit | 37eb3fc850cb28bcf72d971b4fff99902bbce811 (patch) | |
tree | 7271540eaff79baa3a2b5ccbb089a282d28e7f02 /WebSockets.hs | |
parent | a61df1522ddf8a36839cf1180d3b16e354459e9a (diff) | |
download | debug-me-37eb3fc850cb28bcf72d971b4fff99902bbce811.tar.gz |
use developer control window to tell when write access is granted
Diffstat (limited to 'WebSockets.hs')
-rw-r--r-- | WebSockets.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |