@@ -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)
@@ -606,7 +607,7 @@ globalManager = unsafePerformIO $ do
606607 let settings =
607608 L.mkManagerSettingsContext
608609 (Just context)
609− (NC.TLSSettingsSimple False False False)
610+ (NC.TLSSettingsSimple False False False def)
610611 Nothing
611612 manager <- L.newManager settings
612613 newIORef manager