From 013feabd2016a24e26a0ce2713df7f3cee98fb45 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Thu, 22 Jun 2023 16:16:33 -0500
Subject: [PATCH] Correct Xero payment confirmation

---
 src/Xero.hs       | 1 +
 src/ZGoBackend.hs | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Xero.hs b/src/Xero.hs
index 49073f2..2540e10 100644
--- a/src/Xero.hs
+++ b/src/Xero.hs
@@ -463,5 +463,6 @@ payXeroInvoice pipe dbName inv address amt zec = do
             setRequestHost "api.xero.com" $
             setRequestMethod "PUT" defaultRequest
       res <- httpJSON req :: IO (Response Object)
+      print res
       return ()
     else error "Invalid parameters"
diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 906de71..ff68a61 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -747,7 +747,8 @@ routes pipe config = do
                                                              ]
                                                              False
                                                              (xi_number xI)
-                                                             (xi_shortcode xI)
+                                                             (xr_shortCode
+                                                                invReq)
                                                              (T.pack tk)
                                                      _ <-
                                                        liftAndCatchIO $