From be53d40694e59f9ef48d8a8106004623bddc703b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 5 May 2017 11:02:58 -0400 Subject: add protocol version This is distinct from the wire protocol version used in the websocket framing of messages. Versioning the high level protocol will let later features be added. The user controls the protocol version, since they send the first several messages. Developers that connect need to avoid using features from newer protocol versions. So, developers and servers will need to support the most recent version, while the user can have an old version of debug-me and it will continue to work. This commit changes the protocol buffer encoding, and is the last such free change. All changes past this point will need to be versioned. This commit was sponsored by Jochen Bartl on Patreon. --- ControlWindow.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ControlWindow.hs') diff --git a/ControlWindow.hs b/ControlWindow.hs index 99fd4d3..2540640 100644 --- a/ControlWindow.hs +++ b/ControlWindow.hs @@ -118,7 +118,7 @@ displayInput ochan ichan promptchan responsechan = loop go (Just (ControlWindowMessage m)) = do putStrLn m loop - go (Just (ControlInputAction (SessionKey k))) = do + go (Just (ControlInputAction (SessionKey k _))) = do askToAllow ochan promptchan responsechan k loop go (Just (ControlInputAction m@(ChatMessage {}))) = do -- cgit v1.2.3