@@ -238,17 +238,19 @@ runTLSSocket' tlsset@TLSSettings{..} set credential sock app =
238238 runSettingsConnectionMakerSecure set get app
239239 where
240240 get = getter tlsset sock params
241− params = def {
241+ params = TLS.ServerParams {
242242 TLS.serverWantClientCert = tlsWantClientCert
243− , TLS.serverSupported = def {
244− TLS.supportedVersions = tlsAllowedVersions
245− , TLS.supportedCiphers = tlsCiphers
243+ , TLS.serverCACertificates = []
244+ , TLS.serverDHEParams = Nothing
245+ , TLS.serverHooks = tlsServerHooks {
246+ TLS.onALPNClientSuggest = Just alpn
246247 }
247248 , TLS.serverShared = def {
248249 TLS.sharedCredentials = TLS.Credentials [credential]
249250 }
250− , TLS.serverHooks = tlsServerHooks {
251− TLS.onALPNClientSuggest = Just alpn
251+ , TLS.serverSupported = def {
252+ TLS.supportedVersions = tlsAllowedVersions
253+ , TLS.supportedCiphers = tlsCiphers
252254 }
253255 }
254256