struct type t = [ | `No_operation | `Long_running of (string * string) ] [@@deriving yojson] let nop : t = `No_operation end