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

Add more debugging

Browse source
This commit is contained in:
Rene Vergara 2023-10-13 14:53:33 -05:00
parent a3eb5d29ee
commit 4558dfb8da
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/ZGoBackend.hs
View file

@ -2089,9 +2089,13 @@ scanTxNative config pipe = do
else error else error
"Couldn't parse externalInvoice for WooCommerce" "Couldn't parse externalInvoice for WooCommerce"
_ -> putStrLn "Not an integration order" _ -> putStrLn "Not an integration order"
else liftIO $ else do
access p master dbName $ print $
markOrderPaid (T.unpack orderId, zamount x) "Regular order" ++
T.unpack orderId ++ " " ++ show (zamount x)
liftIO $
access p master dbName $
markOrderPaid (T.unpack orderId, zamount x)
Left e -> print "Unable to parse order memo" Left e -> print "Unable to parse order memo"
debug = flip trace debug = flip trace