diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-03-24 11:19:48 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-03-24 11:19:48 +0100 |
| commit | 2de6cede93912457babc79bcb0f58c9e6b20f05a (patch) | |
| tree | 30a1f088a8f73e385e2b296c3bfaf0aac7b6314c /src/HSVIS/Diagnostic.hs | |
| parent | defd0cf1a7620eaecda984a58533661a98595bd3 (diff) | |
Partially working type checker
Diffstat (limited to 'src/HSVIS/Diagnostic.hs')
| -rw-r--r-- | src/HSVIS/Diagnostic.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/HSVIS/Diagnostic.hs b/src/HSVIS/Diagnostic.hs index 778fe34..116e4cd 100644 --- a/src/HSVIS/Diagnostic.hs +++ b/src/HSVIS/Diagnostic.hs @@ -45,7 +45,7 @@ printDiagnostic :: Diagnostic -> String printDiagnostic (Diagnostic sev fp rng@(Range (Pos y1 x1) (Pos y2 x2)) stk srcline msg) = let linenum = show (y1 + 1) locstr = pretty rng - ncarets | y1 == y2 = max 1 (x2 - x1 + 1) + ncarets | y1 == y2 = max 1 (x2 - x1) | otherwise = length srcline - x1 caretsuffix | y1 == y2 = "" | otherwise = "..." |