FIX use actually gross amt

2023-05-18 00:26:55 -04:00 · 2023-05-18 00:26:55 -04:00 · 4f44e37462
parent 153b351eab
commit 4f44e37462
1 changed files with 1 additions and 1 deletions
--- 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