jlamothe/gemcap
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

refactored adjustServerParams

This commit is contained in:
Jonathan Lamothe 2021-11-12 19:52:09 -05:00
parent 7814705dd9
commit 6247595145
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Network/GemServ.hs
View File

@ -197,8 +197,9 @@ adjustServerParams certRef params = let
hooks = serverHooks params hooks = serverHooks params
certHook = onClientCertificate hooks certHook = onClientCertificate hooks
certHook' chain = case chain of certHook' chain = do
CertificateChain [] -> certHook chain case chain of
CertificateChain [] -> return ()
CertificateChain (se:_) -> do CertificateChain (se:_) -> do
let cert = signedObject $ getSigned se let cert = signedObject $ getSigned se
writeIORef certRef (Just cert) writeIORef certRef (Just cert)