Fix WooCommerce API call

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 ()