on master help sign in
Using "def".
commit55a20f46329fe100665d10f0310f1afe919eb4f8 authorKazu Yamamoto <kazu@iij.ad.jp> dateMon 21 Dec 2015, 13:44 (11 years ago) parent0079ef2
1 file changed+2−2
warp-tls/Network/Wai/Handler/WarpTLS.hs+2−2
warp-tls/Network/Wai/Handler/WarpTLS.hs+2−2
@@ -270,7 +270,7 @@ runServeTLSSocket' tlsset@TLSSettings{..} set credential sock serve =
270270 runServeSettingsConnectionMakerSecure set get serve
271271 where
272272 get = getter tlsset sock params
273− params = TLS.ServerParams {
273+ params = def { -- TLS.ServerParams
274274 TLS.serverWantClientCert = tlsWantClientCert
275275 , TLS.serverCACertificates = []
276276 , TLS.serverDHEParams = Nothing
@@ -286,7 +286,7 @@ runServeTLSSocket' tlsset@TLSSettings{..} set credential sock serve =
286286 shared = def {
287287 TLS.sharedCredentials = TLS.Credentials [credential]
288288 }
289− supported = TLS.Supported {
289+ supported = def { -- TLS.Supported
290290 TLS.supportedVersions = tlsAllowedVersions
291291 , TLS.supportedCiphers = tlsCiphers
292292 , TLS.supportedCompressions = [TLS.nullCompression]