9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-10-05 23:55:57 +02:00
qp2/ocaml/To_md5.ml
Anthony Scemama 5df44b6b56
Some checks failed
continuous-integration/drone/push Build is failing
Removed Cryptokit
2023-02-24 18:05:45 +01:00

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
;;