@@ -25,7 +25,6 @@ module Network.Wai.Handler.WarpTLS (
2525 , tlsCiphers
2626 , tlsWantClientCert
2727 , tlsServerHooks
28− , tlsAllowSecureRenegotiation
2928 , onInsecure
3029 , OnInsecure (..)
3130 -- * Smart constructors
@@ -118,13 +117,6 @@ data TLSSettings = TLSSettings {
118117 -- Default: def
119118 --
120119 -- Since 3.0.2
121− , tlsAllowSecureRenegotiation :: Bool
122− -- ^Whether or not renegotiation is used.
123− --
124− -- >>> tlsAllowSecureRenegotiation defaultTlsSettings
125− -- True
126− --
127− -- Since 3.1.0
128120 }
129121
130122-- | Default 'TLSSettings'. Use this to create 'TLSSettings' with the field record name (aka accessors).
@@ -142,7 +134,6 @@ defaultTlsSettings = TLSSettings {
142134 , tlsCiphers = ciphers
143135 , tlsWantClientCert = False
144136 , tlsServerHooks = def
145− , tlsAllowSecureRenegotiation = True
146137 }
147138
148139-- taken from stunnel example in tls-extra
@@ -284,7 +275,7 @@ runTLSSocket' tlsset@TLSSettings{..} set credential sock app =
284275 , (TLS.HashSHA1, TLS.SignatureRSA)
285276 , (TLS.HashSHA1, TLS.SignatureDSS)
286277 ]
287− , TLS.supportedSecureRenegotiation = tlsAllowSecureRenegotiation
278+ , TLS.supportedSecureRenegotiation = True
288279 , TLS.supportedSession = True
289280 }
290281