reynir/albatross
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

remove dead code

Browse source
This commit is contained in:
Hannes Mehnert 2018-10-23 21:20:51 +02:00
parent d896d89bba
commit 611d234e1a
1 changed files with 0 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
provision/vmm_sign.ml
View file

@ -6,25 +6,6 @@ open Rresult.R.Infix
open Astring 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 sign dbname cacert key csr days =
let ri = X509.CA.info csr in let ri = X509.CA.info csr in
Logs.app (fun m -> m "signing certificate with subject %s" Logs.app (fun m -> m "signing certificate with subject %s"