diff options
| author | Ryan Kavanagh <rak@rak.ac> | 2020-06-02 14:33:21 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <rak@rak.ac> | 2020-06-07 11:39:58 -0400 |
| commit | c05d9ff300e82a6714271735db474664c7bd02ff (patch) | |
| tree | 6b4a5664bf9bb812deb66d4163122f6bb58b450f | |
| parent | We can now parse gemini transactions (diff) | |
Added to_canonical for mimetypes
| -rw-r--r-- | gemini/mimeType.ml | 6 | ||||
| -rw-r--r-- | gemini/mimeType.mli | 2 |
2 files changed, 8 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 diff --git a/gemini/mimeType.mli b/gemini/mimeType.mli index 6075ef9..c8b2959 100644 --- a/gemini/mimeType.mli +++ b/gemini/mimeType.mli @@ -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 |