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

Source file `user_authz.ml`

sihl
- CHANGES
- README
- Library sihl
  - Sihl
- Library sihl.app
  - App
- Library sihl.authn
  - Authn
- Library sihl.authz
  - Authz
- Library sihl.cmd
  - Cmd
- Library sihl.configuration
  - Configuration
- Library sihl.core
  - Core
- Library sihl.data
  - Data
- Library sihl.email
  - Email
- Library sihl.http
  - Http
- Library sihl.log
  - Log
- Library sihl.message
  - Message
- Library sihl.middleware
  - Middleware
- Library sihl.queue
  - Queue
- Library sihl.schedule
  - Schedule
- Library sihl.seed
  - Seed
- 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.app
    - app.ml
    - app__.ml
  - sihl.authn
  - sihl.authz
    - authz.ml
  - sihl.cmd
  - sihl.configuration
  - sihl.core
  - sihl.data
  - sihl.email
  - sihl.http
  - sihl.log
  - sihl.message
  - sihl.middleware
  - sihl.queue
  - sihl.schedule
  - sihl.seed
  - sihl.server
  - sihl.session
  - sihl.storage
  - sihl.token
  - sihl.user
  - sihl.utils
  - sihl.web
    - web.ml

1
let is_admin user = (User_core.User.admin user, "User is not admin")