ENH sane defaults for income

dhall/Types.dhall

@@ -216,6 +216,7 @@ let Allocation = Allocation_ Amount
 let IntervalAllocation = Allocation_ (TimeAmount Interval)
 
 let Income =
+      { Type =
           { incGross : Decimal
           , incCurrency : CurID
           , incWhen : DatePat
@@ -228,6 +229,12 @@ let Income =
               TaggedAcnt
           , incToBal : TaggedAcnt
           }
+      , default =
+        { incPretax = [] : List Allocation
+        , incTaxes = [] : List Allocation
+        , incPosttaxx = [] : List Allocation
+        }
+      }
 
 let Transfer =
       { transFrom : TaggedAcnt
@@ -267,7 +274,7 @@ let ShadowTransfer =
 
 let Budget =
       { budgetLabel : Text
-      , incomes : List Income
+      , incomes : List Income.Type
       , pretax : List IntervalAllocation
       , tax : List IntervalAllocation
       , posttax : List IntervalAllocation