diff options
Diffstat (limited to 'gemini/mimeType.ml')
| -rw-r--r-- | gemini/mimeType.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gemini/mimeType.ml b/gemini/mimeType.ml index 0cfd063..16abcab 100644 --- a/gemini/mimeType.ml +++ b/gemini/mimeType.ml @@ -11,6 +11,8 @@ sig val to_subtype : t -> string val to_parameter : t -> (string * string) option + + val to_canonical : t -> string end module MimeType : MIME_TYPE = @@ -62,4 +64,8 @@ struct let to_parameter m = m.mime_param + let to_canonical m = + match to_parameter m with + | Some (p, v) -> (to_type m) ^ "/" ^ (to_subtype m) ^ " " ^ p ^ "=" ^ v + | None -> (to_type m) ^ "/" ^ (to_subtype m) end |