squiggle/packages/squiggle-lang/src/rescript/ReducerProject/ReducerProject_ParseIncludes.res

@module("./ReducerProject_IncludeParser.js")
external parse__: string => array<array<string>> = "parse"

let parseIncludes = (expr: string): result<array<(string, string)>, SqError.Message.t> =>
  try {
    let answer = parse__(expr)
    // let logEntry = answer->Js.Array2.joinWith(",")
    // `parseIncludes: ${logEntry} for expr: ${expr}`->Js.log
    Belt.Array.map(answer, item => (item[0], item[1]))->Ok
  } catch {
  | Js.Exn.Error(obj) =>
    RESyntaxError(
      Belt.Option.getExn(Js.Exn.message(obj)),
      Reducer_Peggy_Parse.syntaxErrorToLocation(obj)->Some,
    )->Error
  }