Module AuthnSource

Use this module to verify whether a user is who the user claims to be.

Installation

  module Repo = Sihl.Data.Repo.Service.Make ()
  module Random = Sihl.Utils.Random.Make ()
  module Cmd = Sihl.Cmd.Service.Make ()
  module Log = Sihl.Log.Service.Make ()
  module Db = Sihl.Database.Service (Config) (Log)
  module MigrationRepo = Sihl.Data.Migration.Service.Repo.MakeMariaDb (Db)
  module Migration = Sihl.Data.Migration.Service.Make (Log) (Cmd) (Db) (MigrationRepo)

  (* Repo *)
  module SessionRepo = Sihl.Session.Service.Repo.MakeMariaDb (Db) (Repo) (Migration)
  module UserRepo = Sihl.User.Service.Repo.MakeMariaDb (Db) (Repo) (Migration)

  (* Service *)
  module Session = Sihl.Session.Service.Make (Log) (Random) (SessionRepo)
  module User = Sihl.User.Service.Make (Log) (Cmd) (Db) (UserRepo)

Usage

(* TODO *)