Module `Service.Make`Source

Parameters

module Repo : Sig.REPOSITORY

Signature

include Sihl_core.Container.Service.Sig

Sourceval lifecycle : Sihl_core.Container.Lifecycle.t

val find_all : 
  query:Sihl_database.Ql.t ->
  (Sihl_user__.Model.t list * Sihl_repository.Meta.t) Lwt.t

Sourceval find_opt : user_id:string -> Sihl_user__.Model.t option Lwt.t

Sourceval find : user_id:string -> Sihl_user__.Model.t Lwt.t

Sourceval find_by_email : email:string -> Sihl_user__.Model.t Lwt.t

Sourceval find_by_email_opt : email:string -> Sihl_user__.Model.t option Lwt.t

Source

val update_password : 
  ?password_policy:(string -> (unit, string) Result.t) ->
  user:Sihl_user__.Model.t ->
  old_password:string ->
  new_password:string ->
  new_password_confirmation:string ->
  unit ->
  (Sihl_user__.Model.t, string) Result.t Lwt.t

Source

val update_details : 
  user:Sihl_user__.Model.t ->
  email:string ->
  username:string option ->
  Sihl_user__.Model.t Lwt.t

Source

val set_password : 
  ?password_policy:(string -> (unit, string) Result.t) ->
  user:Sihl_user__.Model.t ->
  password:string ->
  password_confirmation:string ->
  unit ->
  (Sihl_user__.Model.t, string) Result.t Lwt.t

Set the password of a user without knowing the old password.

This feature is typically used by admins.

Source

val create_user : 
  email:string ->
  password:string ->
  username:string option ->
  Sihl_user__.Model.t Lwt.t

Create and store a user.

Source

val create_admin : 
  email:string ->
  password:string ->
  username:string option ->
  Sihl_user__.Model.t Lwt.t

Create and store a user that is also an admin.

Source

val register_user : 
  ?password_policy:(string -> (unit, string) result) ->
  ?username:string ->
  email:string ->
  password:string ->
  password_confirmation:string ->
  unit ->
  (Sihl_user__.Model.t, string) Result.t Lwt.t

Create and store new user.

Provide password_policy to check whether the password fulfills certain criteria.

Source

val login : 
  email:string ->
  password:string ->
  (Sihl_user__.Model.t, string) Result.t Lwt.t

Find user by email if password matches.

Sourceval register : unit -> Sihl_core.Container.Service.t

Install

Dune Dependency

Authors

Maintainers

Sources

doc/sihl.user/Sihl_user/Service/Make/index.html

Module `Service.Make`Source

Parameters

Signature

package sihl

Install

Dune Dependency

Authors

Maintainers

Sources

doc/sihl.user/Sihl_user/Service/Make/index.html

Module Service.MakeSource

Parameters

Signature

Module `Service.Make`Source