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

M bulletin.rkt

@@ 13,7 13,7 @@
 (require readline/readline)
 (require (only-in openssl/sha1 bytes->hex-string))
 
-(define state  'registering)
+(define state    'registering)
 (define _peers   (make-hasheq))
 (define _commits (make-hash))
 (define _outputs (make-hash))


@@ 68,10 68,10 @@
 
   (define (register request)
     (if (eq? state 'registering)
-        (let* ([params (bytes->jsexpr (request-post-data/raw request))]
+        (let* ([params   (bytes->jsexpr (request-post-data/raw request))]
                [username (hash-ref params 'username)]
                [password (hash-ref params 'password)]
-               [input (hash-ref params 'input)])
+               [input    (hash-ref params 'input)])
           (if (auth username password)
               ; check if username is already present
               (if (for/or ([(_ peer) _peers])