From abd3d591f2c565a21f376a8abdc6f4127a57c424 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= <reynir@reynir.dk>
Date: Sun, 13 Dec 2020 15:10:38 +0100
Subject: [PATCH] Refactor

---
 lib/cert_service.ml | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/cert_service.ml b/lib/cert_service.ml
index fa230b0..11acecf 100644
--- a/lib/cert_service.ml
+++ b/lib/cert_service.ml
@@ -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 =