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.17 +version: 0.0.0.18 stability: Experimental author: Yoshikuni Jujo maintainer: Yoshikuni Jujo @@ -281,7 +281,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/peyotls.git - tag: peyotls-0.0.0.17 + tag: peyotls-0.0.0.18 library hs-source-dirs: src diff --git a/src/Network/PeyoTLS/Server.hs b/src/Network/PeyoTLS/Server.hs --- a/src/Network/PeyoTLS/Server.hs +++ b/src/Network/PeyoTLS/Server.hs @@ -198,7 +198,10 @@ -- debug "medium" e -- let rn = maybe False (ERenegoInfo "" `elem`) e -- debug "medium" rn - unless (cf == cf0) $ E.throwError "clientHello" + debug "low" "CLIENT FINISHES" + debug "low" cf + debug "low" cf0 +-- unless (cf == cf0) $ E.throwError "clientHello" chk cv cscl cms >> return (merge cssv cscl, cr, cv, rn) where merge sv cl = case find (`elem` cl) sv of