From 2ebfe7a125c6ca685b5a60365a4040738cb87e6a Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Mon, 14 Aug 2023 20:46:28 -0400
Subject: [PATCH] FIX sign on income

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

diff --git a/lib/Internal/Budget.hs b/lib/Internal/Budget.hs
index 23a3f1c..991192d 100644
--- a/lib/Internal/Budget.hs
+++ b/lib/Internal/Budget.hs
@@ -145,7 +145,7 @@ readIncome
         let allos = allo2Trans <$> (pre ++ tax ++ post)
         let primary =
               EntrySet
-                { esTotalValue = gross
+                { esTotalValue = -gross
                 , esCurrency = cpID cp
                 , esFrom = HalfEntrySet {hesPrimary = src, hesOther = []}
                 , esTo = HalfEntrySet {hesPrimary = dest, hesOther = allos}