@@ -236,6 +236,7 @@ import Data.ByteString qualified as B
236import Data.ByteString.Lazy qualified as BL
236import Data.ByteString.Lazy qualified as BL
237import Data.CaseInsensitive qualified as CI
237import Data.CaseInsensitive qualified as CI
238import Data.Data (Data)
238import Data.Data (Data)
239+import Data.Default.Class (def)
239import Data.Function (on)
240import Data.Function (on)
240import Data.IORef
241import Data.IORef
241import Data.Kind (Constraint, Type)
242import Data.Kind (Constraint, Type)
@@ -606,7 +607,7 @@ globalManager = unsafePerformIO $ do
606 let settings =
607 let settings =
607 L.mkManagerSettingsContext
608 L.mkManagerSettingsContext
608 (Just context)
609 (Just context)
609− (NC.TLSSettingsSimple False False False)
610+ (NC.TLSSettingsSimple False False False def)
611 manager <- L.newManager settings
612 manager <- L.newManager settings
612 newIORef manager
613 newIORef manager