From c46439746fe9d0dff88eb370f2f677e0756c3479 Mon Sep 17 00:00:00 2001
From: David Florness <david@florness.com>
Date: Sun, 8 Mar 2020 15:11:12 -0600
Subject: [PATCH] Tidying

---
 client.rkt | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/client.rkt b/client.rkt
index cb4d833..0578a9f 100644
--- a/client.rkt
+++ b/client.rkt
@@ -91,8 +91,8 @@
     (let* ([vote (get-vote candidates)]
            [m    cand-count]
            [n    m]
-           [arr (array->mutable-array
-                 (make-array (vector m n) 0))])
+           [arr  (array->mutable-array
+                  (make-array (vector m n) 0))])
       (let loop ([rank      (car vote)]
                  [rst       (cdr vote)]
                  [remaining (set-subtract (list->set (range m)) (car vote))])
@@ -283,7 +283,8 @@
              (break-enabled #t)
              (when (eqv? 410 (exn:fail:network:http:error-code ex))
                (retry 3)))])
-         (get bulletin "/candidates"))))
+         (get bulletin "/candidates")
+         (void))))
 
 (module+ main
   (define point (gen))
@@ -312,7 +313,7 @@
                                        'username username
                                        'password password)))))))
 
-  ; the bulletin can have multiple elections
+  ; the bulletin can have multiple elections, so loop
   (let loop ()
     (with-handlers
       ([exn:fail:network:http:error?
-- 
2.38.4