From 2a91979a4b27c95677ee0a78a11a5f859d31a529 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 1 Nov 2007 12:39:06 +0000 Subject: [PATCH] pr8929 svn: r7609 --- .../web-server/configuration/configuration-table-structs.ss | 2 +- collects/web-server/dispatchers/dispatch-passwords.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/web-server/configuration/configuration-table-structs.ss b/collects/web-server/configuration/configuration-table-structs.ss index 474afb1d09..4479a64f56 100644 --- a/collects/web-server/configuration/configuration-table-structs.ss +++ b/collects/web-server/configuration/configuration-table-structs.ss @@ -51,7 +51,7 @@ [struct responders ([servlet (url? any/c . -> . response?)] [servlet-loading (url? any/c . -> . response?)] - [authentication (url? (cons/c symbol? string?) . -> . response?)] + [authentication (url? header? . -> . response?)] [servlets-refreshed (-> response?)] [passwords-refreshed (-> response?)] [file-not-found (request? . -> . response?)] diff --git a/collects/web-server/dispatchers/dispatch-passwords.ss b/collects/web-server/dispatchers/dispatch-passwords.ss index 298f4d63b3..ffc0e67d1b 100644 --- a/collects/web-server/dispatchers/dispatch-passwords.ss +++ b/collects/web-server/dispatchers/dispatch-passwords.ss @@ -122,5 +122,5 @@ conn (authentication-responder uri - `(WWW-Authenticate . ,(format " Basic realm=\"~a\"" realm))) + (make-header #"WWW-Authenticate" (string->bytes/utf-8 (format " Basic realm=\"~a\"" realm)))) method))) \ No newline at end of file