From 4abc36e3599a9ce067926c8c9e4d696384206997 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Fri, 16 Feb 2007 19:54:24 +0000 Subject: [PATCH] Uniform user interface Print "Breakpoint set at Main:26:13" instead of "Breakpoint set at (26,13)" --- compiler/ghci/Debugger.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 -- 1.7.10.4