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