Correct currency check in invdata

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