Module `Git_store.Reference`Source

module SHA1 = Digestif.SHA1

Sourcetype t = string

Sourceval dir_sep : string

Sourceval dir_sep_char : char

val error_msgf : 
  ('a, Format.formatter, unit, ('b, [> `Msg of string ]) result) format4 ->
  'a

Sourceval validate_and_collapse_seps : string -> (string, [> `Msg of string ]) result

Sourceval of_string : string -> (string, [> `Msg of string ]) result

Sourceval v : string -> string

Sourceval is_seg : string -> bool

Sourceval add_seg : string -> string -> string

Sourceval append : string -> string -> string

Sourceval (/) : string -> string -> string

Sourceval (//) : string -> string -> string

Sourceval segs : string -> string list

Sourceval pp : Format.formatter -> string -> unit

Sourceval to_string : 'a -> 'a

Sourceval equal : String.t -> String.t -> bool

Sourceval compare : String.t -> String.t -> int

Sourceval head : string

Sourceval master : string

Sourceval main : string

Sourcemodule Ordered : sig ... end

Sourcemodule Map : sig ... end

Sourcemodule Set : sig ... end

Sourcetype contents =

val equal_contents : 
  equal:(SHA1.t -> SHA1.t -> bool) ->
  contents ->
  contents ->
  bool

val pp_contents : 
  pp:(Format.formatter -> SHA1.t -> unit) ->
  Format.formatter ->
  contents ->
  unit

val compare_contents : 
  compare:(SHA1.t -> SHA1.t -> int) ->
  contents ->
  contents ->
  int

Sourcemodule Packed : sig ... end

Sourcetype store = {

}

Sourceval reword_error : ('a -> 'b) -> ('c, 'a) result -> ('c, 'b) result

Sourceval contents : 'a -> string -> contents

val resolve : 
  store ->
  store ->
  String.t ->
  (SHA1.t, [> `Cycle | `Not_found of t ]) result Lwt.t

Sourceval read : store -> store -> t -> (contents, [> `Not_found of t ]) result Lwt.t

Sourceval write : store -> t -> contents -> (unit, 'a) result Lwt.t

Sourceval uid : SHA1.t -> contents

Sourceval ref : t -> contents

package git-kv