Compile asset: extract compile_asset in its own module

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

src/odoc/asset.ml

@@ -0,0 +1,23 @@
+let compile ~parent_id ~name ~output_dir =
+  let open Odoc_model in
+  let parent_id = Compile.mk_id parent_id in
+  let id =
+    Paths.Identifier.Mk.asset_file ((parent_id :> Paths.Identifier.Page.t), name)
+  in
+  let directory =
+    Compile.path_of_id output_dir parent_id
+    |> Fpath.to_string |> Fs.Directory.of_string
+  in
+  let name = "asset-" ^ name ^ ".odoc" in
+  let output = Fs.File.create ~directory ~name in
+  let digest = Digest.string name in
+  let root =
+    Root.
+      {
+        id = (id :> Paths.Identifier.OdocId.t);
+        digest;
+        file = Odoc_file.asset name;
+      }
+  in
+  let asset = Lang.Asset.{ name = id; root } in
+  Odoc_file.save_asset output ~warnings:[] asset

src/odoc/asset.mli

@@ -0,0 +1 @@
+val compile : parent_id:string -> name:string -> output_dir:string -> unit

src/odoc/bin/main.ml

@@ -345,7 +345,7 @@ end
 
 module Compile_asset = struct
   let compile_asset parent_id name output_dir =
-    Odoc_odoc.Compile.compile_asset ~parent_id ~name ~output_dir
+    Odoc_odoc.Asset.compile ~parent_id ~name ~output_dir
 
   let output_dir =
     let doc = "Output file directory. " in
@@ -362,14 +362,14 @@ module Compile_asset = struct
         & opt (some string) None
         & info ~docs ~docv:"NAME" ~doc [ "name" ])
     in
-    let parent_id_opt =
+    let parent_id =
       let doc = "Parent id." in
       Arg.(
         required
         & opt (some string) None
         & info ~docs ~docv:"PARENT" ~doc [ "parent-id" ])
     in
-    Term.(const compile_asset $ parent_id_opt $ name_opt $ output_dir)
+    Term.(const compile_asset $ parent_id $ name_opt $ output_dir)
 
   let info ~docs =
     let man =

src/odoc/compile.ml

@@ -337,26 +337,3 @@ let compile ~resolver ~hidden ~cli_spec ~warnings_options input =
     Error.handle_errors_and_warnings ~warnings_options result >>= fun unit ->
     Odoc_file.save_unit output ~warnings unit;
     Ok ()
-
-let compile_asset ~parent_id ~name ~output_dir =
-  let open Odoc_model in
-  let parent_id = mk_id parent_id in
-  let id =
-    Paths.Identifier.Mk.asset_file ((parent_id :> Paths.Identifier.Page.t), name)
-  in
-  let directory =
-    path_of_id output_dir parent_id |> Fpath.to_string |> Fs.Directory.of_string
-  in
-  let name = "asset-" ^ name ^ ".odoc" in
-  let output = Fs.File.create ~directory ~name in
-  let digest = Digest.string name in
-  let root =
-    Root.
-      {
-        id = (id :> Paths.Identifier.OdocId.t);
-        digest;
-        file = Odoc_file.asset name;
-      }
-  in
-  let asset = Lang.Asset.{ name = id; root } in
-  Odoc_file.save_asset output ~warnings:[] asset

src/odoc/compile.mli

@@ -50,6 +50,7 @@ val resolve_parent_page :
     and its children as a list of reference. *)
 
 val mk_id : string -> Identifier.ContainerPage.t
+val path_of_id : string -> Comment.Identifier.Id.container_page -> Fpath.t
 
 val compile :
   resolver:Resolver.t ->
@@ -59,5 +60,3 @@ val compile :
   Fpath.t ->
   (unit, [> msg ]) result
 (** Produces .odoc files out of [.cm{i,t,ti}] or .mld files. *)
-
-val compile_asset : parent_id:string -> name:string -> output_dir:string -> unit