raco fmt.

1 files changed, 8 insertions, 8 deletions

diff --git a/handlers.rkt b/handlers.rkt
index fb3f864..42ed13a 100644
--- a/handlers.rkt
+++ b/handlers.rkt
@@ -17,16 +17,16 @@
 (define (wrap-basic-auth handler)
   (lambda (req)
     (match (request->basic-credentials req)
-      [(cons user pass)
-       ;; credentials found → continue to dispatcher
-       (handler req)]
+      ;; credentials found → continue to dispatcher
+      [(cons user pass) (handler req)]
       [else
        ;; no credentials → trigger auth challenge
-       (response
-        401 #"Unauthorized" (current-seconds) TEXT/HTML-MIME-TYPE
-        (list
-         (make-basic-auth-header "Ferti Private Area"))
-        void)])))
+       (response 401
+                 #"Unauthorized"
+                 (current-seconds)
+                 TEXT/HTML-MIME-TYPE
+                 (list (make-basic-auth-header "Ferti Private Area"))
+                 void)])))
 
 (define-values (app-dispatch _)
   (dispatch-rules [("ferti") #:method "get" ferti]