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

Source file `authz.ml`

sihl
- CHANGES
- README
- Library sihl
  - Sihl
- Library sihl.authn
  - Authn
- Library sihl.authz
  - Authz
- Library sihl.core
  - Core
- Library sihl.database
  - Database
- Library sihl.email
  - Email
- Library sihl.http
  - Http
- Library sihl.message
  - Message
- Library sihl.middleware
  - Middleware
- Library sihl.migration
  - Migration
- Library sihl.password-reset
  - Password_reset
- Library sihl.queue
  - Queue
- Library sihl.repository
  - Repository
- Library sihl.schedule
  - Schedule
- Library sihl.server
  - Server
- Library sihl.session
  - Session
- Library sihl.storage
  - Storage
- Library sihl.token
  - Token
- Library sihl.user
  - User
- Library sihl.utils
  - Utils
- Library sihl.web
  - Web
- Sources
  - sihl
    - sihl.ml
  - sihl.authn
  - sihl.authz
    - 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.server
  - sihl.session
  - sihl.storage
  - sihl.token
  - sihl.user
  - sihl.utils
  - sihl.web
    - web.ml

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