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.7 +version: 0.0.0.8 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.7 + tag: peyotls-0.0.0.8 library hs-source-dirs: src diff --git a/src/Network/PeyoTLS/HandshakeMonad.hs b/src/Network/PeyoTLS/HandshakeMonad.hs --- a/src/Network/PeyoTLS/HandshakeMonad.hs +++ b/src/Network/PeyoTLS/HandshakeMonad.hs @@ -65,8 +65,8 @@ instance ValidateHandle Handle where validate _ cs (X509.CertificateChain cc) = X509.validate X509.HashSHA256 X509.defaultHooks - validationChecks cs validationCache ("", "") $ - X509.CertificateChain cc -- reverse cc + validationChecks cs validationCache ("", "") . + X509.CertificateChain $ reverse cc where validationCache = X509.ValidationCache (\_ _ _ -> return X509.ValidationCacheUnknown)