From af251f41daac5593bae8986112c672e7efc08290 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 29 Apr 2017 15:33:34 -0400 Subject: fix server to not relay developer messages back to self This fixes chat message echoing consistency too. --- Role/Developer.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Role') diff --git a/Role/Developer.hs b/Role/Developer.hs index efe476a..d05710e 100644 --- a/Role/Developer.hs +++ b/Role/Developer.hs @@ -410,6 +410,8 @@ processSessionStart sk ochan logger dsv = do User (ActivityMessage act@(Activity (Seen (Val b)) Nothing _ _)) | verifySigned sigverifier act -> (hash act, TtyOutput b) + | otherwise -> + error "Bad signature on startup message" _ -> error $ "Unexpected startup message: " ++ show startmsg atomically $ modifyTVar' st $ \ds -> ds { lastSeen = starthash -- cgit v1.2.3