From 2d5e5b2d958b645e9f754586a4c2194364435a54 Mon Sep 17 00:00:00 2001
From: David Florness <david@florness.com>
Date: Sat, 7 Mar 2020 12:51:45 -0700
Subject: [PATCH] Allow listing peers in the bulletin repl

---
 bulletin.rkt | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/bulletin.rkt b/bulletin.rkt
index a24d7ac..146defc 100644
--- a/bulletin.rkt
+++ b/bulletin.rkt
@@ -214,8 +214,11 @@
                                      (λ (l)
                                        (cons cand l))))]
                     [else (displayln "cannot add that")])]
-            ['list
-             (displayln (hash-ref election->candidates election))]
+            ['list (match (read sp)
+                     ['cands
+                      (displayln (hash-ref election->candidates election))]
+                     ['peers
+                      (displayln _peers)])]
             ['set (match (read sp)
                     ['election (let ([election (read sp)])
                                  (election-set! election))]
-- 
2.38.4