robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add charset to various mime types

Browse source
This commit is contained in:
Hannes Mehnert 2022-11-04 13:32:04 +01:00
parent 041f1d2640
commit 281e285673
1 changed files with 19 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lib/builder_web.ml
View file

@ -46,8 +46,18 @@ let safe_seg path =
else Fmt.kstr (fun s -> Error (`Msg s)) "unsafe path %S" path else Fmt.kstr (fun s -> Error (`Msg s)) "unsafe path %S" path
(* mime lookup with orb knowledge *) (* mime lookup with orb knowledge *)
let append_charset = function
(* mime types from nginx:
http://nginx.org/en/docs/http/ngx_http_charset_module.html#charset_types *)
| "text/html" | "text/xml" | "text/plain" | "text/vnd.wap.wml"
| "application/javascript" | "application/rss+xml" | "application/atom+xml"
as content_type ->
content_type ^ "; charset=utf-8" (* default to utf-8 *)
| content_type -> content_type
let mime_lookup path = let mime_lookup path =
match Fpath.to_string path with append_charset
(match Fpath.to_string path with
| "build-environment" | "opam-switch" | "system-packages" -> | "build-environment" | "opam-switch" | "system-packages" ->
"text/plain" "text/plain"
| _ -> | _ ->
@ -55,7 +65,7 @@ let mime_lookup path =
then "text/plain" then "text/plain"
else if Fpath.is_prefix Fpath.(v "bin/") path else if Fpath.is_prefix Fpath.(v "bin/") path
then "application/octet-stream" then "application/octet-stream"
else Magic_mime.lookup (Fpath.to_string path) else Magic_mime.lookup (Fpath.to_string path))
let string_of_html = let string_of_html =
Format.asprintf "%a" (Tyxml.Html.pp ()) Format.asprintf "%a" (Tyxml.Html.pp ())