From 5ac833ec6a3ecb038249e5ea9c43b372f77481b5 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Mon, 10 Sep 2007 14:21:29 +0000 Subject: [PATCH] FIX #1669 (GHCi debugger underlining is in the wrong place) We weren't taking into account the offset added by the line numbers: Stopped at break020.hs:10:2-8 _result :: IO () = _ 9 main = do 10 line1 0 ^^^^^^^ 11 line2 0 This patch adjusts that --- compiler/ghci/InteractiveUI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index 42424e6..e45e738 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -1941,7 +1941,7 @@ listAround span do_highlight = do = BS.concat [line, nl, indent, BS.replicate col2 '^'] | otherwise = line where - indent = BS.pack " " + indent = BS.pack (" " ++ replicate (length (show no)) ' ') nl = BS.singleton '\n' -- -------------------------------------------------------------------------- -- 1.7.10.4