add GET to parseRequest

kadena-io · Jun 4, 2024 · 795e9fe · 795e9fe
1 parent 838078d
commit 795e9fe
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/exec/TXG.hs b/exec/TXG.hs
@@ -706,12 +706,12 @@ loadContracts config (ChainwebHost h _p2p service) contractLoaders = do
 
 queryCut :: Manager -> HostAddress -> ChainwebVersion -> IO (Either ApiError Cut)
 queryCut mgr (HostAddress h p) version = do
-  let url = "https://" <> hostnameToText h <> ":" <> portToText p <> "/chainweb/0.0/" <> chainwebVersionToText version <> "/cut"
+  let url = "GET https://" <> hostnameToText h <> ":" <> portToText p <> "/chainweb/0.0/" <> chainwebVersionToText version <> "/cut"
   req <- parseRequest $ T.unpack url
   res <- handleRequest req mgr
   case res of
     Left err -> do
-      putStrLn $ "The url is :" <> (T.unpack url)
+      putStrLn $ "The url is : " <> T.unpack url
       putStrLn $ "Error: " <> show err
       pure $ Left err
     Right response -> do