package ask-integrator

  1. Overview
  2. Docs
type t = {
  1. id : string;
  2. member_id : string;
  3. label : string;
  4. questionnaires : (string * Ask.Model.Questionnaire.t) list;
  5. created_at : Ptime.t;
  6. updated_at : Ptime.t;
}
val create : member_id:string -> member_label:string -> questionnaires:(string * Ask.Model.Questionnaire.t) list -> (Model.Handler.t, string) Stdlib.result Lwt.t
val find : member_id:string -> ?label:string -> unit -> Model.Handler.t option Lwt.t
val find_questionnaire_with_label : member_id:string -> ?member_label:string -> questionnaire_label:string -> unit -> Ask.Model.Questionnaire.t option Lwt.t
val update : Model.Handler.t -> ?member_label:string -> ?questionnaires:(string * Ask.Model.Questionnaire.t) list -> unit -> (string, string) Stdlib.result Lwt.t
val delete : Model.Handler.t -> unit Lwt.t
val register : unit -> Sihl.Container.Service.t