sandwich-contexts: support crypton-connection >= 0.4.0.0

codedownio · Jul 20, 2024 · 2879ca1 · 2879ca1
1 parent fa957c5
commit 2879ca1
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 0 deletions.
diff --git a/sandwich-contexts/lib/Test/Sandwich/Contexts/Waits.hs b/sandwich-contexts/lib/Test/Sandwich/Contexts/Waits.hs
@@ -38,6 +38,10 @@ import UnliftIO.Exception
 import UnliftIO.Retry
 import UnliftIO.Timeout
 
+#if MIN_VERSION_crypton_connection(0,4,0)
+import Data.Default (def)
+#endif
+
 
 -- | Keep trying an action up to a timeout while it fails with a 'FailureReason'.
 -- Use exponential backoff, with delays capped at 1 second.
@@ -95,6 +99,9 @@ tlsNoVerifySettings = mkManagerSettings tlsSettings Nothing
       settingDisableCertificateValidation = True
       , settingDisableSession = False
       , settingUseServerName = False
+#if MIN_VERSION_crypton_connection(0,4,0)
+      , settingsClientSupported = def
+#endif
       }
 
 -- | Send HTTP requests to url until we get a response with an given code.

diff --git a/sandwich-contexts/package.yaml b/sandwich-contexts/package.yaml
@@ -49,6 +49,7 @@ library:
   - containers
   - crypton-connection
   - exceptions
+  - data-default
   - filepath
   - http-client
   - http-conduit

diff --git a/sandwich-contexts/sandwich-contexts.cabal b/sandwich-contexts/sandwich-contexts.cabal
@@ -56,6 +56,7 @@ library
     , conduit-extra
     , containers
     , crypton-connection
+    , data-default
     , exceptions
     , filepath
     , http-client