Ran formatter
This commit is contained in:
parent
c2b90b7023
commit
ba34c1abf1
|
@ -66,15 +66,12 @@ module Prepare = {
|
||||||
}
|
}
|
||||||
|
|
||||||
module ToArrayRecordPairs = {
|
module ToArrayRecordPairs = {
|
||||||
let twoArgs = (input: t): result<(array<ts>), err> => {
|
let twoArgs = (input: t): result<array<ts>, err> => {
|
||||||
let array = input->ToValueArray.Array.openA
|
let array = input->ToValueArray.Array.openA
|
||||||
let pairs =
|
let pairs =
|
||||||
array->E.R.bind(pairs =>
|
array->E.R.bind(pairs =>
|
||||||
pairs
|
pairs
|
||||||
->E.A2.fmap(xyCoord =>
|
->E.A2.fmap(xyCoord => [xyCoord]->ToValueArray.Record.twoArgs)
|
||||||
[xyCoord]
|
|
||||||
->ToValueArray.Record.twoArgs
|
|
||||||
)
|
|
||||||
->E.A.R.firstErrorOrOpen
|
->E.A.R.firstErrorOrOpen
|
||||||
)
|
)
|
||||||
pairs
|
pairs
|
||||||
|
|
|
@ -43,9 +43,7 @@ let inputsTodist = (inputs: array<FunctionRegistry_Core.frValue>, makeDist) => {
|
||||||
let expressionValue =
|
let expressionValue =
|
||||||
xyCoords
|
xyCoords
|
||||||
->E.R.bind(r => r->XYShape.T.makeFromZipped->E.R2.errMap(XYShape.Error.toString))
|
->E.R.bind(r => r->XYShape.T.makeFromZipped->E.R2.errMap(XYShape.Error.toString))
|
||||||
->E.R2.fmap(r => ReducerInterface_ExpressionValue.EvDistribution(
|
->E.R2.fmap(r => ReducerInterface_ExpressionValue.EvDistribution(PointSet(makeDist(r))))
|
||||||
PointSet(makeDist(r)),
|
|
||||||
))
|
|
||||||
expressionValue
|
expressionValue
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user