mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 14:01:46 +02:00
12 lines
224 B
OCaml
12 lines
224 B
OCaml
|
open Core.Std;;
|
||
|
open Qptypes;;
|
||
|
|
||
|
let to_md5 sexp_of_t t =
|
||
|
sexp_of_t t
|
||
|
|> Sexp.to_string
|
||
|
|> Cryptokit.hash_string (Cryptokit.Hash.md5 ())
|
||
|
|> Cryptokit.transform_string (Cryptokit.Hexa.encode ())
|
||
|
|> MD5.of_string
|
||
|
;;
|
||
|
|