diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-29 15:33:34 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-29 15:33:34 -0400 |
commit | af251f41daac5593bae8986112c672e7efc08290 (patch) | |
tree | 0958b91418169f8b7755e42a2c77ba380a2d3de0 /Role | |
parent | 6a92c954c8018f7acf25cc8a0e66bce5d1eed781 (diff) | |
download | debug-me-af251f41daac5593bae8986112c672e7efc08290.tar.gz |
fix server to not relay developer messages back to self
This fixes chat message echoing consistency too.
Diffstat (limited to 'Role')
-rw-r--r-- | Role/Developer.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |