- #lang racket/base
- (require json
- racket/list
- web-server/http)
- (define (response/json output)
- (response
- 200 #"Okay" (current-seconds) #"application/json; charset=utf-8" empty
- (λ (out)
- (write-bytes (jsexpr->bytes output) out))))
- (provide (all-defined-out))
|
