From b706f4ecf24578a7bd3c8aeec6ea23659cb3c648 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Thu, 27 Jun 2019 21:23:24 +0200
Subject: [PATCH] new x509

---
 src/monitoring_experiments.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/monitoring_experiments.ml b/src/monitoring_experiments.ml
index 7a32bdf..37fa8b6 100644
--- a/src/monitoring_experiments.ml
+++ b/src/monitoring_experiments.ml
@@ -202,7 +202,9 @@ DDGH2wmML4sbbol/cJOucUrvAsQxRj39y+N737ojNUgybgtLiv1FyKzmBx24u0Bb
 jfuLKkCfGcw9A8o=
 -----END CERTIFICATE-----
 |} in
-      X509.Encoding.Pem.Certificate.of_pem_cstruct1 data
+      match X509.Certificate.decode_pem data with
+      | Ok c -> c
+      | Error (`Parse e) -> invalid_arg e
 
     let create_tls ?(port = 8093) ?hostname ?(interval = 10) s certificates =
       Metrics.enable_all ();