From b7a0dda7ad599b49ff5d3c8099488a1267bba7db Mon Sep 17 00:00:00 2001
From: Emmanuel Denloye-Ito <emmanuel.denloye@gmail.com>
Date: Wed, 10 Jan 2024 11:23:52 -0500
Subject: [PATCH] fix printf error

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

diff --git a/exec/TXG.hs b/exec/TXG.hs
index cc64623..a070394 100644
--- a/exec/TXG.hs
+++ b/exec/TXG.hs
@@ -482,7 +482,7 @@ esPostReq esConf version start end rks = do
 
 mkElasticSearchRequest :: MonadIO m => MonadThrow m => ElasticSearchConfig -> ChainwebVersion -> Int64 -> Int64 -> RequestKeys -> m HTTP.Request
 mkElasticSearchRequest esConf version start end rks = do
-    req <- HTTP.parseUrlThrow $ printf "%s:%d" (T.unpack $ hostnameToText $ esHost esConf) (show $ esPort esConf)
+    req <- HTTP.parseUrlThrow $ printf "%s:%s" (T.unpack $ hostnameToText $ esHost esConf) (show $ esPort esConf)
     currentTime <- liftIO $ getCurrentTimeInt64
     return req
       { HTTP.method = "POST"