11 lines
290 B
Scheme
11 lines
290 B
Scheme
#lang scheme
|
|
(require web-server/servlet-env
|
|
web-server/http)
|
|
|
|
(define (serve/dispatch dispatch)
|
|
(serve/servlet dispatch
|
|
#:servlet-path "/"
|
|
#:servlet-regexp #rx""))
|
|
|
|
(provide/contract
|
|
[serve/dispatch ((request? . -> . response/c) . -> . void)]) |