From 220a27c139f00682b28f59fa5af5f0095b089e04 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 3 Dec 2009 13:03:28 +0000 Subject: [PATCH] Fix column numbers used when highlighting :list output --- ghc/InteractiveUI.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4