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

Fixing a few functions to xexpr

Browse Source
This commit is contained in:
Jay McCarthy 2011-01-12 15:28:43 -07:00
parent 8b04595482
commit ead6c2003e
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/web-server/servlet-env.rkt
View File

@ -28,11 +28,12 @@
(lift:make (lift:make
(lambda (request) (lambda (request)
(semaphore-post sema) (semaphore-post sema)
`(html (head (title "Server Stopped") (response/xexpr
(link ([rel "stylesheet"] [href "/error.css"]))) `(html (head (title "Server Stopped")
(body (div ([class "section"]) (link ([rel "stylesheet"] [href "/error.css"])))
(div ([class "title"]) "Server Stopped") (body (div ([class "section"])
(p "Return to DrRacket."))))))) (div ([class "title"]) "Server Stopped")
(p "Return to DrRacket."))))))))
(define-runtime-path default-web-root (define-runtime-path default-web-root
(list 'lib (list 'lib
@ -97,8 +98,9 @@
[manager [manager
(make-threshold-LRU-manager (make-threshold-LRU-manager
(lambda (request) (lambda (request)
`(html (head (title "Page Has Expired.")) (response/xexpr
(body (p "Sorry, this page has expired. Please go back.")))) `(html (head (title "Page Has Expired."))
(body (p "Sorry, this page has expired. Please go back.")))))
(* 128 1024 1024))] (* 128 1024 1024))]
#:servlet-path #:servlet-path