Ran formatter

This commit is contained in:
Ozzie Gooen 2022-05-27 14:09:17 -04:00
parent c2b90b7023
commit ba34c1abf1
2 changed files with 3 additions and 8 deletions

View File

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

View File

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