Source file `suggestion.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
(****************************************************************************)
(*  ocaml-reviewdog - A reviewdog diagnostics json serializer for OCaml     *)
(*  SPDX-FileCopyrightText: 2025 Mathieu Barbin <mathieu.barbin@gmail.com>  *)
(*  SPDX-License-Identifier: MIT                                            *)
(****************************************************************************)

type t =
  { range : Range.t
  ; text : string
  }

let to_json { range; text } : Yojson.Basic.t =
  `Assoc [ "range", Range.to_json range; "text", `String text ]
;;