TypeScript Decoder

typescript.re

module Decoder = {
  let node = json => {
    let syntaxKind = json |> Json.Decode.field("kind", Json.Decode.int);
    if (syntaxKind == Internal.SyntaxKind.declareKeyword) {
      Unknown;
    } else {
      Unknown;
    };
  }
  and declareKeyword = json =>
    DeclareKeyword(
      Json.Decode.{
        pos: json |> field("pos", int),
        end_: json |> field("end", int)
      }
    )
  and exportKeyword = json =>
    ExportKeyword(
      Json.Decode.{
        pos: json |> field("pos", int),
        end_: json |> field("end", int)
      }
    )
  and identifier = json =>
    Identifier(
      Json.Decode.{
        pos: json |> field("pos", int),
        end_: json |> field("end", int),
        escapedText: json |> field("escapedText", string),
        text: json |> field("text", string)
      }
    )
  and functionDeclaration = json =>
    FunctionDeclaration(
      Json.Decode.{
        pos: json |> field("pos", int),
        end_: json |> field("end", int),
        modifiers: json |> field("modifiers", array(node)),
        name: json |> field("name", node),
        typeParameters: json |> field("typeParameters", array(node)),
        parameters: json |> field("parameters", array(node)),
        type_: json |> field("type", node)
      }
    );
};