Use 1-based row/column in error messages

2025-09-29 12:42:13 -07:00
parent bab25f8dce
commit 495ed78c80
6 changed files with 630 additions and 855 deletions
--- a/src/Lib/Common.newt
+++ b/src/Lib/Common.newt
@@ -119,7 +119,7 @@ data Error
  | Postpone FC QName String

 instance Show FC where
-  show fc = "\{fc.file}:\{show fc.start}"
+  show (MkFC file (l,c)) = "\{file}:(\{show $ l + 1}, \{show $ c + 1})"


 showError : String -> Error -> String