diff options
Diffstat (limited to 'handlers.rkt')
| -rw-r--r-- | handlers.rkt | 16 |
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] |