Source file `codec_null.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type t = unit

let name = "null"

let create () = ()

let compress () data = data

let decompress () data = data

let register () =
  Codec_registry.register name (module struct
    type nonrec t = t
    let name = name
    let create = create
    let compress = compress
    let decompress = decompress
  end : Codec_registry.CODEC)

let () = register ()