1 files changed, 36 insertions(+), 39 deletions(-)

M client.rkt

@@ 119,16 119,15 @@
   (define poly (random-poly
                 (cast (sub1 peer-count) Natural)
                 vote))
-  (void
-   (post bulletin "/commit"
-         #:data
-         (jsexpr->string
-          (hasheq
-           'token token
-           'p
-           (bytes->hex-string
-            (merkle-node-hsh
-             (merkle-tree-root (poly-merkle poly))))))))
+  (post bulletin "/commit"
+        #:data
+        (jsexpr->string
+         (hasheq
+          'token token
+          'p
+          (bytes->hex-string
+           (merkle-node-hsh
+            (merkle-tree-root (poly-merkle poly)))))))
 
   (display "retrieving peers...")
   (define peer-inputs


@@ 141,37 140,35 @@
   (newline)
 
   (displayln "submitting poly outputs...")
-  (void
-   (post bulletin "/outputs"
-         #:data
-         (jsexpr->string
-          (hasheq
-           'token token
-           'outputs
-           (for/hasheq : (Immutable-HashTable Symbol String)
-               ([p : Integer (cast peer-inputs (Listof Integer))])
-             (values (string->symbol (integer->hex-string p))
-                     (integer->hex-string (poly p))))))))
+  (post bulletin "/outputs"
+        #:data
+        (jsexpr->string
+         (hasheq
+          'token token
+          'outputs
+          (for/hasheq : (Immutable-HashTable Symbol String)
+              ([p : Integer (cast peer-inputs (Listof Integer))])
+            (values (string->symbol (integer->hex-string p))
+                    (integer->hex-string (poly p)))))))
 
   (display "summing...")
-  (void
-   (post bulletin "/sum"
-         #:data
-         (jsexpr->string
-          (hasheq
-           'token token
-           'sum
-           (integer->hex-string
-            (foldl + 0
-                   (map
-                    hex-string->integer
-                    (cast (json-response-body
-                           (retry-request
-                            (post bulletin "/values"
-                                  #:data
-                                  (jsexpr->string
-                                   (hasheq 'token token)))))
-                          (Listof String)))))))))
+  (post bulletin "/sum"
+        #:data
+        (jsexpr->string
+         (hasheq
+          'token token
+          'sum
+          (integer->hex-string
+           (foldl + 0
+                  (map
+                   hex-string->integer
+                   (cast (json-response-body
+                          (retry-request
+                           (post bulletin "/values"
+                                 #:data
+                                 (jsexpr->string
+                                  (hasheq 'token token)))))
+                         (Listof String))))))))
   (newline)
 
   (display "finding constant...")