diff options
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 = "..." |