merlin-lib 4.16-501 · OCaml Package

val dump : 'a Query_protocol.t -> Merlin_utils.Std.json

val string_of_completion_kind : 
  [< `Class
  | `Constructor
  | `Exn
  | `Keyword
  | `Label
  | `Method
  | `MethodCall
  | `Modtype
  | `Module
  | `Type
  | `Value
  | `Variant ] ->
  string

val with_location : 
  ?with_file:bool ->
  ?skip_none:bool ->
  Ocaml_parsing.Location.t ->
  (string
   * [> `Assoc of (string * [> `Int of int ]) list | `String of string ] as 'a)
    list ->
  [> `Assoc of (string * 'a) list ]

val json_of_type_loc : 
  (Ocaml_parsing.Location.t
   * [< `Index of 'a | `String of string ]
   * [< `No | `Tail_call | `Tail_position ]) ->
  [> `Assoc of
       (string
        * [> `Assoc of (string * [> `Int of int ]) list
          | `Int of 'a
          | `String of string ])
         list ]

val json_of_error : 
  Ocaml_parsing.Location.error ->
  [> `Assoc of
       (string
        * [> `Assoc of (string * [> `Int of int ]) list
          | `Bool of bool
          | `List of
            [> `Assoc of
                 (string
                  * [> `Assoc of (string * [> `Int of int ]) list
                    | `String of string ])
                   list ]
              list
          | `String of string ])
         list ]

val json_of_completion : 
  string Query_protocol.Compl.raw_entry ->
  [> `Assoc of (string * [> `Bool of bool | `String of string ]) list ]

val json_of_completions : 
  Query_protocol.Compl.t ->
  [> `Assoc of
       (string
        * [> `List of
               [> `Assoc of
                    (string
                     * [> `Bool of bool
                       | `List of
                         [> `Assoc of (string * [> `String of string ]) list ]
                           list
                       | `String of string ])
                      list
               | `String of string ]
                 list
          | `Null ])
         list ]

val json_of_outline : 
  Query_protocol.outline ->
  [> `Assoc of
       (string
        * [> `Assoc of (string * [> `Int of int ]) list
          | `Bool of bool
          | `List of 'a
          | `Null
          | `String of string ])
         list ]
    list as 'a

val json_of_shape : 
  Query_protocol.shape ->
  [> `Assoc of
       (string
        * [> `Assoc of (string * [> `Int of int ]) list
          | `List of 'a list
          | `String of string ])
         list ] as 'a

val json_of_locate : 
  [< `At_origin
  | `Builtin of string
  | `File_not_found of string
  | `Found of 'a option * Merlin_utils.Std.Lexing.position
  | `Invalid_context
  | `Not_found of string * string option
  | `Not_in_env of string ] ->
  [> `Assoc of
       (string
        * [> `Assoc of (string * [> `Int of int ]) list | `String of 'a ])
         list
  | `String of string ]

val json_of_response : 'a Query_protocol.t -> 'a -> Merlin_utils.Std.json

package merlin-lib