Source file authz.ml

open Base

type guard = bool * string

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

let any guards msg =
  let can =
    guards |> List.map ~f:authorize |> List.find ~f:Result.is_ok
    |> Option.is_some
  in
  authorize (can, msg)