From 7edf96de7adb2c4200e26fc0f78554c37a606a81 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 4 Feb 2009 19:33:17 +0000 Subject: [PATCH] bytes svn: r13420 --- .../htdocs/servlets/examples/template-full.ss | 2 +- collects/web-server/scribblings/dispatchers.scrbl | 11 ++++++----- collects/web-server/scribblings/templates.scrbl | 2 +- 3 files changed, 8 insertions(+), 7 deletions(-) diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/template-full.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/template-full.ss index 282cc4ffea..057fe1841a 100644 --- a/collects/web-server/default-web-root/htdocs/servlets/examples/template-full.ss +++ b/collects/web-server/default-web-root/htdocs/servlets/examples/template-full.ss @@ -7,7 +7,7 @@ (define (start initial-request) (make-response/full - 200 "Okay" + 200 #"Okay" (current-seconds) TEXT/HTML-MIME-TYPE empty (list (include-template "static.html")))) diff --git a/collects/web-server/scribblings/dispatchers.scrbl b/collects/web-server/scribblings/dispatchers.scrbl index eac8aab29a..0d18642f3c 100644 --- a/collects/web-server/scribblings/dispatchers.scrbl +++ b/collects/web-server/scribblings/dispatchers.scrbl @@ -439,21 +439,22 @@ Consider this example: (output-response/method conn (make-response/full - 200 "Okay" + 200 #"Okay" (current-seconds) TEXT/HTML-MIME-TYPE empty - (list (format "hello world ~a" + (list (string->bytes/utf-8 + (format "hello world ~a" (sort (build-list 100000 (λ x (random 1000))) - <)))) + <))))) (request-method req))) #:over-limit 'block)) (lambda (conn req) (output-response/method conn - (make-response/full 200 "Okay" + (make-response/full 200 #"Okay" (current-seconds) TEXT/HTML-MIME-TYPE empty - (list "Unlimited")) + (list #"Unlimited")) (request-method req)))) #:port 8080) diff --git a/collects/web-server/scribblings/templates.scrbl b/collects/web-server/scribblings/templates.scrbl index cf2db333bb..e0607a6516 100644 --- a/collects/web-server/scribblings/templates.scrbl +++ b/collects/web-server/scribblings/templates.scrbl @@ -257,7 +257,7 @@ the @scheme[list] response type: If you want more control then you can generate a @scheme[response/full] struct: @schemeblock[ (make-response/full - 200 "Okay" + 200 #"Okay" (current-seconds) TEXT/HTML-MIME-TYPE empty (list (include-template "static.html")))