From 6247595145090e664ec90839187f766f0782824b Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Fri, 12 Nov 2021 19:52:09 -0500
Subject: [PATCH] refactored adjustServerParams

---
 src/Network/GemServ.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/src/Network/GemServ.hs b/src/Network/GemServ.hs
index 12e81a0..64b7263 100644
--- a/src/Network/GemServ.hs
+++ b/src/Network/GemServ.hs
@@ -197,12 +197,13 @@ adjustServerParams certRef params = let
   hooks    = serverHooks params
   certHook = onClientCertificate hooks
 
-  certHook' chain = case chain of
-    CertificateChain []     -> certHook chain
-    CertificateChain (se:_) -> do
-      let cert = signedObject $ getSigned se
-      writeIORef certRef (Just cert)
-      certHook chain
+  certHook' chain = do
+    case chain of
+      CertificateChain []     -> return ()
+      CertificateChain (se:_) -> do
+        let cert = signedObject $ getSigned se
+        writeIORef certRef (Just cert)
+    certHook chain
 
   hooks' = hooks { onClientCertificate = certHook' }
   in params { serverHooks = hooks' }