From fb0144bbe146a5eb5ada8242c7b82cf63b92fba7 Mon Sep 17 00:00:00 2001 From: Rene Vergara Date: Thu, 22 Jun 2023 10:10:19 -0500 Subject: [PATCH] Correct currency check in `invdata` --- src/ZGoBackend.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index d32c0da..d72b484 100644 --- a/src/ZGoBackend.hs +++ b/src/ZGoBackend.hs @@ -689,7 +689,7 @@ routes pipe config = do Just xI -> do if xi_type xI == "ACCREC" 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 do now <- liftIO getCurrentTime