diff --git a/packages/squiggle-lang/src/rescript/FunctionRegistry/FunctionRegistry_Helpers.res b/packages/squiggle-lang/src/rescript/FunctionRegistry/FunctionRegistry_Helpers.res index ccc02f79..7a216f2d 100644 --- a/packages/squiggle-lang/src/rescript/FunctionRegistry/FunctionRegistry_Helpers.res +++ b/packages/squiggle-lang/src/rescript/FunctionRegistry/FunctionRegistry_Helpers.res @@ -66,15 +66,12 @@ module Prepare = { } module ToArrayRecordPairs = { - let twoArgs = (input: t): result<(array), err> => { + let twoArgs = (input: t): result, err> => { let array = input->ToValueArray.Array.openA let pairs = array->E.R.bind(pairs => pairs - ->E.A2.fmap(xyCoord => - [xyCoord] - ->ToValueArray.Record.twoArgs - ) + ->E.A2.fmap(xyCoord => [xyCoord]->ToValueArray.Record.twoArgs) ->E.A.R.firstErrorOrOpen ) pairs diff --git a/packages/squiggle-lang/src/rescript/FunctionRegistry/FunctionRegistry_Library.res b/packages/squiggle-lang/src/rescript/FunctionRegistry/FunctionRegistry_Library.res index a40d8678..6230f828 100644 --- a/packages/squiggle-lang/src/rescript/FunctionRegistry/FunctionRegistry_Library.res +++ b/packages/squiggle-lang/src/rescript/FunctionRegistry/FunctionRegistry_Library.res @@ -43,9 +43,7 @@ let inputsTodist = (inputs: array, makeDist) => { let expressionValue = xyCoords ->E.R.bind(r => r->XYShape.T.makeFromZipped->E.R2.errMap(XYShape.Error.toString)) - ->E.R2.fmap(r => ReducerInterface_ExpressionValue.EvDistribution( - PointSet(makeDist(r)), - )) + ->E.R2.fmap(r => ReducerInterface_ExpressionValue.EvDistribution(PointSet(makeDist(r)))) expressionValue }