Fix tax calculationj

2023-10-25 16:25:27 -05:00 · 2023-10-25 16:25:27 -05:00 · b670a1c15f
parent 9bd94843b4
commit b670a1c15f
1 changed files with 2 additions and 2 deletions
--- a/src/Order.hs
+++ b/src/Order.hs
@ -261,8 +261,8 @@ updateOrderTotals o taxRate vatRate =
    (qexternalInvoice o)
    (qshortCode o)
    (qtoken o)
-    (qtax o)
-    (qvat o)
+    (updateTax o taxRate)
+    (updateTax o vatRate)
    (qtip o)
  where
    updateTax :: ZGoOrder -> Double -> Double