diff options
-rw-r--r-- | compiler/main/GHC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs index 2af8c6f608..051edcd845 100644 --- a/compiler/main/GHC.hs +++ b/compiler/main/GHC.hs @@ -1260,7 +1260,7 @@ showRichTokenStream ts = go startLoc ts "" . (str ++) . go tokEnd ts | otherwise -> ((replicate (tokLine - locLine) '\n') ++) - . ((replicate tokCol ' ') ++) + . ((replicate (tokCol - 1) ' ') ++) . (str ++) . go tokEnd ts where (locLine, locCol) = (srcLocLine loc, srcLocCol loc) |