From 1b89c2f50b0b8dadef732a4578e49934502f9214 Mon Sep 17 00:00:00 2001
From: Antonio Nuno Monteiro <anmonteiro@gmail.com>
Date: Fri, 16 Jun 2023 22:41:38 -0700
Subject: [PATCH] fix error

---
 bin/jsoo_main.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/bin/jsoo_main.ml b/bin/jsoo_main.ml
index eebf12a4c..2ef204d74 100644
--- 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)