sihl 0.0.56 · OCaml Package

val names : string list

val retry_delay : 
  ([< `Read | `Set_and_create ], t, Utils.Time.duration)
    Fieldslib.Field.t_with_perm

val max_tries : 
  ([< `Read | `Set_and_create ], t, Base.int) Fieldslib.Field.t_with_perm

val failed : 
  ([< `Read | `Set_and_create ],
    t,
    Core.Ctx.t ->
    (Base.unit, Base.string) Base.Result.t Lwt.t)
    Fieldslib.Field.t_with_perm

val work : 
  ([< `Read | `Set_and_create ],
    t,
    Core.Ctx.t ->
    input:Base.string Base.option ->
    (Base.unit, Base.string) Base.Result.t Lwt.t)
    Fieldslib.Field.t_with_perm

val with_context : 
  ([< `Read | `Set_and_create ], t, Core.Ctx.t -> Core.Ctx.t)
    Fieldslib.Field.t_with_perm

val name : 
  ([< `Read | `Set_and_create ], t, Base.string) Fieldslib.Field.t_with_perm

val make_creator : 
  name:
    (([< `Read | `Set_and_create ], t, Base.string) Fieldslib.Field.t_with_perm ->
      'a ->
      ('b -> Base.string) * 'c) ->
  with_context:
    (([< `Read | `Set_and_create ], t, Core.Ctx.t -> Core.Ctx.t)
       Fieldslib.Field.t_with_perm ->
      'd ->
      ('e -> Core.Ctx.t -> Core.Ctx.t) * 'f) ->
  work:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       input:Base.string Base.option ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      'g ->
      ('h ->
      Core.Ctx.t ->
      input:Base.string Base.option ->
      (Base.unit, Base.string) Base.Result.t Lwt.t)
      * 'i) ->
  failed:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      'j ->
      ('k -> Core.Ctx.t -> (Base.unit, Base.string) Base.Result.t Lwt.t) * 'l) ->
  max_tries:
    (([< `Read | `Set_and_create ], t, Base.int) Fieldslib.Field.t_with_perm ->
      'm ->
      ('n -> Base.int) * 'o) ->
  retry_delay:
    (([< `Read | `Set_and_create ], t, Utils.Time.duration)
       Fieldslib.Field.t_with_perm ->
      'p ->
      ('q -> Utils.Time.duration) * 'r) ->
  's ->
  ('t -> t) * 'u

val create : 
  name:Base.string ->
  with_context:(Core.Ctx.t -> Core.Ctx.t) ->
  work:
    (Core.Ctx.t ->
      input:Base.string Base.option ->
      (Base.unit, Base.string) Base.Result.t Lwt.t) ->
  failed:(Core.Ctx.t -> (Base.unit, Base.string) Base.Result.t Lwt.t) ->
  max_tries:Base.int ->
  retry_delay:Utils.Time.duration ->
  t

val map : 
  name:
    (([< `Read | `Set_and_create ], t, Base.string) Fieldslib.Field.t_with_perm ->
      Base.string) ->
  with_context:
    (([< `Read | `Set_and_create ], t, Core.Ctx.t -> Core.Ctx.t)
       Fieldslib.Field.t_with_perm ->
      Core.Ctx.t ->
      Core.Ctx.t) ->
  work:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       input:Base.string Base.option ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      Core.Ctx.t ->
      input:Base.string Base.option ->
      (Base.unit, Base.string) Base.Result.t Lwt.t) ->
  failed:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      Core.Ctx.t ->
      (Base.unit, Base.string) Base.Result.t Lwt.t) ->
  max_tries:
    (([< `Read | `Set_and_create ], t, Base.int) Fieldslib.Field.t_with_perm ->
      Base.int) ->
  retry_delay:
    (([< `Read | `Set_and_create ], t, Utils.Time.duration)
       Fieldslib.Field.t_with_perm ->
      Utils.Time.duration) ->
  t

val iter : 
  name:
    (([< `Read | `Set_and_create ], t, Base.string) Fieldslib.Field.t_with_perm ->
      Base.unit) ->
  with_context:
    (([< `Read | `Set_and_create ], t, Core.Ctx.t -> Core.Ctx.t)
       Fieldslib.Field.t_with_perm ->
      Base.unit) ->
  work:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       input:Base.string Base.option ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      Base.unit) ->
  failed:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      Base.unit) ->
  max_tries:
    (([< `Read | `Set_and_create ], t, Base.int) Fieldslib.Field.t_with_perm ->
      Base.unit) ->
  retry_delay:
    (([< `Read | `Set_and_create ], t, Utils.Time.duration)
       Fieldslib.Field.t_with_perm ->
      Base.unit) ->
  Base.unit

val fold : 
  init:'a ->
  name:
    ('b ->
      ([< `Read | `Set_and_create ], t, Base.string)
        Fieldslib.Field.t_with_perm ->
      'c) ->
  with_context:
    ('d ->
      ([< `Read | `Set_and_create ], t, Core.Ctx.t -> Core.Ctx.t)
        Fieldslib.Field.t_with_perm ->
      'e) ->
  work:
    ('f ->
      ([< `Read | `Set_and_create ],
        t,
        Core.Ctx.t ->
        input:Base.string Base.option ->
        (Base.unit, Base.string) Base.Result.t Lwt.t)
        Fieldslib.Field.t_with_perm ->
      'g) ->
  failed:
    ('h ->
      ([< `Read | `Set_and_create ],
        t,
        Core.Ctx.t ->
        (Base.unit, Base.string) Base.Result.t Lwt.t)
        Fieldslib.Field.t_with_perm ->
      'i) ->
  max_tries:
    ('j ->
      ([< `Read | `Set_and_create ], t, Base.int) Fieldslib.Field.t_with_perm ->
      'k) ->
  retry_delay:
    ('l ->
      ([< `Read | `Set_and_create ], t, Utils.Time.duration)
        Fieldslib.Field.t_with_perm ->
      'm) ->
  'n

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

val for_all : 
  name:
    (([< `Read | `Set_and_create ], t, Base.string) Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  with_context:
    (([< `Read | `Set_and_create ], t, Core.Ctx.t -> Core.Ctx.t)
       Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  work:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       input:Base.string Base.option ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  failed:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  max_tries:
    (([< `Read | `Set_and_create ], t, Base.int) Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  retry_delay:
    (([< `Read | `Set_and_create ], t, Utils.Time.duration)
       Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  Base.bool

val exists : 
  name:
    (([< `Read | `Set_and_create ], t, Base.string) Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  with_context:
    (([< `Read | `Set_and_create ], t, Core.Ctx.t -> Core.Ctx.t)
       Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  work:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       input:Base.string Base.option ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  failed:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  max_tries:
    (([< `Read | `Set_and_create ], t, Base.int) Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  retry_delay:
    (([< `Read | `Set_and_create ], t, Utils.Time.duration)
       Fieldslib.Field.t_with_perm ->
      Base.bool) ->
  Base.bool

val to_list : 
  name:
    (([< `Read | `Set_and_create ], t, Base.string) Fieldslib.Field.t_with_perm ->
      'a) ->
  with_context:
    (([< `Read | `Set_and_create ], t, Core.Ctx.t -> Core.Ctx.t)
       Fieldslib.Field.t_with_perm ->
      'b) ->
  work:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       input:Base.string Base.option ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      'c) ->
  failed:
    (([< `Read | `Set_and_create ],
       t,
       Core.Ctx.t ->
       (Base.unit, Base.string) Base.Result.t Lwt.t)
       Fieldslib.Field.t_with_perm ->
      'd) ->
  max_tries:
    (([< `Read | `Set_and_create ], t, Base.int) Fieldslib.Field.t_with_perm ->
      'e) ->
  retry_delay:
    (([< `Read | `Set_and_create ], t, Utils.Time.duration)
       Fieldslib.Field.t_with_perm ->
      'f) ->
  'g list

module Direct : sig ... end

package sihl