20 lines
608 B
Plaintext
20 lines
608 B
Plaintext
@module("./ReducerProject_IncludeParser.js")
|
|
external parse__: string => array<array<string>> = "parse"
|
|
|
|
let parseIncludes = (expr: string): result<
|
|
array<(string, string)>,
|
|
Reducer_ErrorValue.errorValue,
|
|
> =>
|
|
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
|
|
}
|