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 to payment confirmation

Browse source
This commit is contained in:
Rene Vergara 2023-06-19 18:54:18 -05:00
parent ae198541ee
commit aff5e4f03d
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/ZGoBackend.hs
View file

@ -1448,6 +1448,7 @@ scanPayments config pipe = do
Right txs -> do Right txs -> do
let r = mkRegex ".*ZGo Order::([0-9a-fA-F]{24}).*" let r = mkRegex ".*ZGo Order::([0-9a-fA-F]{24}).*"
let k = filter (isRelevant r) txs let k = filter (isRelevant r) txs
print k
let j = map (getOrderId r) k let j = map (getOrderId r) k
mapM_ (recordPayment p (c_dbName config) z) j mapM_ (recordPayment p (c_dbName config) z) j
Left e -> print e Left e -> print e