JSON (webkit_trace_event.Webkit_trace

val phase_of_kind : event_kind -> [> `String of string ]

This output is designed to mirror Yojson's JSON format, and can be passed directly to Yojson.to_channel, etc. to output it to file.

This library deliberately avoid including Yojson here to avoid bloating the dependency tree of its downstream users.

val json_of_event : 
  event ->
  [> `Assoc of
       (string
        * [> `Assoc of (string * [> `String of string ]) list
          | `Int of int
          | `String of string ])
         list ]

val json_of_events : 
  events ->
  [> `List of
       [> `Assoc of
            (string
             * [> `Assoc of (string * [> `String of string ]) list
               | `Int of int
               | `String of string ])
              list ]
         list ]