10 lines
335 B
Racket
10 lines
335 B
Racket
#lang racket/base
|
|
(require (prefix-in new: web-server/http/response)
|
|
"../http/response-structs.rkt")
|
|
|
|
(define (output-response conn r)
|
|
(new:output-response conn (normalize-response r)))
|
|
(define (output-response/method conn r meth)
|
|
(new:output-response/method conn (normalize-response r) meth))
|
|
|
|
(provide (all-defined-out)) |