Driver: Remove commented sidebar code

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

Author: panglesd

src/driver/compile.mli

@@ -17,10 +17,4 @@ val index : odocl_dir:Fpath.t -> Packages.set -> unit
 
 val sherlodoc : html_dir:Fpath.t -> odocl_dir:Fpath.t -> Packages.set -> unit
 
-(* val compile_sidebars : *)
-(*   odoc_dir:Fpath.t -> *)
-(*   output_dir:Fpath.t -> *)
-(*   Packages.set -> *)
-(*   Fpath.t Util.StringMap.t *)
-
 val html_generate : Fpath.t -> odocl_dir:Fpath.t -> linked list -> unit

src/driver/odoc_driver.ml

@@ -543,14 +543,7 @@ let run libs verbose packages_dir odoc_dir odocl_dir html_dir stats nb_workers
         let odocl_dir = match odocl_dir with Some l -> l | None -> odoc_dir in
         let () = Compile.index ~odocl_dir all in
         let () = Compile.sherlodoc ~html_dir ~odocl_dir all in
-        (* let sidebars = *)
-        (*   Compile.compile_sidebars ~odoc_dir *)
-        (*     ~output_dir:(Fpath.( / ) odoc_dir "sidebars") *)
-        (*     all *)
-        (* in *)
-        let () =
-          Compile.html_generate html_dir ~odocl_dir (* sidebars *) linked
-        in
+        let () = Compile.html_generate html_dir ~odocl_dir linked in
         let _ = Odoc.support_files html_dir in
         ())
       (fun () -> render_stats env nb_workers)

src/driver/voodoo.ml

@@ -38,9 +38,6 @@ let find_universe_and_version pkg_name =
   | _ :: _ :: u :: _, [ version ] -> Ok (u, Fpath.to_string version)
   | _ -> Error (`Msg (Format.sprintf "Failed to find package %s" pkg_name))
 
-(* let read_package universe pkg version =
-   () *)
-
 let process_package pkg =
   let metas =
     List.filter