ocaml-webworker 0.0.1 · OCaml Package

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

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

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

val json_of_type_loc : 
  (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 : 
  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 * [> `String of string ]) list ]

val json_of_completions : 
  Query_protocol.Compl.t ->
  [> `Assoc of
       (string
        * [> `List of
               [> `Assoc of
                    (string
                     * [> `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
          | `List of 'a
          | `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 ])
         list ] as 'a

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

package ocaml-webworker