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
(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