FIX sign on income

This commit is contained in:
Nathan Dwarshuis 2023-08-14 20:46:28 -04:00
parent fa41ead348
commit 2ebfe7a125
1 changed files with 1 additions and 1 deletions

View File

@ -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}