@@ -236,6 +236,7 @@ import Data.ByteString qualified as B
236236import Data.ByteString.Lazy qualified as BL
237237import Data.CaseInsensitive qualified as CI
238238import Data.Data (Data)
239+import Data.Default.Class (def)
239240import Data.Function (on)
240241import Data.IORef
241242import Data.Kind (Constraint, Type)
@@ -584,10 +585,10 @@ req' method url body options m = do
584585 withReqManager (m request)
585586
586587-- | Perform an action using the global implicit 'L.Manager' that the rest
587−-- of the library uses. This allows to reuse connections that the
588+-- of the library uses. This allows us to reuse connections that the
588589-- 'L.Manager' controls.
589590withReqManager :: (MonadIO m) => (L.Manager -> m a) -> m a
590−withReqManager m = liftIO (readIORef globalManager) >>= m
591+withReqManager m = m globalManager
591592
592593-- | The global 'L.Manager' that 'req' uses. Here we just go with the
593594-- default settings, so users don't need to deal with this manager stuff at
@@ -600,16 +601,16 @@ withReqManager m = liftIO (readIORef globalManager) >>= m
600601-- manager. From that moment on the 'IORef' will be just reused—exactly the
601602-- behavior we want here in order to maximize connection sharing. GHC could
602603-- spoil the plan by inlining the definition, hence the @NOINLINE@ pragma.
603−globalManager :: IORef L.Manager
604+globalManager :: L.Manager
604605globalManager = unsafePerformIO $ do
605606 context <- NC.initConnectionContext
606607 let settings =
607608 L.mkManagerSettingsContext
608609 (Just context)
609− (NC.TLSSettingsSimple False False False)
610+ def
610611 Nothing
611612 manager <- L.newManager settings
612− newIORef manager
613+ return manager
613614{-# NOINLINE globalManager #-}
614615
615616----------------------------------------------------------------------------
@@ -715,7 +716,6 @@ data HttpConfig = HttpConfig
715716 -- @since 3.6.0
716717 httpConfigBodyPreviewLength :: forall a. (Num a) => a
717718 }
718− deriving (Typeable)
719719
720720-- | The default value of 'HttpConfig'.
721721--
@@ -1024,7 +1024,7 @@ instance (HttpMethod method) => RequestComponent (Tagged "method" method) where
10241024-- > -- https://%D1%8E%D0%BD%D0%B8%D0%BA%D0%BE%D0%B4.%D1%80%D1%84
10251025data Url (scheme :: Scheme) = Url Scheme (NonEmpty Text)
10261026 -- NOTE The second value is the path segments in reversed order.
1027− deriving (Eq, Ord, Show, Data, Typeable, Generic)
1027+ deriving (Eq, Ord, Show, Data, Generic)
10281028
10291029type role Url nominal
10301030
@@ -2011,7 +2011,7 @@ data HttpException
20112011 | -- | A wrapper with Aeson-produced 'String' describing why decoding
20122012 -- failed
20132013 JsonHttpException String
2014− deriving (Show, Typeable, Generic)
2014+ deriving (Show, Generic)
20152015
20162016instance Exception HttpException
20172017
@@ -2048,4 +2048,4 @@ data Scheme
20482048 Http
20492049 | -- | HTTPS
20502050 Https
2051− deriving (Eq, Ord, Show, Data, Typeable, Generic, TH.Lift)
2051+ deriving (Eq, Ord, Show, Data, Generic, TH.Lift)