Add more debugging
This commit is contained in:
parent
a3eb5d29ee
commit
4558dfb8da
1 changed files with 7 additions and 3 deletions
|
@ -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"
|
||||||
|
|
Loading…
Reference in a new issue