ENH split partn

This commit is contained in:
Nathan Dwarshuis 2023-06-19 13:21:20 -04:00
parent 33678e3908
commit 4c88151610
1 changed files with 21 additions and 6 deletions

View File

@ -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