FIX #1669 (GHCi debugger underlining is in the wrong place)

[ghc-hetmet.git] / compiler / ghci / InteractiveUI.hs

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index 42424e6..e45e738 100644 (file)
--- 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'
 
 -- --------------------------------------------------------------------------