Add more debugging

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

View file

@ -2089,7 +2089,11 @@ 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
print $
"Regular order" ++
T.unpack orderId ++ " " ++ show (zamount x)
liftIO $
access p master dbName $ access p master dbName $
markOrderPaid (T.unpack orderId, zamount x) markOrderPaid (T.unpack orderId, zamount x)
Left e -> print "Unable to parse order memo" Left e -> print "Unable to parse order memo"