Linol_lwt.ProgressParams
val create : token:[ `Int of int | `String of string ] -> value:'a -> 'a t
include Linol_lsp.Import.Json.Jsonable.S1 with type 'a t := 'a t
val t_of_yojson : (Yojson.Safe.t -> 'a) -> Yojson.Safe.t -> 'a t
val yojson_of_t : ('a -> Yojson.Safe.t) -> 'a t -> Yojson.Safe.t