feat: optional dep on magic-mime for http_of_dir

dune-project

@@ -15,6 +15,7 @@
   (tags (http thread server tiny_httpd http_of_dir simplehttpserver))
   (depopts
     logs
+    magic-mime
     (mtime (>= 2.0)))
   (depends
     seq

src/Tiny_httpd_dir.ml

@@ -310,18 +310,8 @@ 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 *)
-                try
+                let ty = Mime_.mime_of_path (top // path) in
-                  let p =
+                [ "content-type", ty ]
-                    Unix.open_process_in
-                      (Printf.sprintf "file -i -b %S" (top // path))
-                  in
-                  finally_
-                    ~h:(fun p -> ignore @@ Unix.close_process_in p)
-                    p
-                    (fun p ->
-                      try [ "Content-Type", String.trim (input_line p) ]
-                      with _ -> [])
-                with _ -> []
               ) else
                 []
             in

src/dune

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

src/mime_.dummy.ml

@@ -0,0 +1 @@
+let mime_of_path _ = "application/octet-stream"

src/mime_.magic.ml

@@ -0,0 +1 @@
+let mime_of_path s = Magic_mime.lookup s

src/mime_.mli

@@ -0,0 +1,2 @@
+
+val mime_of_path :  string -> string

tiny_httpd.opam

@@ -24,6 +24,7 @@ depends: [
 ]
 depopts: [
   "logs"
+  "magic-mime"
   "mtime" {>= "2.0"}
 ]
 build: [