[commit: ghc] master: fix off-by-one-column in showRichTokenStream (#7351) (cdf1389)
Simon Marlow <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master http://hackage.haskell.org/trac/ghc/changeset/cdf1389865885c190d4b2f0eb81fc659b375fb6f >--------------------------------------------------------------- commit cdf1389865885c190d4b2f0eb81fc659b375fb6f Author: Simon Marlow <[email protected]> Date: Wed Oct 24 13:23:08 2012 +0100 fix off-by-one-column in showRichTokenStream (#7351) >--------------------------------------------------------------- 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 2af8c6f..051edcd 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)