8 lines
235 B
Racket
8 lines
235 B
Racket
#lang racket/base
|
|
(require (prefix-in new: web-server/dispatchers/dispatch-pathprocedure)
|
|
"../http/response-structs.rkt")
|
|
|
|
(define (make p d)
|
|
(new:make p (λ (req) (normalize-response (d req)))))
|
|
|
|
(provide (all-defined-out)) |