open Types
open Exported_types

module Public : sig
  val ping : (unit, unit) Decl.Request.t
  val diagnostics : (unit, Diagnostic.t list) Decl.Request.t
  val shutdown : unit Decl.Notification.t
  val format_dune_file : (Path.t * [ `Contents of string ], string) Decl.Request.t
  val promote : (Path.t, unit) Decl.Request.t
  val promote_many : (Files_to_promote.t, Build_outcome_with_diagnostics.t) Decl.request
  val build_dir : (unit, Path.t) Decl.Request.t
end

module Server_side : sig
  val abort : Message.t Decl.Notification.t
  val log : Message.t Decl.Notification.t
end

module Poll : sig
  type 'a t

  val poll : 'a t -> (Id.t, 'a option) Decl.Request.t
  val cancel : 'a t -> Id.t Decl.Notification.t

  module Name : sig
    type t

    val make : string -> t
    val compare : t -> t -> Ordering.t
  end

  val make : Name.t -> (Id.t, 'a option) Decl.Request.gen list -> 'a t
  val name : 'a t -> Name.t
  val progress : Progress.t t
  val diagnostic : Diagnostic.Event.t list t
  val running_jobs : Job.Event.t list t
end