diff options
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) |