projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a615682
)
Uniform user interface
author
Pepe Iborra
<mnislaih@gmail.com>
Fri, 16 Feb 2007 19:54:24 +0000
(19:54 +0000)
committer
Pepe Iborra
<mnislaih@gmail.com>
Fri, 16 Feb 2007 19:54:24 +0000
(19:54 +0000)
Print
"Breakpoint set at Main:26:13"
instead of
"Breakpoint set at (26,13)"
compiler/ghci/Debugger.hs
patch
|
blob
|
history
diff --git
a/compiler/ghci/Debugger.hs
b/compiler/ghci/Debugger.hs
index
62633d2
..
b5c30d6
100644
(file)
--- 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