Module Make.GcSource

Sourcetype msg = [
  1. | `Msg of string
]
Sourcetype process_state = [
  1. | `Finalised of Stats.Latest_gc.stats
  2. | `Idle
  3. | `Running
]
Sourceval catch_errors : string -> exn -> ('a, [> `Msg of string ]) result Lwt.t
Sourceval map_errors : string -> Errs.t -> [> `Msg of string ]
Sourceval finalise_exn : ?wait:bool -> X.Repo.t -> [> `Finalised of Stats.Latest_gc.stats | `Idle | `Running ] Lwt.t
Sourceval start_exn : ?unlink:bool -> X.Repo.t -> XKey.t -> bool Lwt.t
Sourceval start : X.Repo.t -> XKey.t -> (bool, [> `Msg of string ]) result Lwt.t
Sourceval is_finished : X.Repo.t -> bool
Sourceval wait : X.Repo.t -> (Stats.Latest_gc.stats option, [> `Msg of string ]) result Lwt.t
Sourceval run : ?finished:((Stats.Latest_gc.stats, [> `Msg of string ]) result -> unit Lwt.t) -> X.Repo.t -> XKey.t -> (bool, [> `Msg of string ]) result Lwt.t
Sourceval is_allowed : X.Repo.t -> bool
Sourceval cancel : X.Repo.t -> bool
Sourceval latest_gc_target : X.Repo.t -> X.Commit.CA.hash Pack_key.t option