2017-08-18 19:43:52 +02:00
|
|
|
open Qptypes
|
|
|
|
|
open Sexplib
|
2014-10-27 22:00:36 +01:00
|
|
|
|
|
|
|
|
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
|
|
|
|
|
;;
|
|
|
|
|
|
