From d5d9d7fcdfcd46a8c604aab6e45289600a7f4fe9 Mon Sep 17 00:00:00 2001
From: chessai <chessai1996@gmail.com>
Date: Tue, 29 Oct 2024 16:34:30 -0500
Subject: [PATCH] use TLS defaultSupported in TxSimulator

Change-Id: Ic9bbb4b04cfc7c0767fa0ab6a9ec6085960423ab
---
 tools/cwtool/TxSimulator.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tools/cwtool/TxSimulator.hs b/tools/cwtool/TxSimulator.hs
index 631d4467dd..f7cff87f30 100644
--- a/tools/cwtool/TxSimulator.hs
+++ b/tools/cwtool/TxSimulator.hs
@@ -1,10 +1,12 @@
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE ImportQualifiedPost #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE ScopedTypeVariables #-}
+
 module TxSimulator
   where
 
@@ -57,6 +59,7 @@ import Chainweb.Version.Registry
 
 import Network.Connection
 import Network.HTTP.Client.TLS
+import Network.TLS.QUIC qualified as TLS
 import Servant.Client.Core
 import Servant.Client
 
@@ -270,7 +273,7 @@ setupClient :: SimConfig -> IO ClientEnv
 setupClient sc = flip mkClientEnv (scApiHostUrl sc) <$> newTlsManagerWith mgrSettings
   where
     mgrSettings = mkManagerSettings
-        (TLSSettingsSimple True False False def)
+        (TLSSettingsSimple True False False TLS.defaultSupported)
         Nothing
 
 -- | note, fetches [low - 1, hi] to have parent headers