Adds spacer

This commit is contained in:
Roman Galochkin 2020-02-26 15:58:56 +03:00
parent 746d74da96
commit a9730c7480

View File

@ -6,7 +6,9 @@ module FormConfig = [%lenses
//
domainType: string, // Complete, LeftLimited(...), RightLimited(...), LeftAndRightLimited(..., ...)
xPoint: string,
xPoint2: string,
excludingProbabilityMass: string,
excludingProbabilityMass2: string,
//
unitType: string, // UnspecifiedDistribution, TimeDistribution(zero, unit)
zero: MomentRe.Moment.t,
@ -73,6 +75,8 @@ let make = () => {
guesstimatorString: "mm(5 to 20, floor(normal(20,2)), [.5, .5])",
domainType: "Complete",
xPoint: "50.0",
xPoint2: "60.0",
excludingProbabilityMass2: "0.5",
excludingProbabilityMass: "0.3",
unitType: "UnspecifiedDistribution",
zero: MomentRe.momentNow(),
@ -109,9 +113,9 @@ let make = () => {
reform.state.values.excludingProbabilityMass |> float_of_string,
},
{
xPoint: reform.state.values.xPoint |> float_of_string,
xPoint: reform.state.values.xPoint2 |> float_of_string,
excludingProbabilityMass:
reform.state.values.excludingProbabilityMass |> float_of_string,
reform.state.values.excludingProbabilityMass2 |> float_of_string,
},
)
| _ => Js.Exn.raiseError("domain is unknown")
@ -175,11 +179,22 @@ let make = () => {
}
/>
</div>
<div> <FieldString field=FormConfig.XPoint label="xPoint" /> </div>
<div>
<FieldString field=FormConfig.XPoint label="X-point" />
</div>
<div>
<FieldString
field=FormConfig.ExcludingProbabilityMass
label="excludingProbabilityMass"
label="Excluding Probability Mass"
/>
</div>
<div>
<FieldString field=FormConfig.XPoint2 label="X-point (2)" />
</div>
<div>
<FieldString
field=FormConfig.ExcludingProbabilityMass2
label="Excluding Probability Mass (2)"
/>
</div>
</div>
@ -210,7 +225,6 @@ let make = () => {
value
onChange={e => {
e |> handleChange;
_ => ();
}}
/>