peyotls 0.0.0.9 → 0.0.0.10
raw patch · 2 files changed
+4/−4 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
peyotls.cabal view
@@ -2,7 +2,7 @@ cabal-version: >= 1.8 name: peyotls-version: 0.0.0.9+version: 0.0.0.10 stability: Experimental author: Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer: Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -272,7 +272,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/peyotls.git- tag: peyotls-0.0.0.9+ tag: peyotls-0.0.0.10 library hs-source-dirs: src
src/Network/PeyoTLS/HandshakeMonad.hs view
@@ -86,8 +86,8 @@ handshakeValidate :: ValidateHandle h => X509.CertificateStore -> X509.CertificateChain -> HandshakeM h g [X509.FailedReason]-handshakeValidate cs cc@(X509.CertificateChain (c : _)) = gets fst >>= \t -> do- modify . first $ const t { TH.names = certNames $ X509.getCertificate c }+handshakeValidate cs cc@(X509.CertificateChain c) = gets fst >>= \t -> do+ modify . first $ const t { TH.names = certNames $ X509.getCertificate $ last c } lift . lift . lift $ validate (TH.tlsHandle t) cs cc handshakeValidate _ _ = error "empty certificate chain"