swrup/drame
1
0
Fork 0
forked from zapashcanon/drame
Code Issues Pull Requests Projects Releases Wiki Activity

mimetype: add matroska

Browse Source
This commit is contained in:
Swrup 2025-05-10 02:25:12 +02:00
parent b45b0928eb
commit beab915e7a
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mimetype.ml
View File

@ -30,6 +30,7 @@ type t =
| Video_avi
| Video_mp4
| Video_webm
| Video_matroska
let pp fmt mimetype =
Fmt.string fmt
@ -66,6 +67,7 @@ let pp fmt mimetype =
| Unsafe (mimetype, _should_cache) -> mimetype
| Video_avi -> "video/x-msvideo"
| Video_mp4 -> "video/mp4"
| Video_webm -> "video/webm" )
| Video_webm -> "video/webm"
| Video_matroska -> "video/matroska" )
let to_string mimetype = Fmt.str "%a" pp mimetype

1
src/mimetype.mli
View File

@ -31,6 +31,7 @@ type t =
| Video_avi
| Video_mp4
| Video_webm
| Video_matroska
val pp : Format.formatter -> t -> unit

2
src/server.ml
View File

@ -98,7 +98,7 @@ struct
| Application_epub | Application_json | Application_jsonld
| Application_gz | Application_tar | Application_xml
| Application_atom_xml | Application_zip | Application_7z | Text_csv
| Video_avi | Video_mp4 | Video_webm ->
| Video_avi | Video_mp4 | Video_webm | Video_matroska ->
[]
end
| Error