From 6eaaeb2353a826b6e73ee04267f004242450ee2a Mon Sep 17 00:00:00 2001 From: Edmund Noble Date: Thu, 19 Sep 2024 14:20:12 -0400 Subject: [PATCH] Add testnet05 --- haskell-src/lib/ChainwebData/Env.hs | 3 ++- haskell-src/lib/ChainwebData/Types.hs | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/haskell-src/lib/ChainwebData/Env.hs b/haskell-src/lib/ChainwebData/Env.hs index 258c124e..34fc1dfb 100644 --- a/haskell-src/lib/ChainwebData/Env.hs +++ b/haskell-src/lib/ChainwebData/Env.hs @@ -306,7 +306,8 @@ versionReader :: ReadM ChainwebVersion versionReader = eitherReader $ \case txt | map toLower txt == "mainnet01" || map toLower txt == "mainnet" -> Right "mainnet01" txt | map toLower txt == "testnet04" || map toLower txt == "testnet" -> Right "testnet04" - txt -> Left $ printf "Can'txt read chainwebversion: got %" txt + txt | map toLower txt == "testnet05" -> Right "testnet05" + txt -> Left $ printf "Can't read chainwebversion: got %" txt simpleVersionParser :: Parser ChainwebVersion simpleVersionParser = diff --git a/haskell-src/lib/ChainwebData/Types.hs b/haskell-src/lib/ChainwebData/Types.hs index 56178f00..09be60bb 100644 --- a/haskell-src/lib/ChainwebData/Types.hs +++ b/haskell-src/lib/ChainwebData/Types.hs @@ -124,4 +124,5 @@ withEventsMinHeight version errorMessage action = withVersion version onVersion "testnet04" -> Just 1_261_000 "recap-development" -> Just 14 "development" -> Just 0 + "testnet05" -> Just 0 _ -> Nothing