ENH split partn
This commit is contained in:
parent
33678e3908
commit
4c88151610
|
@ -90,17 +90,31 @@ let mRngYMD =
|
|||
|
||||
let PartEntry = { _1 : T.AcntID, _2 : Double, _3 : Text }
|
||||
|
||||
let partN =
|
||||
let partNFrom =
|
||||
\(ss : List PartEntry) ->
|
||||
let toEntry =
|
||||
\(x : PartEntry) ->
|
||||
nullEntry
|
||||
(T.EntryAcntGetter.ConstT x._1)
|
||||
(T.EntryNumGetter.ConstN x._2)
|
||||
// { eComment = x._3 }
|
||||
T.FromEntryGetter::{
|
||||
, eAcnt = T.EntryAcntGetter.ConstT x._1
|
||||
, eValue = T.EntryNumGetter.ConstN x._2
|
||||
, eComment = x._3
|
||||
}
|
||||
|
||||
in List/map PartEntry T.FromEntryGetter.Type toEntry ss
|
||||
|
||||
let partNTo =
|
||||
\(ss : List PartEntry) ->
|
||||
let toEntry =
|
||||
\(x : PartEntry) ->
|
||||
T.ToEntryGetter::{
|
||||
, eAcnt = T.EntryAcntGetter.ConstT x._1
|
||||
, eValue =
|
||||
T.LinkedEntryNumGetter.Getter (T.EntryNumGetter.ConstN x._2)
|
||||
, eComment = x._3
|
||||
}
|
||||
|
||||
in List/map PartEntry T.ToEntryGetter.Type toEntry ss
|
||||
|
||||
let addDay =
|
||||
\(x : T.GregorianM) ->
|
||||
\(d : Natural) ->
|
||||
|
@ -143,7 +157,8 @@ in { nullEntry
|
|||
, match1
|
||||
, greg
|
||||
, gregM
|
||||
, partN
|
||||
, partNFrom
|
||||
, partNTo
|
||||
, addDay
|
||||
, comma = 44
|
||||
, tab = 9
|
||||
|
|
Loading…
Reference in New Issue