From de086e3a65bdb5815a13887fc8c8be9ccf393a78 Mon Sep 17 00:00:00 2001
From: Edmund Noble <edmundnoble@gmail.com>
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 bce315bd..30f5c5fe 100644
--- a/haskell-src/lib/ChainwebData/Env.hs
+++ b/haskell-src/lib/ChainwebData/Env.hs
@@ -339,7 +339,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 a3ef624c..243bbf6c 100644
--- a/haskell-src/lib/ChainwebData/Types.hs
+++ b/haskell-src/lib/ChainwebData/Types.hs
@@ -120,6 +120,7 @@ withEventsMinHeight version errorMessage action = withVersion version onVersion
     onVersion = \case
       "mainnet01" -> Just 1_722_500
       "testnet04" -> Just 1_261_000
+      "testnet05" -> Just 0
       "development" -> Just 14
       "fast-development" -> Just 0
       _ -> Nothing