Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/cdf1389865885c190d4b2f0eb81fc659b375fb6f >--------------------------------------------------------------- commit cdf1389865885c190d4b2f0eb81fc659b375fb6f Author: Simon Marlow <marlo...@gmail.com> 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) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
