From dc9864e54f5295c91f4357b94ef09dd463f1da0d Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Mon, 27 Oct 2014 22:00:36 +0100
Subject: [PATCH] Forgot To_md5.ml in previous commits

---
 ocaml/To_md5.ml | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 ocaml/To_md5.ml

diff --git a/ocaml/To_md5.ml b/ocaml/To_md5.ml
new file mode 100644
index 00000000..33015d75
--- /dev/null
+++ b/ocaml/To_md5.ml
@@ -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
+;;
+