13 lines
381 B
Racket
13 lines
381 B
Racket
#lang racket/base
|
|
(require (prefix-in new: web-server/servlet-dispatch)
|
|
"../http/response-structs.rkt")
|
|
|
|
(define dispatch/servlet
|
|
(make-keyword-procedure
|
|
(lambda (kws kw-args gen)
|
|
(keyword-apply new:dispatch/servlet
|
|
kws
|
|
kw-args
|
|
(λ (req) (normalize-response (gen req)))))))
|
|
|
|
(provide (all-defined-out)) |