diff --git a/src/cemerick/friend/workflows.clj b/src/cemerick/friend/workflows.clj index ab4e49a..021b76f 100644 --- a/src/cemerick/friend/workflows.clj +++ b/src/cemerick/friend/workflows.clj @@ -54,7 +54,8 @@ (make-auth user-record {::friend/workflow :http-basic ::friend/redirect-on-auth? false}) - (http-basic-deny realm request)) + ((or (:unauthenticated-handler (::friend/auth-config request)) + (partial http-basic-deny realm)) request)) {:status 400 :body "Malformed Authorization header for HTTP Basic authentication."})))) (defn interactive-login-redirect