From 5ddda2f7684857e90f45c37d030858773e96ee99 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 29 Apr 2017 15:58:38 -0400 Subject: don't forward other developer's SessionKey control messages to control window The control window doesn't know it's running for a developer, so it would prompt to allow these, which was pointless. --- Role/Developer.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Role') diff --git a/Role/Developer.hs b/Role/Developer.hs index d05710e..960a204 100644 --- a/Role/Developer.hs +++ b/Role/Developer.hs @@ -195,7 +195,12 @@ sendTtyOutput ochan devstate controlinput logger = go go forwardcontrol msg = case msg of User (ControlMessage c) -> fwd c - Developer (ControlMessage c) -> fwd c + Developer (ControlMessage c) -> case control c of + Rejected _ -> return () + SessionKey _ -> return () + SessionKeyAccepted _ -> return () + SessionKeyRejected _ -> return () + ChatMessage _ _ -> fwd c _ -> return () fwd = atomically . writeTMChan controlinput . ControlInputAction . control -- cgit v1.2.3