From 3a012b4938b14ecb5070d06cf839c88ffdce76ce Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Tue, 21 Aug 2018 18:39:07 +0300 Subject: [PATCH] Remove references to Usexp in Exn Signed-off-by: Rudi Grinberg --- src/stdune/exn.ml | 2 +- src/stdune/loc.ml | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) create mode 100644 src/stdune/loc.ml 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