9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-02 19:53:36 +01:00
qp2/ocaml/To_md5.ml

12 lines
148 B
OCaml
Raw Normal View History

2019-01-25 11:39:31 +01:00
open Qptypes
open Sexplib
let to_md5 sexp_of_t t =
sexp_of_t t
|> Sexp.to_string
2023-02-24 18:05:45 +01:00
|> Digest.string
|> Digest.to_hex
2019-01-25 11:39:31 +01:00
|> MD5.of_string
;;