Don't backtrace on invalid input in compile-deps

CHANGES.md

@@ -9,6 +9,7 @@
 ### Fixed
 
 - Fix bug causing stack overflow in odoc_driver_monorepo (@jonludlam, #1304)
+- Fix backtrace on invalid input in compile-deps (@jonludlam, #1313)
 
 # 3.0.0~beta1
 

src/odoc/bin/main.ml

@@ -1410,15 +1410,29 @@ end)
 module Depends = struct
   module Compile = struct
     let list_dependencies input_files =
-      let deps =
-        Depends.for_compile_step (List.map ~f:Fs.File.of_string input_files)
-      in
-      List.iter
-        ~f:(fun t ->
-          Printf.printf "%s %s\n" (Depends.Compile.name t)
-            (Digest.to_hex @@ Depends.Compile.digest t))
-        deps;
-      flush stdout
+      try
+        let deps =
+          Depends.for_compile_step (List.map ~f:Fs.File.of_string input_files)
+        in
+        List.iter
+          ~f:(fun t ->
+            Printf.printf "%s %s\n" (Depends.Compile.name t)
+              (Digest.to_hex @@ Depends.Compile.digest t))
+          deps;
+        flush stdout
+      with Cmi_format.Error e ->
+        let msg =
+          match e with
+          | Not_an_interface file ->
+              Printf.sprintf "File %S is not an interface" file
+          | Wrong_version_interface (file, v) ->
+              Printf.sprintf "File %S is compiled for %s version of OCaml" file
+                v
+          | Corrupted_interface file ->
+              Printf.sprintf "File %S is corrupted" file
+        in
+        Printf.eprintf "ERROR: %s\n%!" msg;
+        exit 1
 
     let cmd =
       let input =