git.iko.soy/typeable/wai
on master help sign in
specifying ServerParams explicitly for readability.
5c85c30Kazu Yamamoto
warp-tls/Network/Wai/Handler/WarpTLS.hs+8−6
compare with master
unifiedsplit
@@ -238,17 +238,19 @@ runTLSSocket' tlsset@TLSSettings{..} set credential sock app =
238 runSettingsConnectionMakerSecure set get app
238 runSettingsConnectionMakerSecure set get app
239 where
239 where
240 get = getter tlsset sock params
240 get = getter tlsset sock params
241− params = def {
241+ params = TLS.ServerParams {
242 TLS.serverWantClientCert = tlsWantClientCert
242 TLS.serverWantClientCert = tlsWantClientCert
243− , TLS.serverSupported = def {
243+ , TLS.serverCACertificates = []
244− TLS.supportedVersions = tlsAllowedVersions
244+ , TLS.serverDHEParams = Nothing
245− , TLS.supportedCiphers = tlsCiphers
245+ , TLS.serverHooks = tlsServerHooks {
246+ TLS.onALPNClientSuggest = Just alpn
246 }
247 }
247 , TLS.serverShared = def {
248 , TLS.serverShared = def {
248 TLS.sharedCredentials = TLS.Credentials [credential]
249 TLS.sharedCredentials = TLS.Credentials [credential]
249 }
250 }
250− , TLS.serverHooks = tlsServerHooks {
251+ , TLS.serverSupported = def {
251− TLS.onALPNClientSuggest = Just alpn
252+ TLS.supportedVersions = tlsAllowedVersions
253+ , TLS.supportedCiphers = tlsCiphers
252 }
254 }
253 }
255 }
254
256