Driver: Add mli for Dune_style module

Signed-off-by: Paul-Elliot <[email protected]>

Author: panglesd

src/driver/dune_style.ml

@@ -2,10 +2,7 @@
 
 let of_dune_build dir =
   let contents =
-    Bos.OS.Dir.fold_contents ~dotfiles:true
-      (fun p acc -> p :: acc)
-      []
-      Fpath.(v dir)
+    Bos.OS.Dir.fold_contents ~dotfiles:true (fun p acc -> p :: acc) [] dir
   in
   match contents with
   | Error _ -> Util.StringMap.empty
@@ -37,7 +34,7 @@ let of_dune_build dir =
             let cmtidir =
               Fpath.(path / Printf.sprintf ".%s.objs" libname / "byte")
             in
-            match Fpath.rem_prefix (Fpath.v dir) path with
+            match Fpath.rem_prefix dir path with
             | Some pkg_dir ->
                 ( pkg_dir,
                   Packages.Lib.v pkg_dir

src/driver/dune_style.mli

@@ -0,0 +1 @@
+val of_dune_build : Fpath.t -> Packages.set

src/driver/odoc_driver.ml

@@ -558,13 +558,8 @@ let run libs verbose packages_dir odoc_dir odocl_dir html_dir stats nb_workers
   ignore indexes
 
 let fpath_arg =
-  let parse s =
-    match Fpath.of_string s with
-    | Ok v -> Ok v
-    | Error (`Msg m) -> Error (`Msg m)
-  in
   let print ppf v = Fpath.pp ppf v in
-  Arg.conv (parse, print)
+  Arg.conv (Fpath.of_string, print)
 
 let odoc_dir =
   let doc = "Directory in which the intermediate odoc files go" in
@@ -617,7 +612,7 @@ let blessed =
 
 let dune_style =
   let doc = "Dune style" in
-  Arg.(value & opt (some string) None & info [ "dune-style" ] ~doc)
+  Arg.(value & opt (some fpath_arg) None & info [ "dune-style" ] ~doc)
 
 let cmd =
   let doc = "Generate odoc documentation" in