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

Removed #:stateless?', #:stuffer', and mime stuff, since they were the

Browse Source 
defaults.

svn: r17420
This commit is contained in:
Eli Barzilay 2009-12-28 22:02:24 +00:00
parent e15f8b06f4
commit 8d246defb5
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/handin-server/web-status-server.ss
View File

@ -259,8 +259,6 @@
(require scheme/runtime-path (require scheme/runtime-path
web-server/web-server web-server/web-server
web-server/stuffers
web-server/private/mime-types
web-server/servlet-dispatch web-server/servlet-dispatch
(prefix-in lift: web-server/dispatchers/dispatch-lift) (prefix-in lift: web-server/dispatchers/dispatch-lift)
(prefix-in fsmap: web-server/dispatchers/filesystem-map) (prefix-in fsmap: web-server/dispatchers/filesystem-map)
@ -300,15 +298,11 @@
handin-server/private/config handin-server/private/config
handin-server/private/hooker handin-server/private/hooker
handin-server/private/reloadable) handin-server/private/reloadable)
#:stateless? #f
#:stuffer default-stuffer
#:current-directory server-dir #:current-directory server-dir
#:manager (make-threshold-LRU-manager #:manager (make-threshold-LRU-manager
(send-error "Your session has expired") (* 12 1024 1024))) (send-error "Your session has expired") (* 12 1024 1024)))
(files:make (files:make
#:url->path (fsmap:make-url->path (build-path server-dir "htdocs")) #:url->path (fsmap:make-url->path (build-path server-dir "htdocs"))
#:path->mime-type (make-path->mime-type
(build-path default-web-root "mime.types"))
#:indices '("index.html")) #:indices '("index.html"))
(lift:make (send-error "File not found"))))) (lift:make (send-error "File not found")))))