package sihl-user

You can search for identifiers within the package.

in-package search v0.2.0

package sihl-user

sihl-user
- Library sihl-user
  - Sihl_user
    
    Sig
    
    Hashing
    
    Logs
    
    Make
    
    PostgreSql
    
    MariaDb
    
    Password_reset
    
    MakePostgreSql
    
    MakeMariaDb
- Sources
  - sihl-user
    
    authz.ml
    
    password_reset.ml
    
    sihl_user.ml
    
    sihl_user__.ml
    
    user_repo.ml

Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file `authz.ml`

1
2
3
4
5
6
7
8
9
10
type guard = bool * string

let authorize (can, msg) = if can then Ok () else Error msg

let any guards msg =
  let can =
    guards |> List.map authorize |> List.find_opt Result.is_ok |> Option.is_some
  in
  authorize (can, msg)
;;