Source file `digest.ml`

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

module D = Dune_caml.Digest

module Set = String.Set

let file p = D.file (Path.to_string p)

let compare x y = Ordering.of_int (D.compare x y)

let to_string = D.to_hex

let from_hex = D.from_hex

let string = D.string

let to_string_raw s = s