diff --git a/src/stdune/exn.ml b/src/stdune/exn.ml index bf2222db..ee814a32 100644 --- a/src/stdune/exn.ml +++ b/src/stdune/exn.ml @@ -4,7 +4,7 @@ exception Code_error of Usexp.t exception Fatal_error of string -exception Loc_error of Usexp.Loc.t * string +exception Loc_error of Loc.t * string external raise : exn -> _ = "%raise" external raise_notrace : exn -> _ = "%raise_notrace" diff --git a/src/stdune/loc.ml b/src/stdune/loc.ml new file mode 100644 index 00000000..f0e38a89 --- /dev/null +++ b/src/stdune/loc.ml @@ -0,0 +1 @@ +include Usexp.Loc