18 lines
400 B
OCaml
18 lines
400 B
OCaml
|
include Stdlib.Digest
|
||
|
|
|
||
|
|
let error_msgf fmt = Fmt.kstr (fun msg -> Error (`Msg msg)) fmt
|
||
|
|
let pp ppf t = Fmt.string ppf (Stdlib.Digest.to_hex t)
|
||
|
|
|
||
|
|
let of_string str =
|
||
|
|
match of_hex str with
|
||
|
|
| v -> Ok v
|
||
|
|
| exception Invalid_argument _ -> error_msgf "Invalid digest value: %S" str
|
||
|
|
|
||
|
|
let length = String.length (string "")
|
||
|
|
|
||
|
|
module Map = Map.Make (struct
|
||
|
|
type nonrec t = t
|
||
|
|
|
||
|
|
let compare = compare
|
||
|
|
end)
|