hg_lib v0.16.0 · OCaml Package

val names : string list

val files : 
  ([< `Read | `Set_and_create ],
    Open_hg_lib__.Hg_private.Changeset_info.Public.t,
    [ `Files of string list | `Omitted ])
    Fieldslib.Field.t_with_perm

val description : 
  ([< `Read | `Set_and_create ],
    Open_hg_lib__.Hg_private.Changeset_info.Public.t,
    string)
    Fieldslib.Field.t_with_perm

val tags : 
  ([< `Read | `Set_and_create ],
    Open_hg_lib__.Hg_private.Changeset_info.Public.t,
    string list)
    Fieldslib.Field.t_with_perm

val time : 
  ([< `Read | `Set_and_create ],
    Open_hg_lib__.Hg_private.Changeset_info.Public.t,
    Time_float_unix.t)
    Fieldslib.Field.t_with_perm

val author : 
  ([< `Read | `Set_and_create ],
    Open_hg_lib__.Hg_private.Changeset_info.Public.t,
    string)
    Fieldslib.Field.t_with_perm

val parents : 
  ([< `Read | `Set_and_create ],
    Open_hg_lib__.Hg_private.Changeset_info.Public.t,
    [ `One of Open_hg_lib__.Hg_private.Node.Public.t
    | `Two of
      Open_hg_lib__.Hg_private.Node.Public.t
      * Open_hg_lib__.Hg_private.Node.Public.t
    | `Zero ])
    Fieldslib.Field.t_with_perm

val node : 
  ([< `Read | `Set_and_create ],
    Open_hg_lib__.Hg_private.Changeset_info.Public.t,
    Open_hg_lib__.Hg_private.Node.Public.t)
    Fieldslib.Field.t_with_perm

val make_creator : 
  node:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Open_hg_lib__.Hg_private.Node.Public.t)
       Fieldslib.Field.t_with_perm ->
      'a ->
      ('b -> Open_hg_lib__.Hg_private.Node.Public.t) * 'c) ->
  parents:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `One of Open_hg_lib__.Hg_private.Node.Public.t
       | `Two of
         Open_hg_lib__.Hg_private.Node.Public.t
         * Open_hg_lib__.Hg_private.Node.Public.t
       | `Zero ])
       Fieldslib.Field.t_with_perm ->
      'c ->
      ('b ->
      [ `One of Open_hg_lib__.Hg_private.Node.Public.t
      | `Two of
        Open_hg_lib__.Hg_private.Node.Public.t
        * Open_hg_lib__.Hg_private.Node.Public.t
      | `Zero ])
      * 'd) ->
  author:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      'd ->
      ('b -> string) * 'e) ->
  time:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Time_float_unix.t)
       Fieldslib.Field.t_with_perm ->
      'e ->
      ('b -> Time_float_unix.t) * 'f) ->
  tags:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string list)
       Fieldslib.Field.t_with_perm ->
      'f ->
      ('b -> string list) * 'g) ->
  description:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      'g ->
      ('b -> string) * 'h) ->
  files:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `Files of string list | `Omitted ])
       Fieldslib.Field.t_with_perm ->
      'h ->
      ('b -> [ `Files of string list | `Omitted ]) * 'i) ->
  'a ->
  ('b -> Open_hg_lib__.Hg_private.Changeset_info.Public.t) * 'i

val create : 
  node:Open_hg_lib__.Hg_private.Node.Public.t ->
  parents:
    [ `One of Open_hg_lib__.Hg_private.Node.Public.t
    | `Two of
      Open_hg_lib__.Hg_private.Node.Public.t
      * Open_hg_lib__.Hg_private.Node.Public.t
    | `Zero ] ->
  author:string ->
  time:Time_float_unix.t ->
  tags:string list ->
  description:string ->
  files:[ `Files of string list | `Omitted ] ->
  Open_hg_lib__.Hg_private.Changeset_info.Public.t

val map : 
  node:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Open_hg_lib__.Hg_private.Node.Public.t)
       Fieldslib.Field.t_with_perm ->
      Open_hg_lib__.Hg_private.Node.Public.t) ->
  parents:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `One of Open_hg_lib__.Hg_private.Node.Public.t
       | `Two of
         Open_hg_lib__.Hg_private.Node.Public.t
         * Open_hg_lib__.Hg_private.Node.Public.t
       | `Zero ])
       Fieldslib.Field.t_with_perm ->
      [ `One of Open_hg_lib__.Hg_private.Node.Public.t
      | `Two of
        Open_hg_lib__.Hg_private.Node.Public.t
        * Open_hg_lib__.Hg_private.Node.Public.t
      | `Zero ]) ->
  author:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      string) ->
  time:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Time_float_unix.t)
       Fieldslib.Field.t_with_perm ->
      Time_float_unix.t) ->
  tags:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string list)
       Fieldslib.Field.t_with_perm ->
      string list) ->
  description:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      string) ->
  files:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `Files of string list | `Omitted ])
       Fieldslib.Field.t_with_perm ->
      [ `Files of string list | `Omitted ]) ->
  Open_hg_lib__.Hg_private.Changeset_info.Public.t

