Skip to content

Commit

Permalink
use TLS defaultSupported in TxSimulator
Browse files Browse the repository at this point in the history
Change-Id: Ic9bbb4b04cfc7c0767fa0ab6a9ec6085960423ab
  • Loading branch information
chessai committed Oct 29, 2024
1 parent 538c3b5 commit d5d9d7f
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion tools/cwtool/TxSimulator.hs
Original file line number Diff line number Diff line change
@@ -1,10 +1,12 @@
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE ScopedTypeVariables #-}

module TxSimulator
where

Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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
Expand Down

0 comments on commit d5d9d7f

Please sign in to comment.