FIX sign on income
This commit is contained in:
parent
fa41ead348
commit
2ebfe7a125
|
@ -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}
|
||||
|
|
Loading…
Reference in New Issue