diff options
| author | Pepe Iborra <mnislaih@gmail.com> | 2007-02-16 19:54:24 +0000 |
|---|---|---|
| committer | Pepe Iborra <mnislaih@gmail.com> | 2007-02-16 19:54:24 +0000 |
| commit | 4abc36e3599a9ce067926c8c9e4d696384206997 (patch) | |
| tree | bef020173a641da987eee2060cf7c6086456b2b3 /compiler/ghci/Debugger.hs | |
| parent | a6156829d4e671c5385769ccc7675e644591525d (diff) | |
| download | haskell-4abc36e3599a9ce067926c8c9e4d696384206997.tar.gz | |
Uniform user interface
Print
"Breakpoint set at Main:26:13"
instead of
"Breakpoint set at (26,13)"
Diffstat (limited to 'compiler/ghci/Debugger.hs')
| -rw-r--r-- | compiler/ghci/Debugger.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs index 62633d2648..b5c30d6202 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 |