refactored adjustServerParams

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' }