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

// Reducer_Helpers
module ErrorValue = Reducer_ErrorValue
module ExternalExpressionValue = ReducerInterface.ExternalExpressionValue
module InternalExpressionValue = ReducerInterface.InternalExpressionValue
module Bindings = Reducer_Bindings

let removeDefaultsInternal = (iev: InternalExpressionValue.t) => {
  switch iev {
  | InternalExpressionValue.IEvBindings(nameSpace) =>
    Bindings.removeOther(
      nameSpace,
      ReducerInterface.StdLib.internalStdLib,
    )->InternalExpressionValue.IEvBindings
  | value => value
  }
}

let removeDefaultsExternal = (ev: ExternalExpressionValue.t): ExternalExpressionValue.t =>
  ev->InternalExpressionValue.toInternal->removeDefaultsInternal->InternalExpressionValue.toExternal

let rRemoveDefaultsInternal = r => Belt.Result.map(r, removeDefaultsInternal)
let rRemoveDefaultsExternal = r => Belt.Result.map(r, removeDefaultsExternal)