From ae198541eed2b88a64195af0dd08d86301435fad Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Mon, 19 Jun 2023 18:06:21 -0500
Subject: [PATCH] Add debugging to order payment

---
 src/ZGoBackend.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 5f261d3..c9b9a21 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1460,6 +1460,7 @@ scanPayments config pipe = do
             recordPayment ::
                  Pipe -> T.Text -> T.Text -> (String, Double) -> IO ()
             recordPayment p dbName z x = do
+              print x
               o <- access p master dbName $ findOrderById (fst x)
               let xOrder = o >>= (cast' . Doc)
               case xOrder of