From 8efac69f40fb1d499b409f79283cc8e6518cc1ab Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Sat, 22 Nov 2025 12:34:09 +0100
Subject: raco fmt.

---
 handlers.rkt | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'handlers.rkt')

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]
-- 
cgit v1.2.3