From de5cae8ab7a6fe7e54eb50c8303358ba11b8b01d Mon Sep 17 00:00:00 2001 From: Pierre Thierry Date: Tue, 22 Jul 2025 03:35:05 +0200 Subject: [PATCH] Update HTTPS ManagerSettings example Use the http-client-tls package --- Network/Wreq/Lens.hs | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) diff --git a/Network/Wreq/Lens.hs b/Network/Wreq/Lens.hs index 0aa065d..b3cad82 100644 --- a/Network/Wreq/Lens.hs +++ b/Network/Wreq/Lens.hs @@ -126,30 +126,26 @@ import qualified Network.Wreq.Lens.TH as TH -- | A lens onto configuration of the connection manager provided by -- the http-client package. -- --- In this example, we enable the use of OpenSSL for (hopefully) +-- In this example, we enable the use of TLS for (hopefully) -- secure connections: -- -- @ ---import "OpenSSL.Session" ('OpenSSL.Session.context') ---import "Network.HTTP.Client.OpenSSL" +--import "Network.HTTP.Client.TLS" -- ---let opts = 'Network.Wreq.defaults' 'Control.Lens.&' 'manager' 'Control.Lens..~' Left ('Network.HTTP.Client.OpenSSL.opensslManagerSettings' 'OpenSSL.Session.context') ---'Network.HTTP.Client.OpenSSL.withOpenSSL' $ --- 'Network.Wreq.getWith' opts \"https:\/\/httpbin.org\/get\" +--let opts = 'Network.Wreq.defaults' 'Control.Lens.&' 'manager' 'Control.Lens..~' Left 'Network.HTTP.Client.TLS.tlsManagerSettings' +--'Network.Wreq.getWith' opts \"https:\/\/httpbin.org\/get\" -- @ -- -- In this example, we also set the response timeout to 10000 microseconds: -- -- @ ---import "OpenSSL.Session" ('OpenSSL.Session.context') ---import "Network.HTTP.Client.OpenSSL" +--import "Network.HTTP.Client.TLS" --import "Network.HTTP.Client" ('Network.HTTP.Client.defaultManagerSettings', 'Network.HTTP.Client.managerResponseTimeout') -- ---let opts = 'Network.Wreq.defaults' 'Control.Lens.&' 'manager' 'Control.Lens..~' Left ('Network.HTTP.Client.OpenSSL.opensslManagerSettings' 'OpenSSL.Session.context') +--let opts = 'Network.Wreq.defaults' 'Control.Lens.&' 'manager' 'Control.Lens..~' Left 'Network.HTTP.Client.TLS.tlsManagerSettings' -- 'Control.Lens.&' 'manager' 'Control.Lens..~' Left ('Network.HTTP.Client.defaultManagerSettings' { 'Network.HTTP.Client.managerResponseTimeout' = responseTimeoutMicro 10000 } ) -- ---'Network.HTTP.Client.OpenSSL.withOpenSSL' $ --- 'Network.Wreq.getWith' opts \"https:\/\/httpbin.org\/get\" +--'Network.Wreq.getWith' opts \"https:\/\/httpbin.org\/get\" -- @ manager :: Lens' Options (Either ManagerSettings Manager) manager = TH.manager