My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** MIME type handling *)
2
3(** Log source for MIME type operations *)
4val src : Logs.Src.t
5
6type t
7(** Abstract MIME type *)
8
9val of_string : string -> t
10(** Parse MIME type from string (e.g., "text/html; charset=utf-8") *)
11
12val to_string : t -> string
13(** Convert MIME type to string representation *)
14
15val pp : Format.formatter -> t -> unit
16(** Pretty printer for MIME types *)
17
18(** Common MIME types *)
19val json : t
20val text : t
21val html : t
22val xml : t
23val form : t
24val octet_stream : t
25val multipart_form : t
26
27val make : string -> string -> t
28(** [make type subtype] creates a MIME type *)
29
30val with_charset : string -> t -> t
31(** Add or update charset parameter *)
32
33val charset : t -> string option
34(** Extract charset parameter if present *)