1 files changed, 2 insertions(+), 1 deletions(-)

M 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"