From 7fa106c8b800356f3b7dc4d7f66c2dfda615b5fa Mon Sep 17 00:00:00 2001
From: David Florness <david@florness.com>
Date: Sat, 22 Feb 2020 20:19:28 -0700
Subject: [PATCH] Use `natural->hex-string' where we can

---
 client.rkt | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/client.rkt b/client.rkt
index 96e6ee7..4d1dfb2 100644
--- a/client.rkt
+++ b/client.rkt
@@ -54,8 +54,7 @@
   (void
    (post bulletin "/register"
          #:data
-         (jsexpr->string (hasheq 'input (bytes->hex-string
-                                         (integer->bytes point num-bytes #f #t))
+         (jsexpr->string (hasheq 'input (natural->hex-string point)
                                  'name username))))
 
   (display "retrieving peers...")
-- 
2.38.4