10 lines
210 B
Scheme
10 lines
210 B
Scheme
#lang scheme
|
|
(require web-server/private/gzip
|
|
web-server/stuffers/stuffer)
|
|
|
|
(define gzip-stuffer
|
|
(make-stuffer gzip/bytes gunzip/bytes))
|
|
|
|
(provide/contract
|
|
[gzip-stuffer (stuffer/c bytes? bytes?)])
|