@@ -585,10 +585,10 @@ req' method url body options m = do
585585 withReqManager (m request)
586586
587587-- | Perform an action using the global implicit 'L.Manager' that the rest
588−-- of the library uses. This allows to reuse connections that the
588+-- of the library uses. This allows us to reuse connections that the
589589-- 'L.Manager' controls.
590590withReqManager :: (MonadIO m) => (L.Manager -> m a) -> m a
591−withReqManager m = liftIO (readIORef globalManager) >>= m
591+withReqManager m = m globalManager
592592
593593-- | The global 'L.Manager' that 'req' uses. Here we just go with the
594594-- default settings, so users don't need to deal with this manager stuff at
@@ -601,7 +601,7 @@ withReqManager m = liftIO (readIORef globalManager) >>= m
601601-- manager. From that moment on the 'IORef' will be just reused—exactly the
602602-- behavior we want here in order to maximize connection sharing. GHC could
603603-- spoil the plan by inlining the definition, hence the @NOINLINE@ pragma.
604−globalManager :: IORef L.Manager
604+globalManager :: L.Manager
605605globalManager = unsafePerformIO $ do
606606 context <- NC.initConnectionContext
607607 let settings =
@@ -610,7 +610,7 @@ globalManager = unsafePerformIO $ do
610610 def
611611 Nothing
612612 manager <- L.newManager settings
613− newIORef manager
613+ return manager
614614{-# NOINLINE globalManager #-}
615615
616616----------------------------------------------------------------------------