Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Add reference message for Xero payment

Browse source
This commit is contained in:
Rene Vergara 2022-09-28 13:54:42 -05:00
parent 99efd43af8
commit 84c6d82e98
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Xero.hs
View file

@ -418,6 +418,7 @@ payXeroInvoice pipe dbName inv address amt = do
[ "Invoice" .= object ["InvoiceNumber" .= inv] [ "Invoice" .= object ["InvoiceNumber" .= inv]
, "Account" .= object ["Code" .= fromMaybe "" aCode] , "Account" .= object ["Code" .= fromMaybe "" aCode]
, "Date" .= utctDay today , "Date" .= utctDay today
, "Reference" .= ("Paid in Zcash through ZGo" :: String)
, "Amount" .= amt , "Amount" .= amt
]) $ ]) $
addRequestHeader "Accept" "application/json" $ addRequestHeader "Accept" "application/json" $