Reorder E.A.R.reduce arguments

quantified-uncertainty · Oct 24, 2022 · a89599f · a89599f
1 parent 7e360b2
commit a89599f
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/Continuous.res b/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/Continuous.res
@@ -156,7 +156,7 @@ let reduce = (
   fn: (float, float) => result<float, 'e>,
 ): result<t, 'e> => {
   let merge = combinePointwise(~integralSumCachesFn, fn)
-  continuousShapes->E.A.R.foldM(merge, empty, _)
+  continuousShapes->E.A.R.foldM(empty, merge)
 }
 
 let mapYResult = (

diff --git a/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/Discrete.res b/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/Discrete.res
@@ -58,7 +58,7 @@ let reduce = (
   fn: (float, float) => result<float, 'e>,
 ): result<t, 'e> => {
   let merge = combinePointwise(~integralSumCachesFn, ~fn)
-  discreteShapes->E.A.R.foldM(merge, empty, _)
+  discreteShapes->E.A.R.foldM(empty, merge)
 }
 
 let updateIntegralSumCache = (t: t, integralSumCache): t => {

diff --git a/packages/squiggle-lang/src/rescript/Utility/E/E_A.res b/packages/squiggle-lang/src/rescript/Utility/E/E_A.res
@@ -143,7 +143,7 @@ module R = {
   let forM = (x: array<'a>, fn: 'a => result<'b, 'c>): result<array<'b>, 'c> =>
     firstErrorOrOpen(fmap(x, fn))
 
-  let foldM = (fn: ('c, 'a) => result<'b, 'e>, init: 'c, x: array<'a>): result<'c, 'e> => {
+  let foldM = (x: array<'a>, init: 'c, fn: ('c, 'a) => result<'b, 'e>): result<'c, 'e> => {
     let acc = ref(init)
     let final = ref(Ok())
     let break = ref(false)