FIX another typo

This commit is contained in:
Nathan Dwarshuis 2023-02-27 22:15:03 -05:00
parent 1fc07a20f4
commit 6e2598b274
2 changed files with 9 additions and 3 deletions

View File

@ -132,10 +132,16 @@ let Split =
\(a : Type) ->
\(v : Type) ->
\(c : Type) ->
{ sAcnt : a, sValue : v, sCurrency : c, sComment : Text }
\(t : Type) ->
{ sAcnt : a
, sValue : v
, sCurrency : c
, sComment : Text
, sTags : List t
}
let ExpSplit =
{ Type = Split SplitAcnt (Optional SplitNum) SplitCur
{ Type = Split SplitAcnt (Optional SplitNum) SplitCur TagID
, default = { sValue = None SplitNum, sComment = "" }
}

View File

@ -7,7 +7,7 @@ let T = ./Types.dhall
let nullSplit =
\(a : T.SplitAcnt) ->
\(c : T.SplitCur) ->
T.ExpSplit::{ sAcnt = a, sCurrency = c }
T.ExpSplit::{ sAcnt = a, sCurrency = c, sTags = [] : List T.TagID }
let nullOpts = T.TxOpts::{=}