(** [mq pull]. *)

val run :
  Command.context ->
  remote:string option ->
  no_wait:bool ->
  (Merge_queue.Report.t, Merge_queue.Outcome.t) result
(** [run ctx ~remote ~no_wait] is [mq pull]: the fetch, the reconciliation under
    the run lock, then each of this machine's landings it put back through the
    queue landed in turn, one line each on standard error. *)

val import_notes :
  Command.context ->
  remote:string option ->
  writer:string ->
  (Merge_queue.Report.t, Merge_queue.Outcome.t) result
(** [import_notes ctx ~remote ~writer] is [mq pull --notes-from WRITER]: the
    check results of [writer]'s private checkpoint joined to this machine's
    ({!Repo.checkpoint_notes}, {!Repo.import_notes}). It reads only the remote
    [mq.backupRemote] names, which [remote], when given, must be, and refuses
    before any contact when that remote's push URL is not established private
    ({!Repo.remote_visibility}). *)