diff --git a/cardano-testnet/src/Testnet/Defaults.hs b/cardano-testnet/src/Testnet/Defaults.hs index fdfb5c06fa4..bae90ad5282 100644 --- a/cardano-testnet/src/Testnet/Defaults.hs +++ b/cardano-testnet/src/Testnet/Defaults.hs @@ -76,6 +76,7 @@ import qualified Data.Text as Text import Data.Time (UTCTime) import qualified Data.Vector as Vector import Data.Word (Word64) +import GHC.Exts (IsList (..)) import Lens.Micro import Numeric.Natural import System.FilePath (()) @@ -161,6 +162,7 @@ defaultYamlHardforkViaConfig :: ShelleyBasedEra era -> Aeson.KeyMap Aeson.Value defaultYamlHardforkViaConfig sbe = defaultYamlConfig <> tracers + <> fromList [("TraceOptions", Aeson.Object mempty)] <> protocolVersions sbe <> hardforkViaConfig sbe where diff --git a/cardano-testnet/src/Testnet/Property/Assert.hs b/cardano-testnet/src/Testnet/Property/Assert.hs index 6b83481aef1..7b52c65e0ae 100644 --- a/cardano-testnet/src/Testnet/Property/Assert.hs +++ b/cardano-testnet/src/Testnet/Property/Assert.hs @@ -117,7 +117,7 @@ assertChainExtended deadline nodeLoggingFormat nodeStdoutFile = withFrozenCallSt case nodeLoggingFormat of NodeLoggingFormatAsText -> IO.fileContains "Chain extended, new tip" nodeStdoutFile NodeLoggingFormatAsJson -> fileJsonGrep nodeStdoutFile $ \v -> - Aeson.parseMaybe (Aeson.parseJSON @(LogEntry Kind)) v == Just (LogEntry (Kind "TraceAddBlockEvent.AddedToCurrentChain")) + Aeson.parseMaybe (Aeson.parseJSON @(LogEntry Kind)) v == Just (LogEntry (Kind "AddedToCurrentChain")) newtype LogEntry a = LogEntry { unLogEntry :: a