fix ES path string

kadena-io · Jan 30, 2024 · 3ea6401 · 3ea6401
1 parent 8149fd2
commit 3ea6401
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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" (T.unpack $ chainwebVersionToText version) (maybe "" show $ esIndex esConf)
+    idxName = printf "chainweb-%s-%s" (T.unpack $ chainwebVersionToText version) (fromMaybe "" $ 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