FIX sign on income

2023-08-14 20:46:28 -04:00 · 2023-08-14 20:46:28 -04:00 · 2ebfe7a125
parent fa41ead348
commit 2ebfe7a125
1 changed files with 1 additions and 1 deletions
--- 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}