Fix some needles

ocaml · Nov 15, 2024 · 75e6e1b · 75e6e1b
1 parent 20f28f5
commit 75e6e1b
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 12 deletions.
diff --git a/src/driver/dune b/src/driver/dune
@@ -2,7 +2,8 @@
  (public_name odoc_driver)
  (package odoc-driver)
  (link_deps
-  (package odoc))
+  (package odoc)
+  (package odoc-md))
  (preprocess
   (pps ppx_sexp_conv))
  (libraries

diff --git a/src/driver/opam.ml b/src/driver/opam.ml
@@ -52,17 +52,22 @@ let pkg_contents { name; _ } =
     OpamFile.make @@ OpamFilename.raw @@ Filename.basename changes_file
   in
   let changed =
-    OpamFilename.with_contents
-      (fun str ->
-        OpamFile.Changes.read_from_string ~filename
-        @@
-        (* Field [opam-version] is invalid in [*.changes] files, displaying a warning. *)
-        if OpamStd.String.starts_with ~prefix:"opam-version" str then
-          match OpamStd.String.cut_at str '\n' with
-          | Some (_, str) -> str
-          | None -> assert false
-        else str)
-      file
+    try
+      OpamFilename.with_contents
+        (fun str ->
+          OpamFile.Changes.read_from_string ~filename
+          @@
+          (* Field [opam-version] is invalid in [*.changes] files, displaying a warning. *)
+          if OpamStd.String.starts_with ~prefix:"opam-version" str then
+            match OpamStd.String.cut_at str '\n' with
+            | Some (_, str) -> str
+            | None -> assert false
+          else str)
+        file
+    with _ ->
+      Logs.err (fun m ->
+          m "Error while reading: %s. Considering it empty." changes_file);
+      OpamStd.String.Map.empty
   in
   let added =
     OpamStd.String.Map.fold