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

Add debugging to order payment

Browse source
This commit is contained in:
Rene Vergara 2023-06-19 18:06:21 -05:00
parent 9a87d43459
commit ae198541ee
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

@ -1460,6 +1460,7 @@ scanPayments config pipe = do
recordPayment :: recordPayment ::
Pipe -> T.Text -> T.Text -> (String, Double) -> IO () Pipe -> T.Text -> T.Text -> (String, Double) -> IO ()
recordPayment p dbName z x = do recordPayment p dbName z x = do
print x
o <- access p master dbName $ findOrderById (fst x) o <- access p master dbName $ findOrderById (fst x)
let xOrder = o >>= (cast' . Doc) let xOrder = o >>= (cast' . Doc)
case xOrder of case xOrder of