summaryrefslogtreecommitdiff
path: root/compiler/Errors.ml
diff options
context:
space:
mode:
authorAymeric Fromherz2024-05-24 12:47:43 +0200
committerAymeric Fromherz2024-05-24 12:47:43 +0200
commit50dbeaeb018ab2cb44df3f557f1958eb15351f31 (patch)
tree51c73a3b0ddbf790f1f93892c67ccb2fb55d4f58 /compiler/Errors.ml
parente669de58b71fd68642cfacf1a2e3cbd1c5b2f4fe (diff)
Rename span into raw_span
Diffstat (limited to '')
-rw-r--r--compiler/Errors.ml8
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/Errors.ml b/compiler/Errors.ml
index 30887593..d084df51 100644
--- a/compiler/Errors.ml
+++ b/compiler/Errors.ml
@@ -1,13 +1,13 @@
let log = Logging.errors_log
let meta_to_string (meta : Meta.meta) =
- let span = meta.span in
- let file = match span.file with Virtual s | Local s -> s in
+ let raw_span = meta.span in
+ let file = match raw_span.file with Virtual s | Local s -> s in
let loc_to_string (l : Meta.loc) : string =
string_of_int l.line ^ ":" ^ string_of_int l.col
in
- "Source: '" ^ file ^ "', lines " ^ loc_to_string span.beg_loc ^ "-"
- ^ loc_to_string span.end_loc
+ "Source: '" ^ file ^ "', lines " ^ loc_to_string raw_span.beg_loc ^ "-"
+ ^ loc_to_string raw_span.end_loc
let format_error_message (meta : Meta.meta option) (msg : string) =
let meta =