Source file `related_location.ml`

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

type t =
  { message : string option
  ; location : Location.t
  }

let to_json { message; location } : Yojson.Basic.t =
  `Assoc
    (List.concat
       [ (match message with
          | None -> []
          | Some m -> [ "message", `String m ])
       ; [ "location", Location.to_json location ]
       ])
;;