seed.ml
sihl
sihl.authn
sihl.authz
sihl.core
sihl.database
sihl.email
sihl.http
sihl.message
sihl.middleware
sihl.migration
sihl.password-reset
sihl.queue
sihl.repository
sihl.schedule
sihl.session
sihl.storage
sihl.token
sihl.user
sihl.utils
1 2 3 4 5 6 7 module Make (UserService : Sig.SERVICE) = struct let admin ~email ~password = UserService.create_admin ~email ~password ~username:None let user ~email ~password ?username () = UserService.create_user ~email ~password ~username ;; end
1 2 3 4 5 6 7
module Make (UserService : Sig.SERVICE) = struct let admin ~email ~password = UserService.create_admin ~email ~password ~username:None let user ~email ~password ?username () = UserService.create_user ~email ~password ~username ;; end