LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-26 07:02:14 +02:00
Code Issues Releases Wiki Activity

Forgot To_md5.ml in previous commits

Browse Source
This commit is contained in:
Anthony Scemama 2014-10-27 22:00:36 +01:00
parent adadc45efa
commit dc9864e54f
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ocaml/To_md5.ml Normal file
View File

@ -0,0 +1,11 @@
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
;;