Source file `md5.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
include Md5_lib

let bin_shape_t =
  Shape.basetype (Shape.Uuid.of_string "f6bdcdd0-9f75-11e6-9a7e-d3020428efed") []
;;

let bin_size_t = Size.bin_size_md5
let bin_write_t = Write.bin_write_md5
let bin_read_t = Read.bin_read_md5

let __bin_read_t__ _buf ~pos_ref _vdigest =
  Common.raise_variant_wrong_type "Shape.Md5.t" !pos_ref
;;