@@ -585,10 +585,10 @@ req' method url body options m = do
585 withReqManager (m request)
585 withReqManager (m request)
587-- | Perform an action using the global implicit 'L.Manager' that the rest
587-- | Perform an action using the global implicit 'L.Manager' that the rest
588−-- of the library uses. This allows us to reuse connections that the
588+-- of the library uses. This allows to reuse connections that the
589-- 'L.Manager' controls.
589-- 'L.Manager' controls.
590withReqManager :: (MonadIO m) => (L.Manager -> m a) -> m a
590withReqManager :: (MonadIO m) => (L.Manager -> m a) -> m a
591−withReqManager m = m globalManager
591+withReqManager m = liftIO (readIORef globalManager) >>= m
593-- | The global 'L.Manager' that 'req' uses. Here we just go with the
593-- | The global 'L.Manager' that 'req' uses. Here we just go with the
594-- default settings, so users don't need to deal with this manager stuff at
594-- default settings, so users don't need to deal with this manager stuff at
@@ -601,7 +601,7 @@ withReqManager m = m globalManager
601-- manager. From that moment on the 'IORef' will be just reused—exactly the
601-- manager. From that moment on the 'IORef' will be just reused—exactly the
602-- behavior we want here in order to maximize connection sharing. GHC could
602-- behavior we want here in order to maximize connection sharing. GHC could
603-- spoil the plan by inlining the definition, hence the @NOINLINE@ pragma.
603-- spoil the plan by inlining the definition, hence the @NOINLINE@ pragma.
604−globalManager :: L.Manager
604+globalManager :: IORef L.Manager
605globalManager = unsafePerformIO $ do
605globalManager = unsafePerformIO $ do
606 context <- NC.initConnectionContext
606 context <- NC.initConnectionContext
607 let settings =
607 let settings =
@@ -610,7 +610,7 @@ globalManager = unsafePerformIO $ do
612 manager <- L.newManager settings
612 manager <- L.newManager settings
613− return manager
613+ newIORef manager
614{-# NOINLINE globalManager #-}
614{-# NOINLINE globalManager #-}
616----------------------------------------------------------------------------
616----------------------------------------------------------------------------
@@ -716,6 +716,7 @@ data HttpConfig = HttpConfig
716 -- @since 3.6.0
716 -- @since 3.6.0
717 httpConfigBodyPreviewLength :: forall a. (Num a) => a
717 httpConfigBodyPreviewLength :: forall a. (Num a) => a
720-- | The default value of 'HttpConfig'.
721-- | The default value of 'HttpConfig'.
@@ -1024,7 +1025,7 @@ instance (HttpMethod method) => RequestComponent (Tagged "method" method) where
1024-- > -- https://%D1%8E%D0%BD%D0%B8%D0%BA%D0%BE%D0%B4.%D1%80%D1%84
1025-- > -- https://%D1%8E%D0%BD%D0%B8%D0%BA%D0%BE%D0%B4.%D1%80%D1%84
1025data Url (scheme :: Scheme) = Url Scheme (NonEmpty Text)
1026data Url (scheme :: Scheme) = Url Scheme (NonEmpty Text)
1026 -- NOTE The second value is the path segments in reversed order.
1027 -- NOTE The second value is the path segments in reversed order.
1027− deriving (Eq, Ord, Show, Data, Generic)
1028+ deriving (Eq, Ord, Show, Data, Typeable, Generic)
1029type role Url nominal
1030type role Url nominal
@@ -2011,7 +2012,7 @@ data HttpException
2011 | -- | A wrapper with Aeson-produced 'String' describing why decoding
2012 | -- | A wrapper with Aeson-produced 'String' describing why decoding
2012 -- failed
2013 -- failed
2013 JsonHttpException String
2014 JsonHttpException String
2014− deriving (Show, Generic)
2015+ deriving (Show, Typeable, Generic)
2016instance Exception HttpException
2017instance Exception HttpException
@@ -2048,4 +2049,4 @@ data Scheme
2049 | -- | HTTPS
2050 | -- | HTTPS
2051− deriving (Eq, Ord, Show, Data, Generic, TH.Lift)
2052+ deriving (Eq, Ord, Show, Data, Typeable, Generic, TH.Lift)