Up – Package index » sihl » Sources » sihl.user » authz.ml

Source file `authz.ml`

sihl
- CHANGES
- README
- Library sihl
  - Sihl
- Library sihl.authn
  - Sihl_authn
- Library sihl.authz
  - Sihl_authz
- Library sihl.core
  - Sihl_core
- Library sihl.database
  - Sihl_database
- Library sihl.email
  - Sihl_email_core
- Library sihl.http
  - Sihl_http
- Library sihl.message
  - Sihl_message
- Library sihl.middleware
  - Sihl_middleware
- Library sihl.migration
  - Sihl_migration
- Library sihl.password-reset
  - Sihl_password_reset
- Library sihl.queue
  - Sihl_queue_core
- Library sihl.repository
  - Sihl_repository
- Library sihl.schedule
  - Sihl_schedule
- Library sihl.session
  - Sihl_session
- Library sihl.storage
  - Sihl_storage_core
- Library sihl.token
  - Sihl_token
- Library sihl.user
  - Sihl_user
- Library sihl.utils
  - Sihl_utils
- Sources
  - sihl
    - sihl.ml
  - sihl.authn
  - sihl.authz
    - sihl_authz.ml
  - 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
    - sihl_utils.ml

1
let is_admin user = Model.admin user, "User is not admin"