My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** Authentication mechanisms *)
2
3(** Log source for authentication operations *)
4val src : Logs.Src.t
5
6type t
7(** Abstract authentication type *)
8
9val none : t
10(** No authentication *)
11
12val basic : username:string -> password:string -> t
13(** HTTP Basic authentication *)
14
15val bearer : token:string -> t
16(** Bearer token authentication (e.g., OAuth 2.0) *)
17
18val digest : username:string -> password:string -> t
19(** HTTP Digest authentication *)
20
21val custom : (Headers.t -> Headers.t) -> t
22(** Custom authentication handler *)
23
24val apply : t -> Headers.t -> Headers.t
25(** Apply authentication to headers *)