From 0eb2ee95f3d8e147078e87c210064ac1339a8867 Mon Sep 17 00:00:00 2001 From: David Florness Date: Sat, 7 Mar 2020 13:04:54 -0700 Subject: [PATCH] Keep track of peers' usernames This will be used to kick people --- bulletin.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/bulletin.rkt b/bulletin.rkt index 6e792a2..507a050 100644 --- a/bulletin.rkt +++ b/bulletin.rkt @@ -72,7 +72,8 @@ (if (auth username password) (begin (displayln (format "~a is voting! (~a)" username input)) - (set-add! _peers (hasheq 'input input)) + (set-add! _peers (hasheq 'input input + 'username username)) (response/jsexpr empty)) (response/jsexpr "Bad Login" -- 2.38.4