From: Pepe Iborra <mnislaih@gmail.com>
Date: Fri, 16 Feb 2007 19:54:24 +0000 (+0000)
Subject: Uniform user interface
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4abc36e3599a9ce067926c8c9e4d696384206997

Uniform user interface

Print

"Breakpoint set at Main:26:13"

instead of

"Breakpoint set at (26,13)"
---

diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs
index 62633d2..b5c30d6 100644
--- a/compiler/ghci/Debugger.hs
+++ b/compiler/ghci/Debugger.hs
@@ -353,9 +353,10 @@ bkptOptions cmd = do
            either 
              (handleBkptEx s mod)
              (\(newTable, site) -> do
-               setBkptTable newTable 
-               io (putStrLn ("Breakpoint set at " ++ 
-                              show (getSiteCoords newTable mod site))))
+               setBkptTable newTable
+               let (x,y) = getSiteCoords newTable mod site
+               io (putStrLn ("Breakpoint set at " ++ showSDoc (ppr mod) 
+                    ++ ':' : show x  ++ ':' : show y)))
              (f mod bt) 
 
     bkptOptions' s ("del":cmds) bt