diff options
| author | Son Ho | 2024-04-11 19:40:08 +0200 |
|---|---|---|
| committer | Son Ho | 2024-04-11 19:40:08 +0200 |
| commit | 86c3680b1f3f50b4c4e6198eebc145cadfff3876 (patch) | |
| tree | c79ea2c4a35198d9011287db4767599b0c5c1c42 /compiler/Errors.ml | |
| parent | 9c1773530a7056c161e69471b36eaa3603f6ed26 (diff) | |
| parent | 4fb9c9f655a9ffc3b4a1a717988311c057c9c599 (diff) | |
Merge remote-tracking branch 'origin/main' into son/clean
Diffstat (limited to '')
| -rw-r--r-- | compiler/Errors.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/Errors.ml b/compiler/Errors.ml index 53e56c44..30887593 100644 --- a/compiler/Errors.ml +++ b/compiler/Errors.ml @@ -1,6 +1,7 @@ let log = Logging.errors_log -let meta_to_string (span : Meta.span) = +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 loc_to_string (l : Meta.loc) : string = string_of_int l.line ^ ":" ^ string_of_int l.col @@ -10,7 +11,7 @@ let meta_to_string (span : Meta.span) = let format_error_message (meta : Meta.meta option) (msg : string) = let meta = - match meta with None -> "" | Some meta -> "\n" ^ meta_to_string meta.span + match meta with None -> "" | Some meta -> "\n" ^ meta_to_string meta in msg ^ meta |