From 691393562ac9ac4b0de376acdd5fd604c0cf31b7 Mon Sep 17 00:00:00 2001 From: David Florness Date: Tue, 10 Mar 2020 16:57:29 -0600 Subject: [PATCH] Tidying --- bulletin.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bulletin.rkt b/bulletin.rkt index e961168..9cc786e 100644 --- a/bulletin.rkt +++ b/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]) -- 2.38.4