From e098d65297e68f17a7b122c76b03a23babe0fc6e Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Tue, 6 Dec 2022 12:09:35 -0600
Subject: [PATCH] Fix WooCommerce API call

---
 src/WooCommerce.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/WooCommerce.hs b/src/WooCommerce.hs
index 3544c15..02e17e2 100644
--- a/src/WooCommerce.hs
+++ b/src/WooCommerce.hs
@@ -60,7 +60,7 @@ payWooOrder ::
   -> BS.ByteString -- Total ZEC for order
   -> IO ()
 payWooOrder u i o t p z = do
-  wooReq <- parseRequest u
+  wooReq <- parseRequest $ u ++ "wc-api/zpmtcallback"
   let req =
         setRequestQueryString
           [ ("token", Just t)
@@ -70,6 +70,7 @@ payWooOrder u i o t p z = do
           , ("totalzec", Just z)
           ]
           wooReq
+  print req
   res <- httpLBS req
   if getResponseStatus res == ok200
     then return ()