From b670a1c15fd13b69d401acd272824e1c3cd7442e Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Wed, 25 Oct 2023 16:25:27 -0500
Subject: [PATCH] Fix tax calculationj

---
 src/Order.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Order.hs b/src/Order.hs
index 1f54a40..8ea88ca 100644
--- 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