simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: avoid collisions in Mime_ private module

Browse source
This commit is contained in:
Simon Cruanes 2024-02-22 18:33:57 -05:00
parent 225c21b4cc
commit 5018df5ff8
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
5 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Tiny_httpd_dir.ml
View file

@ -315,7 +315,7 @@ let add_vfs_ ~on_fs ~top ~config ~vfs:((module VFS : VFS) as vfs) ~prefix server
[ "Content-Type", "text/javascript" ]
else if on_fs then (
(* call "file" util *)
let ty = Mime_.mime_of_path (top // path) in
let ty = Tiny_httpd_mime_.mime_of_path (top // path) in
[ "content-type", ty ]
) else
[]

0
src/mime_.dummy.ml → src/Tiny_httpd_mime_.dummy.ml
View file

0
src/mime_.magic.ml → src/Tiny_httpd_mime_.magic.ml
View file

0
src/mime_.mli → src/Tiny_httpd_mime_.mli
View file

8
src/dune
View file

@ -1,11 +1,11 @@
(library
(name tiny_httpd)
(public_name tiny_httpd)
(private_modules mime_)
(private_modules Tiny_httpd_mime_)
(libraries threads seq unix
(select mime_.ml from
(magic-mime -> mime_.magic.ml)
( -> mime_.dummy.ml))
(select Tiny_httpd_mime_.ml from
(magic-mime -> Tiny_httpd_mime_.magic.ml)
( -> Tiny_httpd_mime_.dummy.ml))
(select Tiny_httpd_log.ml from
(logs logs.fmt fmt.tty -> Tiny_httpd_log.logs.ml)
(-> Tiny_httpd_log.default.ml)))