From 8b60b3202cfd61b8e5b193ead31b91ae2aa0c33f Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 7 Aug 2006 21:39:24 +0000 Subject: [PATCH] contract svn: r3982 --- collects/web-server/servlet-helpers.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/web-server/servlet-helpers.ss b/collects/web-server/servlet-helpers.ss index fbd01beaa1..5c5a667510 100644 --- a/collects/web-server/servlet-helpers.ss +++ b/collects/web-server/servlet-helpers.ss @@ -113,8 +113,7 @@ (cond [(and (basic? basic-credentials) (match-authentication - (base64-decode (subbytes basic-credentials 6 (bytes-length basic-credentials)))) - ) + (base64-decode (subbytes basic-credentials 6 (bytes-length basic-credentials))))) => (lambda (user-pass) (cons (cadr user-pass) (caddr user-pass)))] [else #f])])) @@ -130,7 +129,7 @@ (provide/contract [get-host (url? (listof header?) . -> . symbol?)] ; XXX contract maybe - [extract-user-pass ((listof header?) . -> . (or/c false/c (cons/c string? string?)))] + [extract-user-pass ((listof header?) . -> . (or/c false/c (cons/c bytes? bytes?)))] [build-suspender (((listof xexpr?) (listof xexpr?)) ((listof (list/c symbol? string?)) (listof (list/c symbol? string?))) . opt-> .