Add reference message for Xero payment

2022-09-28 13:54:42 -05:00 · 2022-09-28 13:54:42 -05:00 · 84c6d82e98
parent 99efd43af8
commit 84c6d82e98
1 changed files with 1 additions and 0 deletions
--- 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" $