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

Refactor

Browse source
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 =
if X509.Distinguished_name.equal
dn
(X509.Signing_request.info csr).subject
let subject = (X509.Signing_request.info csr).subject in
if X509.Distinguished_name.equal dn subject
then Ok ()
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 subject =