squiggle/packages/squiggle-lang/__tests__/Reducer/Reducer_Helpers.res

18 lines
528 B
Plaintext
Raw Normal View History

// Reducer_Helpers
module ErrorValue = Reducer_ErrorValue
module InternalExpressionValue = ReducerInterface.InternalExpressionValue
2022-06-24 10:15:38 +00:00
let removeDefaultsInternal = (iev: InternalExpressionValue.t) => {
Not_found->raise
// switch iev {
// | Reducer_T.IEvBindings(nameSpace) =>
// Reducer_Bindings.removeOther(
// nameSpace,
// ReducerInterface.StdLib.internalStdLib,
// )->Reducer_T.IEvBindings
// | value => value
// }
}
let rRemoveDefaultsInternal = r => Belt.Result.map(r, removeDefaultsInternal)