diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-01-08 20:50:46 -0800 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-01-08 20:50:46 -0800 |
| commit | 0acc595b943dedf6bf429e21e7b69aa2fcec767a (patch) | |
| tree | 3f369d1d3345c88f0f052a54fb0a51b656fe1927 /examples | |
| parent | 32de1aa783c65a7c489c924b3fa41ee08187c15b (diff) | |
| download | guile-0acc595b943dedf6bf429e21e7b69aa2fcec767a.tar.gz | |
(web http): keys are always symbols
* module/web/http.scm (parse-media-type): Parse media types as symbols.
(parse-key-value-list, parse-param-component, parse-param-list):
Change kons to val-parser. Always parse keys as symbols, and always
either cons, if there is a val, or just have the key, if there is no
val. Easier to explain and just as correct.
(declare-param-list-header!, declare-key-value-list-header!): Adapt to
key-list and param-list kons change.
("Cache-Control", "Pragma", "Transfer-Encoding", "Accept", "Expect")
("TE"): Likewise, adapt.
("Content-Type"): Param keys are symbols.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/web/debug-sxml.scm | 4 | ||||
| -rw-r--r-- | examples/web/hello.scm | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/examples/web/debug-sxml.scm b/examples/web/debug-sxml.scm index 4e6afc271..724a9bd6c 100644 --- a/examples/web/debug-sxml.scm +++ b/examples/web/debug-sxml.scm @@ -30,8 +30,8 @@ (status 200) (title default-title) (doctype html5-doctype) - (content-type-params '(("charset" . "utf-8"))) - (content-type "text/html") + (content-type-params '((charset . "utf-8"))) + (content-type 'text/html) (extra-headers '()) (sxml (and body (templatize #:title title #:body body)))) (values (build-response diff --git a/examples/web/hello.scm b/examples/web/hello.scm index db17b9b5b..aa383c589 100644 --- a/examples/web/hello.scm +++ b/examples/web/hello.scm @@ -23,7 +23,7 @@ ;; for us with a 200 OK status. ;; (define (handler request body) - (values '((content-type . ("text/plain"))) + (values '((content-type . (text/plain))) "Hello, World!")) (run-server handler) |