From 84c6d82e980c29ffb2da1a6be45174ec8ec43a06 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Wed, 28 Sep 2022 13:54:42 -0500
Subject: [PATCH] Add reference message for Xero payment

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

diff --git a/src/Xero.hs b/src/Xero.hs
index 7ddfb08..8d67b4f 100644
--- a/src/Xero.hs
+++ b/src/Xero.hs
@@ -418,6 +418,7 @@ payXeroInvoice pipe dbName inv address amt = do
                  [ "Invoice" .= object ["InvoiceNumber" .= inv]
                  , "Account" .= object ["Code" .= fromMaybe "" aCode]
                  , "Date" .= utctDay today
+                 , "Reference" .= ("Paid in Zcash through ZGo" :: String)
                  , "Amount" .= amt
                  ]) $
             addRequestHeader "Accept" "application/json" $