suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

contract

Browse Source 
svn: r3982
This commit is contained in:
Jay McCarthy 2006-08-07 21:39:24 +00:00
parent 5bbf825a56
commit 8b60b3202c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/web-server/servlet-helpers.ss
View File

@ -113,8 +113,7 @@
(cond (cond
[(and (basic? basic-credentials) [(and (basic? basic-credentials)
(match-authentication (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) => (lambda (user-pass)
(cons (cadr user-pass) (caddr user-pass)))] (cons (cadr user-pass) (caddr user-pass)))]
[else #f])])) [else #f])]))
@ -130,7 +129,7 @@
(provide/contract (provide/contract
[get-host (url? (listof header?) . -> . symbol?)] [get-host (url? (listof header?) . -> . symbol?)]
; XXX contract maybe ; 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?)) [build-suspender (((listof xexpr?) (listof xexpr?))
((listof (list/c symbol? string?)) (listof (list/c symbol? string?))) ((listof (list/c symbol? string?)) (listof (list/c symbol? string?)))
. opt-> . . opt-> .