From 4f44e3746270ece23fe0fc44e288e1a413791e19 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Thu, 18 May 2023 00:26:55 -0400
Subject: [PATCH] FIX use actually gross amt

---
 lib/Internal/Insert.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Internal/Insert.hs b/lib/Internal/Insert.hs
index 740d11b..be2838c 100644
--- a/lib/Internal/Insert.hs
+++ b/lib/Internal/Insert.hs
@@ -323,7 +323,7 @@ insertIncome
             tax =
               allocateTax precision gross preDeductions scaler $
                 flatTax ++ concatMap (selectAllos day) intTax
-            aftertaxGross = sumAllos $ tax ++ pre
+            aftertaxGross = gross - sumAllos (tax ++ pre)
             post =
               allocatePost precision aftertaxGross $
                 flatPost ++ concatMap (selectAllos day) intPost