From 8149fd28f8adc4b442c236668299202c40d096d7 Mon Sep 17 00:00:00 2001
From: Emmanuel Denloye-Ito <emmanuel.denloye@gmail.com>
Date: Wed, 10 Jan 2024 11:50:02 -0500
Subject: [PATCH] correct ES index name

---
 exec/TXG.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/exec/TXG.hs b/exec/TXG.hs
index 514d5d7..2422828 100644
--- a/exec/TXG.hs
+++ b/exec/TXG.hs
@@ -496,7 +496,7 @@ mkElasticSearchRequest esConf version start end rks = do
       }
   where
     idxName :: String
-    idxName = printf "chainweb-%s-%s" (show version) (show $ esIndex esConf)
+    idxName = printf "chainweb-%s-%s" (T.unpack $ chainwebVersionToText version) (maybe "" show $ esIndex esConf)
     body now = HTTP.RequestBodyLBS $ mkItem $ mkElasticSearchPayload start end rks now
     mkItem x = "{\"index\":{}}" <> "\n" <> encode x <> "\n"
     mkElasticSearchPayload :: Int64 -> Int64 -> RequestKeys -> Int64 -> Value