ENH update types again
This commit is contained in:
parent
ca7fef7a56
commit
0dbe1590b5
|
@ -132,21 +132,21 @@ let addDay =
|
||||||
\(d : Natural) ->
|
\(d : Natural) ->
|
||||||
{ gYear = x.gmYear, gMonth = x.gmMonth, gDay = d }
|
{ gYear = x.gmYear, gMonth = x.gmMonth, gDay = d }
|
||||||
|
|
||||||
let mvP = nullVal // { mvSign = Some True }
|
let mvP = nullVal // { vmSign = Some True }
|
||||||
|
|
||||||
let mvN = nullVal // { mvSign = Some False }
|
let mvN = nullVal // { vmSign = Some False }
|
||||||
|
|
||||||
let mvNum = \(x : Natural) -> nullVal // { mvNum = Some x }
|
let mvNum = \(x : Natural) -> nullVal // { vmNum = Some x }
|
||||||
|
|
||||||
let mvDen = \(x : Natural) -> nullVal // { mvDen = Some x }
|
let mvDen = \(x : Natural) -> nullVal // { vmDen = Some x }
|
||||||
|
|
||||||
let mvNumP = \(x : Natural) -> mvP // { mvNum = Some x }
|
let mvNumP = \(x : Natural) -> mvP // { vmNum = Some x }
|
||||||
|
|
||||||
let mvNumN = \(x : Natural) -> mvN // { mvNum = Some x }
|
let mvNumN = \(x : Natural) -> mvN // { vmNum = Some x }
|
||||||
|
|
||||||
let mvDenP = \(x : Natural) -> mvP // { mvDen = Some x }
|
let mvDenP = \(x : Natural) -> mvP // { vmDen = Some x }
|
||||||
|
|
||||||
let mvDenN = \(x : Natural) -> mvN // { mvDen = Some x }
|
let mvDenN = \(x : Natural) -> mvN // { vmDen = Some x }
|
||||||
|
|
||||||
in { nullSplit
|
in { nullSplit
|
||||||
, nullMatch
|
, nullMatch
|
||||||
|
|
Loading…
Reference in New Issue