#lang scheme/base
(require web-server/http/request-structs
web-server/http/response-structs
net/url
mzlib/etc
scheme/contract
(planet bzlib/shp:1:1/request)
(planet bzlib/shp:1:1/proxy)
(planet bzlib/http/client)
"main.ss"
)
(define (request-helper request)
(parameterize (($request request))
($query* "s")))
(define (make-start base)
(lambda (request)
(let ((scripts (request-helper request)))
(http-client-response->response
(make-http-client-response "1.1"
200
"OK"
'(("Content-Type" . "text/javascript"))
(open-js/css-files/base scripts base))
(lambda (x) x)))))
(provide/contract
(make-start (-> path-string? (-> request? response/c)))
)