From 5df44b6b562e03fb38c2b234230438220daf6867 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Fri, 24 Feb 2023 18:05:45 +0100
Subject: [PATCH] Removed Cryptokit

---
 INSTALL.rst               | 2 +-
 external/qp2-dependencies | 2 +-
 ocaml/Makefile            | 2 +-
 ocaml/To_md5.ml           | 4 ++--
 ocaml/_tags               | 2 +-
 5 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/INSTALL.rst b/INSTALL.rst
index e37d31eb..e9f4aedb 100644
--- a/INSTALL.rst
+++ b/INSTALL.rst
@@ -316,7 +316,7 @@ OCaml
 
   .. code:: bash
 
-      opam install ocamlbuild cryptokit zmq sexplib ppx_sexp_conv ppx_deriving getopt
+      opam install ocamlbuild zmq sexplib ppx_sexp_conv ppx_deriving getopt
 
 
 Docopt
diff --git a/external/qp2-dependencies b/external/qp2-dependencies
index b8cd5815..ce14f57b 160000
--- a/external/qp2-dependencies
+++ b/external/qp2-dependencies
@@ -1 +1 @@
-Subproject commit b8cd5815bce14c9b880e3c5ea3d5fc2652f5955c
+Subproject commit ce14f57b50511825a9fedb096749200779d3f4d4
diff --git a/ocaml/Makefile b/ocaml/Makefile
index 8853a991..c03be131 100644
--- a/ocaml/Makefile
+++ b/ocaml/Makefile
@@ -43,7 +43,7 @@ $(QP_ROOT)/data/executables: remake_executables element_create_db.byte Qptypes.m
 	$(QP_ROOT)/ocaml/element_create_db.byte
 
 external_libs:
-	opam install cryptokit sexplib
+	opam install sexplib
 
 qpackage.odocl: $(MLIFILES)
 	ls $(MLIFILES) | sed "s/\.mli//" > qpackage.odocl
diff --git a/ocaml/To_md5.ml b/ocaml/To_md5.ml
index bc6608f9..1485678c 100644
--- a/ocaml/To_md5.ml
+++ b/ocaml/To_md5.ml
@@ -4,8 +4,8 @@ open Sexplib
 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 ())
+  |> Digest.string 
+  |> Digest.to_hex
   |> MD5.of_string
 ;;
 
diff --git a/ocaml/_tags b/ocaml/_tags
index 55b1c681..0ff23d59 100644
--- a/ocaml/_tags
+++ b/ocaml/_tags
@@ -1,4 +1,4 @@
-true: package(cryptokit,zarith,zmq,str,sexplib,ppx_sexp_conv,ppx_deriving,getopt)
+true: package(zarith,zmq,str,sexplib,ppx_sexp_conv,ppx_deriving,getopt)
 true: thread
 false: profile
 <*byte>   : linkdep(c_bindings.o), custom