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 PartEntry = { _1 : T.AcntID, _2 : Double, _3 : Text }
|
||||||
|
|
||||||
let partN =
|
let partNFrom =
|
||||||
\(ss : List PartEntry) ->
|
\(ss : List PartEntry) ->
|
||||||
let toEntry =
|
let toEntry =
|
||||||
\(x : PartEntry) ->
|
\(x : PartEntry) ->
|
||||||
nullEntry
|
T.FromEntryGetter::{
|
||||||
(T.EntryAcntGetter.ConstT x._1)
|
, eAcnt = T.EntryAcntGetter.ConstT x._1
|
||||||
(T.EntryNumGetter.ConstN x._2)
|
, eValue = T.EntryNumGetter.ConstN x._2
|
||||||
// { eComment = x._3 }
|
, eComment = x._3
|
||||||
|
}
|
||||||
|
|
||||||
in List/map PartEntry T.FromEntryGetter.Type toEntry ss
|
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 =
|
let addDay =
|
||||||
\(x : T.GregorianM) ->
|
\(x : T.GregorianM) ->
|
||||||
\(d : Natural) ->
|
\(d : Natural) ->
|
||||||
|
@ -143,7 +157,8 @@ in { nullEntry
|
||||||
, match1
|
, match1
|
||||||
, greg
|
, greg
|
||||||
, gregM
|
, gregM
|
||||||
, partN
|
, partNFrom
|
||||||
|
, partNTo
|
||||||
, addDay
|
, addDay
|
||||||
, comma = 44
|
, comma = 44
|
||||||
, tab = 9
|
, tab = 9
|
||||||
|
|
Loading…
Reference in New Issue