14 lines
371 B
Racket
14 lines
371 B
Racket
#lang racket/base
|
|
(require racket/contract
|
|
web-server/servlet-env
|
|
web-server/servlet/servlet-structs
|
|
web-server/http)
|
|
|
|
(define (serve/dispatch dispatch)
|
|
(serve/servlet dispatch
|
|
#:servlet-path "/"
|
|
#:servlet-regexp #rx""))
|
|
|
|
(provide/contract
|
|
[serve/dispatch ((request? . -> . can-be-response?) . -> . void)])
|