Source file `backend_intf.ml`

1
2
3
4
5
6
7
8
9
10
11
module type S = sig
  val start : unit -> unit
  val print_user_message : User_message.t -> unit
  val set_status_line : User_message.Style.t Pp.t option -> unit
  val print_if_no_status_line : User_message.Style.t Pp.t -> unit
  val reset : unit -> unit
  val reset_flush_history : unit -> unit
  val finish : unit -> unit
end

type t = (module S)