Source file `ast.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
module Name = struct
  type t = string option
end

(** Information about the Ast, to move to lang *)
module Info = struct
  type t =
    { range : Range.t
    ; name : Name.t With_range.t
    ; kind : int
    ; detail : string option (* usually the type *)
    ; children : t list option
    }

  let make ~range ~name ~kind ?detail ?children () =
    { range; name; kind; detail; children }
end