From 838078d31f0f6e05beb6e3b81db260040ab88dac Mon Sep 17 00:00:00 2001 From: Emmanuel Denloye-Ito Date: Mon, 3 Jun 2024 19:06:12 -0400 Subject: [PATCH] print url --- exec/TXG.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/exec/TXG.hs b/exec/TXG.hs index 95019a0..da0c317 100644 --- a/exec/TXG.hs +++ b/exec/TXG.hs @@ -711,6 +711,7 @@ queryCut mgr (HostAddress h p) version = do res <- handleRequest req mgr case res of Left err -> do + putStrLn $ "The url is :" <> (T.unpack url) putStrLn $ "Error: " <> show err pure $ Left err Right response -> do