diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-09-17 13:10:58 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-09-17 13:10:58 +0100 |
| commit | 0a4537fb670ed15e9eb65b4b6e9c67398634a3f5 (patch) | |
| tree | 693a6a82087df8c7886c5a1cea35f2bd2b0856e3 | |
| parent | 607537a8424f580c134d6cf88cf902a81589c41f (diff) | |
| download | haskell-0a4537fb670ed15e9eb65b4b6e9c67398634a3f5.tar.gz | |
Fix etags output; trac #4256
We had an off-by-one bug in column numbers, causing first characters
of identifiers to be duplicated.
| -rw-r--r-- | ghc/GhciTags.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/GhciTags.hs b/ghc/GhciTags.hs index 650ed876ee..df826e1926 100644 --- a/ghc/GhciTags.hs +++ b/ghc/GhciTags.hs @@ -195,7 +195,7 @@ showCTag ti = showETag :: TagInfo -> String showETag TagInfo{ tagName = tag, tagLine = lineNo, tagCol = colNo, tagSrcInfo = Just (srcLine,charPos) } - = take colNo srcLine ++ tag + = take (colNo - 1) srcLine ++ tag ++ "\x7f" ++ tag ++ "\x01" ++ show lineNo ++ "," ++ show charPos |