quantified.uncertainty/squiggle
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove -> in switch cases. close umuro/squiggle#59

Browse Source 
squiggle
This commit is contained in:
Umur Ozkul 2022-04-12 16:15:27 +02:00
parent 4fe72b8fb4
commit 05b5efce18
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/squiggle-lang/src/rescript/Reducer/Reducer_Expression/Reducer_Expression.res
View File

@ -70,9 +70,8 @@ let rec reduceExpression = (expression: t, bindings: T.bindings): result<express
} }
| T.EValue(_) => expression->Ok | T.EValue(_) => expression->Ok
| T.EBindings(_) => expression->Ok | T.EBindings(_) => expression->Ok
| T.EList(list) => | T.EList(list) => {
list let racc = list->Belt.List.reduceReverse(Ok(list{}), (racc, each: expression) =>
->Belt.List.reduceReverse(Ok(list{}), (racc, each: expression) =>
racc->Result.flatMap(acc => { racc->Result.flatMap(acc => {
each each
->replaceSymbols(bindings) ->replaceSymbols(bindings)
@ -81,7 +80,8 @@ let rec reduceExpression = (expression: t, bindings: T.bindings): result<express
}) })
}) })
) )
->Result.map(acc => acc->T.EList) racc->Result.map(acc => acc->T.EList)
}
} }
let doBindStatement = (statement: t, bindings: T.bindings) => { let doBindStatement = (statement: t, bindings: T.bindings) => {