From: Ian Lynagh <igloo@earth.li>
Date: Thu, 3 Dec 2009 13:03:28 +0000 (+0000)
Subject: Fix column numbers used when highlighting :list output
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=220a27c139f00682b28f59fa5af5f0095b089e04

Fix column numbers used when highlighting :list output
---

diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs
index b99b332..05f61d1 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