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

Correct currency check in invdata

Browse source
This commit is contained in:
Rene Vergara 2023-06-22 10:10:19 -05:00
parent cd93f0031d
commit fb0144bbe1
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/ZGoBackend.hs
View file

@ -689,7 +689,7 @@ routes pipe config = do
Just xI -> do Just xI -> do
if xi_type xI == "ACCREC" if xi_type xI == "ACCREC"
then if xi_status xI == "AUTHORISED" then if xi_status xI == "AUTHORISED"
then if xi_currency xI == ocurrency o' then if xi_currency xI == T.toUpper (ocurrency o')
then if xi_total xI == xr_amount invReq then if xi_total xI == xr_amount invReq
then do then do
now <- liftIO getCurrentTime now <- liftIO getCurrentTime