fix error

melange-re · Jun 17, 2023 · 1b89c2f · 1b89c2f
1 parent 9065ed0
commit 1b89c2f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/bin/jsoo_main.ml b/bin/jsoo_main.ml
@@ -31,7 +31,11 @@ let () =
 let error_of_exn e =
   match Location.error_of_exn e with
   | Some (`Ok e) -> Some e
-  | Some `Already_displayed | None -> None
+  | Some `Already_displayed -> None
+  | None -> (
+      match Ocaml_common.Location.error_of_exn e with
+      | Some (`Ok e) -> Some e
+      | Some `Already_displayed | None -> None)
 
 module From_ppxlib =
   Ppxlib_ast.Convert (Ppxlib_ast.Selected_ast) (Ppxlib_ast__.Versions.OCaml_414)