reynir
/
cert-service
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Refactor

This commit is contained in:
Reynir Björnsson 2020-12-13 15:10:38 +01:00
parent 6f466f92a0
commit abd3d591f2
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/cert_service.ml
View File

@ -14,12 +14,11 @@ type t = {
} }
let check_csr_dn csr dn = let check_csr_dn csr dn =
if X509.Distinguished_name.equal let subject = (X509.Signing_request.info csr).subject in
dn if X509.Distinguished_name.equal dn subject
(X509.Signing_request.info csr).subject
then Ok () then Ok ()
else R.error_msgf "Bad subject in csr: %a" else R.error_msgf "Bad subject in csr: %a"
X509.Distinguished_name.pp (X509.Signing_request.info csr).subject X509.Distinguished_name.pp subject
let sign t csr user = let sign t csr user =
let subject = let subject =