FIX another typo
This commit is contained in:
parent
1fc07a20f4
commit
6e2598b274
|
@ -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 = "" }
|
||||
}
|
||||
|
||||
|
|
|
@ -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::{=}
|
||||
|
||||
|
|
Loading…
Reference in New Issue