package irmin-pack

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

Innovation. Community. Security.