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