diff --git a/peyotls.cabal b/peyotls.cabal --- a/peyotls.cabal +++ b/peyotls.cabal @@ -2,7 +2,7 @@ cabal-version: >= 1.8 name: peyotls -version: 0.0.0.6 +version: 0.0.0.7 stability: Experimental author: Yoshikuni Jujo maintainer: Yoshikuni Jujo @@ -272,7 +272,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/peyotls.git - tag: peyotls-0.0.0.6 + tag: peyotls-0.0.0.7 library hs-source-dirs: src diff --git a/src/Network/PeyoTLS/Client.hs b/src/Network/PeyoTLS/Client.hs --- a/src/Network/PeyoTLS/Client.hs +++ b/src/Network/PeyoTLS/Client.hs @@ -100,7 +100,8 @@ [(CertSecretKey, X509.CertificateChain)] -> X509.CertificateStore -> HandshakeM h g () dheHandshake t cr sr crts ca = do - cc@(X509.CertificateChain (c : _)) <- readHandshake + cc@(X509.CertificateChain cs) <- readHandshake + let c = last cs case X509.certPubKey . X509.signedObject $ X509.getSigned c of X509.PubKeyRSA pk -> succeedHandshake t pk cr sr cc crts ca X509.PubKeyECDSA cv pnt ->