diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-12-03 13:03:28 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-12-03 13:03:28 +0000 |
| commit | 220a27c139f00682b28f59fa5af5f0095b089e04 (patch) | |
| tree | 7ef783cdac885bbb2901c7f4631772c4e965d748 | |
| parent | 8bc3f02844342419a9c6fe29afe6ab2f07acfb1e (diff) | |
| download | haskell-220a27c139f00682b28f59fa5af5f0095b089e04.tar.gz | |
Fix column numbers used when highlighting :list output
| -rw-r--r-- | ghc/InteractiveUI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index b99b332f28..05f61d16eb 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -2164,9 +2164,9 @@ listAround span do_highlight = do where file = GHC.srcSpanFile span line1 = GHC.srcSpanStartLine span - col1 = GHC.srcSpanStartCol span + col1 = GHC.srcSpanStartCol span - 1 line2 = GHC.srcSpanEndLine span - col2 = GHC.srcSpanEndCol span + col2 = GHC.srcSpanEndCol span - 1 pad_before | line1 == 1 = 0 | otherwise = 1 |