From 50dbeaeb018ab2cb44df3f557f1958eb15351f31 Mon Sep 17 00:00:00 2001
From: Aymeric Fromherz
Date: Fri, 24 May 2024 12:47:43 +0200
Subject: Rename span into raw_span

---
 compiler/Errors.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'compiler/Errors.ml')

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 =
-- 
cgit v1.2.3