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) -> \(a : Type) ->
\(v : Type) -> \(v : Type) ->
\(c : 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 = let ExpSplit =
{ Type = Split SplitAcnt (Optional SplitNum) SplitCur { Type = Split SplitAcnt (Optional SplitNum) SplitCur TagID
, default = { sValue = None SplitNum, sComment = "" } , default = { sValue = None SplitNum, sComment = "" }
} }

View File

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