From c74b75d025a5a68c432ffe2876aa1913dc5f497d Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Tue, 2 May 2023 14:14:07 -0500
Subject: [PATCH] Add debugging

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

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 64a7709..7cf505f 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1335,6 +1335,7 @@ payOwner p d x =
             markOwnerPaid :: Pipe -> T.Text -> Payment -> IO ()
             markOwnerPaid pipe db pmt = do
               user <- access pipe master db (findUser $ psession pmt)
+              print pmt
               let parsedUser = parseUserBson =<< user
               let zaddy = maybe "" uaddress parsedUser
               owner <- access pipe master db $ findOwner zaddy