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