From ead6c2003eb651e134687b32c862193412661885 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 12 Jan 2011 15:28:43 -0700 Subject: [PATCH] Fixing a few functions to xexpr --- collects/web-server/servlet-env.rkt | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/collects/web-server/servlet-env.rkt b/collects/web-server/servlet-env.rkt index 05bad877d6..6405362f4e 100644 --- a/collects/web-server/servlet-env.rkt +++ b/collects/web-server/servlet-env.rkt @@ -28,11 +28,12 @@ (lift:make (lambda (request) (semaphore-post sema) - `(html (head (title "Server Stopped") - (link ([rel "stylesheet"] [href "/error.css"]))) - (body (div ([class "section"]) - (div ([class "title"]) "Server Stopped") - (p "Return to DrRacket."))))))) + (response/xexpr + `(html (head (title "Server Stopped") + (link ([rel "stylesheet"] [href "/error.css"]))) + (body (div ([class "section"]) + (div ([class "title"]) "Server Stopped") + (p "Return to DrRacket.")))))))) (define-runtime-path default-web-root (list 'lib @@ -97,8 +98,9 @@ [manager (make-threshold-LRU-manager (lambda (request) - `(html (head (title "Page Has Expired.")) - (body (p "Sorry, this page has expired. Please go back.")))) + (response/xexpr + `(html (head (title "Page Has Expired.")) + (body (p "Sorry, this page has expired. Please go back."))))) (* 128 1024 1024))] #:servlet-path