Source file output_intf.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
open! Core
open! Import

module type S = sig
  (** An output can apply a style to a string and print a list of hunks *)

  module Rule : sig
    val apply : string -> rule:Format.Rule.t -> refined:bool -> string
  end

  val print
    :  print_global_header:bool
    -> file_names:File_name.t * File_name.t
    -> rules:Format.Rules.t
    -> print:(string -> unit)
    -> location_style:Format.Location_style.t
    -> Hunks.t
    -> unit
end

module type Output = sig
  module type S = S

  (** Ascii is Ansi with no styles. *)
  type t =
    | Ansi
    | Ascii
    | Html
  [@@deriving compare, sexp]

  val implies_unrefined : t -> bool
end