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.1.6.3 +version: 0.1.6.4 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.1.6.3 + tag: peyotls-0.1.6.4 library hs-source-dirs: src diff --git a/src/Network/PeyoTLS/Run/Handle.hs b/src/Network/PeyoTLS/Run/Handle.hs --- a/src/Network/PeyoTLS/Run/Handle.hs +++ b/src/Network/PeyoTLS/Run/Handle.hs @@ -157,7 +157,7 @@ adPut, adPut_ :: (HandleLike h, CPRG g) => HandleBase h g -> BS.ByteString -> M.TlsM h g () adPut_ = flip tWrite M.CTAppData -adPut h = mapM_ (adPut_ h) . divide (2 ^ (14 :: Int)) +adPut h = mapM_ (adPut_ h) . divide (2 ^ (13 :: Int)) divide :: Int -> BS.ByteString -> [BS.ByteString] divide _ "" = []