Module `Handler.Fields`Source

Sourceval names : string list

val updated_at : 
  ([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm

Source

val created_at : 
  ([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm

Source

val questionnaires : 
  ([< `Read | `Set_and_create ], t, (string * Ask.Model.Questionnaire.t) list)
    Fieldslib.Field.t_with_perm

Source

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

Source

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

Sourceval id : ([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm

Source

val make_creator : 
  id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      'a ->
      ('b -> string) * 'c) ->
  member_id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      'c ->
      ('b -> string) * 'd) ->
  label:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      'd ->
      ('b -> string) * 'e) ->
  questionnaires:
    (([< `Read | `Set_and_create ],
       t,
       (string * Ask.Model.Questionnaire.t) list)
       Fieldslib.Field.t_with_perm ->
      'e ->
      ('b -> (string * Ask.Model.Questionnaire.t) list) * 'f) ->
  created_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      'f ->
      ('b -> Ptime.t) * 'g) ->
  updated_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      'g ->
      ('b -> Ptime.t) * 'h) ->
  'a ->
  ('b -> t) * 'h

Source

val create : 
  id:string ->
  member_id:string ->
  label:string ->
  questionnaires:(string * Ask.Model.Questionnaire.t) list ->
  created_at:Ptime.t ->
  updated_at:Ptime.t ->
  t

Source

val map : 
  id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      string) ->
  member_id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      string) ->
  label:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      string) ->
  questionnaires:
    (([< `Read | `Set_and_create ],
       t,
       (string * Ask.Model.Questionnaire.t) list)
       Fieldslib.Field.t_with_perm ->
      (string * Ask.Model.Questionnaire.t) list) ->
  created_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      Ptime.t) ->
  updated_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      Ptime.t) ->
  t

Source

val iter : 
  id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      unit) ->
  member_id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      unit) ->
  label:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      unit) ->
  questionnaires:
    (([< `Read | `Set_and_create ],
       t,
       (string * Ask.Model.Questionnaire.t) list)
       Fieldslib.Field.t_with_perm ->
      unit) ->
  created_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      unit) ->
  updated_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      unit) ->
  unit

Source

val fold : 
  init:'a ->
  id:
    ('a ->
      ([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      'b) ->
  member_id:
    ('b ->
      ([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      'c) ->
  label:
    ('c ->
      ([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      'd) ->
  questionnaires:
    ('d ->
      ([< `Read | `Set_and_create ],
        t,
        (string * Ask.Model.Questionnaire.t) list)
        Fieldslib.Field.t_with_perm ->
      'e) ->
  created_at:
    ('e ->
      ([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      'f) ->
  updated_at:
    ('f ->
      ([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      'g) ->
  'g

Source

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

Source

val for_all : 
  id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      bool) ->
  member_id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      bool) ->
  label:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      bool) ->
  questionnaires:
    (([< `Read | `Set_and_create ],
       t,
       (string * Ask.Model.Questionnaire.t) list)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  created_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      bool) ->
  updated_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      bool) ->
  bool

Source

val exists : 
  id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      bool) ->
  member_id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      bool) ->
  label:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      bool) ->
  questionnaires:
    (([< `Read | `Set_and_create ],
       t,
       (string * Ask.Model.Questionnaire.t) list)
       Fieldslib.Field.t_with_perm ->
      bool) ->
  created_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      bool) ->
  updated_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      bool) ->
  bool

Source

val to_list : 
  id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      'a) ->
  member_id:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      'a) ->
  label:
    (([< `Read | `Set_and_create ], t, string) Fieldslib.Field.t_with_perm ->
      'a) ->
  questionnaires:
    (([< `Read | `Set_and_create ],
       t,
       (string * Ask.Model.Questionnaire.t) list)
       Fieldslib.Field.t_with_perm ->
      'a) ->
  created_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      'a) ->
  updated_at:
    (([< `Read | `Set_and_create ], t, Ptime.t) Fieldslib.Field.t_with_perm ->
      'a) ->
  'a list

Sourcemodule Direct : sig ... end

package ask-integrator

Module Handler.FieldsSource

Module `Handler.Fields`Source