Driver: Fix failure when output dir does not exist

panglesd · panglesd · commit a45c770b6463 · 2024-08-23T07:32:02.000-04:00
diff --git a/src/driver/compile.ml b/src/driver/compile.ml
@@ -227,6 +227,7 @@ let sherlodoc_index_one ~output_dir (index : Odoc_unit.index) =
 
 let html_generate output_dir linked =
   let tbl = Hashtbl.create 10 in
+  let _ = OS.Dir.create output_dir |> Result.get_ok in
   Sherlodoc.js Fpath.(output_dir // Sherlodoc.js_file);
   let compile_index : Odoc_unit.index -> _ =
    fun index ->
