Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Fix WooCommerce API call

Browse source
This commit is contained in:
Rene Vergara 2022-12-06 12:09:35 -06:00
parent 7dfd18b33a
commit e098d65297
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/WooCommerce.hs
View file

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