10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-16 02:53:51 +01:00
QuantumPackage/ocaml/To_md5.ml

12 lines
148 B
OCaml

open Qptypes
open Sexplib
let to_md5 sexp_of_t t =
sexp_of_t t
|> Sexp.to_string
|> Digest.string
|> Digest.to_hex
|> MD5.of_string
;;