From 611d234e1ac5d6d148fd8199dc4bacab8f553bd4 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Tue, 23 Oct 2018 21:20:51 +0200
Subject: [PATCH] remove dead code

---
 provision/vmm_sign.ml | 19 -------------------
 1 file changed, 19 deletions(-)

diff --git a/provision/vmm_sign.ml b/provision/vmm_sign.ml
index eb5b605..425c7b2 100644
--- a/provision/vmm_sign.ml
+++ b/provision/vmm_sign.ml
@@ -6,25 +6,6 @@ open Rresult.R.Infix
 
 open Astring
 
-let has oid exts =
-  List.exists (function (_, `Unsupported (x, _)) when x = oid -> true | _ -> false) exts
-
-let req oid exts f =
-  try
-    let ext = List.find (function (_, `Unsupported (x, _)) when x = oid -> true | _ -> false) exts in
-    match ext with
-    | (_, `Unsupported (_, y)) -> f y
-    | _ -> Error (`Msg "not found")
-  with Not_found -> Error (`Msg "not found")
-
-let opt oid exts f =
-  try
-    let ext = List.find (function (_, `Unsupported (x, _)) when x = oid -> true | _ -> false) exts in
-    match ext with
-    | (_, `Unsupported (_, y)) -> f y >>= fun x -> Ok (Some x)
-    | _ -> Ok None
-  with Not_found -> Ok None
-
 let sign dbname cacert key csr days =
   let ri = X509.CA.info csr in
   Logs.app (fun m -> m "signing certificate with subject %s"