val iter : 
  node:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Open_hg_lib__.Hg_private.Node.Public.t)
       Fieldslib.Field.t_with_perm ->
      unit) ->
  parents:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `One of Open_hg_lib__.Hg_private.Node.Public.t
       | `Two of
         Open_hg_lib__.Hg_private.Node.Public.t
         * Open_hg_lib__.Hg_private.Node.Public.t
       | `Zero ])
       Fieldslib.Field.t_with_perm ->
      unit) ->
  author:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      unit) ->
  time:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Time_float_unix.t)
       Fieldslib.Field.t_with_perm ->
      unit) ->
  tags:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string list)
       Fieldslib.Field.t_with_perm ->
      unit) ->
  description:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      unit) ->
  files:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `Files of string list | `Omitted ])
       Fieldslib.Field.t_with_perm ->
      unit) ->
  unit

val fold : 
  init:'a ->
  node:
    ('a ->
      ([< `Read | `Set_and_create ],
        Open_hg_lib__.Hg_private.Changeset_info.Public.t,
        Open_hg_lib__.Hg_private.Node.Public.t)
        Fieldslib.Field.t_with_perm ->
      'b) ->
  parents:
    ('b ->
      ([< `Read | `Set_and_create ],
        Open_hg_lib__.Hg_private.Changeset_info.Public.t,
        [ `One of Open_hg_lib__.Hg_private.Node.Public.t
        | `Two of
          Open_hg_lib__.Hg_private.Node.Public.t
          * Open_hg_lib__.Hg_private.Node.Public.t
        | `Zero ])
        Fieldslib.Field.t_with_perm ->
      'c) ->
  author:
    ('c ->
      ([< `Read | `Set_and_create ],
        Open_hg_lib__.Hg_private.Changeset_info.Public.t,
        string)
        Fieldslib.Field.t_with_perm ->
      'd) ->
  time:
    ('d ->
      ([< `Read | `Set_and_create ],
        Open_hg_lib__.Hg_private.Changeset_info.Public.t,
        Time_float_unix.t)
        Fieldslib.Field.t_with_perm ->
      'e) ->
  tags:
    ('e ->
      ([< `Read | `Set_and_create ],
        Open_hg_lib__.Hg_private.Changeset_info.Public.t,
        string list)
        Fieldslib.Field.t_with_perm ->
      'f) ->
  description:
    ('f ->
      ([< `Read | `Set_and_create ],
        Open_hg_lib__.Hg_private.Changeset_info.Public.t,
        string)
        Fieldslib.Field.t_with_perm ->
      'g) ->
  files:
    ('g ->
      ([< `Read | `Set_and_create ],
        Open_hg_lib__.Hg_private.Changeset_info.Public.t,
        [ `Files of string list | `Omitted ])
        Fieldslib.Field.t_with_perm ->
      'h) ->
  'h

val map_poly : 
  ([< `Read | `Set_and_create ],
    Open_hg_lib__.Hg_private.Changeset_info.Public.t,
    'a)
    Fieldslib.Field.user ->
  'a list

val for_all : 
  node:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Open_hg_lib__.Hg_private.Node.Public.t)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  parents:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `One of Open_hg_lib__.Hg_private.Node.Public.t
       | `Two of
         Open_hg_lib__.Hg_private.Node.Public.t
         * Open_hg_lib__.Hg_private.Node.Public.t
       | `Zero ])
       Fieldslib.Field.t_with_perm ->
      bool) ->
  author:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  time:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Time_float_unix.t)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  tags:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string list)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  description:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  files:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `Files of string list | `Omitted ])
       Fieldslib.Field.t_with_perm ->
      bool) ->
  bool

val exists : 
  node:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Open_hg_lib__.Hg_private.Node.Public.t)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  parents:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `One of Open_hg_lib__.Hg_private.Node.Public.t
       | `Two of
         Open_hg_lib__.Hg_private.Node.Public.t
         * Open_hg_lib__.Hg_private.Node.Public.t
       | `Zero ])
       Fieldslib.Field.t_with_perm ->
      bool) ->
  author:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  time:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Time_float_unix.t)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  tags:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string list)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  description:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  files:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `Files of string list | `Omitted ])
       Fieldslib.Field.t_with_perm ->
      bool) ->
  bool

val to_list : 
  node:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Open_hg_lib__.Hg_private.Node.Public.t)
       Fieldslib.Field.t_with_perm ->
      'a) ->
  parents:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `One of Open_hg_lib__.Hg_private.Node.Public.t
       | `Two of
         Open_hg_lib__.Hg_private.Node.Public.t
         * Open_hg_lib__.Hg_private.Node.Public.t
       | `Zero ])
       Fieldslib.Field.t_with_perm ->
      'a) ->
  author:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      'a) ->
  time:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       Time_float_unix.t)
       Fieldslib.Field.t_with_perm ->
      'a) ->
  tags:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string list)
       Fieldslib.Field.t_with_perm ->
      'a) ->
  description:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       string)
       Fieldslib.Field.t_with_perm ->
      'a) ->
  files:
    (([< `Read | `Set_and_create ],
       Open_hg_lib__.Hg_private.Changeset_info.Public.t,
       [ `Files of string list | `Omitted ])
       Fieldslib.Field.t_with_perm ->
      'a) ->
  'a list

module Direct : sig ... end

package hg_lib