class input_deflate :?level:int -> Netchannels.in_obj_channel ->Netchannels.in_obj_channel
let ch' = new input_deflate ch: Reading data from ch' deflates
data read from ch. Use this for compressing data while reading.
Note that ch isn't closed when ch' is closed.