tls 1.5.5 → 1.5.6
raw patch · 5 files changed
+14/−2 lines, 5 files
Files
- CHANGELOG.md +4/−0
- Network/TLS/Handshake/Server.hs +2/−1
- Network/TLS/Parameters.hs +6/−0
- Network/TLS/Struct.hs +1/−0
- tls.cabal +1/−1
CHANGELOG.md view
@@ -1,3 +1,7 @@+## Version 1.5.6++- Dynamically setting enctypted extensions [#444](https://github.com/vincenthz/hs-tls/pull/444)+ ## Version 1.5.5 - QUIC support
Network/TLS/Handshake/Server.hs view
@@ -942,7 +942,8 @@ ,sniExtension ] ++ protoExt- loadPacket13 ctx $ Handshake13 [EncryptedExtensions13 extensions]+ extensions' <- liftIO $ onEncryptedExtensionsCreating (serverHooks sparams) extensions+ loadPacket13 ctx $ Handshake13 [EncryptedExtensions13 extensions'] sendNewSessionTicket applicationSecret sfSentTime = when sendNST $ do cfRecvTime <- getCurrentTimeFromBase
Network/TLS/Parameters.hs view
@@ -612,6 +612,11 @@ -- -- Default: 'Nothing' , onALPNClientSuggest :: Maybe ([B.ByteString] -> IO B.ByteString)+ -- | Allow to modify extensions to be sent in EncryptedExtensions+ -- of TLS 1.3.+ --+ -- Default: 'return . id'+ , onEncryptedExtensionsCreating :: [ExtensionRaw] -> IO [ExtensionRaw] } defaultServerHooks :: ServerHooks@@ -622,6 +627,7 @@ , onServerNameIndication = \_ -> return mempty , onNewHandshake = \_ -> return True , onALPNClientSuggest = Nothing+ , onEncryptedExtensionsCreating = return . id } instance Show ServerHooks where
Network/TLS/Struct.hs view
@@ -255,6 +255,7 @@ showEID 0x31 = "PostHandshakeAuth" showEID 0x32 = "SignatureAlgorithmsCert" showEID 0x33 = "KeyShare"+showEID 0x39 = "QuicTransportParameters" showEID 0xff01 = "SecureRenegotiation" showEID 0xffa5 = "QuicTransportParameters" showEID x = show x
tls.cabal view
@@ -1,5 +1,5 @@ Name: tls-Version: 1.5.5+Version: 1.5.6 Description: Native Haskell TLS and SSL protocol implementation for server and client. .