Source file `grace_ansi_renderer.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
open! Import
module Config = Config

let default_code_to_string _code = "E????"

let of_snippet_renderer
  snippet_of_diagnostic
  ?(config = Config.default)
  ?(code_to_string = default_code_to_string)
  ()
  ppf
  diagnostic
  =
  let snippet = Source_reader.with_reader @@ fun () -> snippet_of_diagnostic diagnostic in
  Snippet_renderer.pp_snippet ~config ~code_to_string ppf snippet
;;

let pp_diagnostic ?config = of_snippet_renderer Snippet.of_diagnostic ?config

let pp_compact_diagnostic ?config =
  of_snippet_renderer Snippet.compact_of_diagnostic ?config
;;