ENH sane defaults for income
This commit is contained in:
parent
ad4cb6a702
commit
2a38b52fc4
|
@ -216,6 +216,7 @@ let Allocation = Allocation_ Amount
|
||||||
let IntervalAllocation = Allocation_ (TimeAmount Interval)
|
let IntervalAllocation = Allocation_ (TimeAmount Interval)
|
||||||
|
|
||||||
let Income =
|
let Income =
|
||||||
|
{ Type =
|
||||||
{ incGross : Decimal
|
{ incGross : Decimal
|
||||||
, incCurrency : CurID
|
, incCurrency : CurID
|
||||||
, incWhen : DatePat
|
, incWhen : DatePat
|
||||||
|
@ -228,6 +229,12 @@ let Income =
|
||||||
TaggedAcnt
|
TaggedAcnt
|
||||||
, incToBal : TaggedAcnt
|
, incToBal : TaggedAcnt
|
||||||
}
|
}
|
||||||
|
, default =
|
||||||
|
{ incPretax = [] : List Allocation
|
||||||
|
, incTaxes = [] : List Allocation
|
||||||
|
, incPosttaxx = [] : List Allocation
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
let Transfer =
|
let Transfer =
|
||||||
{ transFrom : TaggedAcnt
|
{ transFrom : TaggedAcnt
|
||||||
|
@ -267,7 +274,7 @@ let ShadowTransfer =
|
||||||
|
|
||||||
let Budget =
|
let Budget =
|
||||||
{ budgetLabel : Text
|
{ budgetLabel : Text
|
||||||
, incomes : List Income
|
, incomes : List Income.Type
|
||||||
, pretax : List IntervalAllocation
|
, pretax : List IntervalAllocation
|
||||||
, tax : List IntervalAllocation
|
, tax : List IntervalAllocation
|
||||||
, posttax : List IntervalAllocation
|
, posttax : List IntervalAllocation
|
||||||
|
|
Loading…
Reference in New Issue