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:
c787211
)
More informative message in a breakpoint
author
Pepe Iborra
<mnislaih@gmail.com>
Sat, 6 Jan 2007 10:07:36 +0000
(10:07 +0000)
committer
Pepe Iborra
<mnislaih@gmail.com>
Sat, 6 Jan 2007 10:07:36 +0000
(10:07 +0000)
compiler/ghci/InteractiveUI.hs
patch
|
blob
|
history
diff --git
a/compiler/ghci/InteractiveUI.hs
b/compiler/ghci/InteractiveUI.hs
index
d6f557d
..
d18a75c
100644
(file)
--- a/
compiler/ghci/InteractiveUI.hs
+++ b/
compiler/ghci/InteractiveUI.hs
@@
-1517,11
+1517,13
@@
doBreakpoint ref_bkptTable s@(Session ref) values _ locMsg b = do
printScopeMsg location ids = do
unqual <- GHC.getPrintUnqual s
printForUser stdout unqual $
printScopeMsg location ids = do
unqual <- GHC.getPrintUnqual s
printForUser stdout unqual $
- text "Local bindings in scope:" $$
+ text "Stopped at a breakpoint in " <> text (stripColumn location) <>
+ char '.' <+> text "Local bindings in scope:" $$
nest 2 (pprWithCommas showId ids)
where
showId id =
ppr (idName id) <+> dcolon <+> ppr (idType id)
nest 2 (pprWithCommas showId ids)
where
showId id =
ppr (idName id) <+> dcolon <+> ppr (idType id)
+ stripColumn = reverse . tail . dropWhile (/= ':') . reverse
-- | Give the Id a Global Name, and tidy its type
globaliseAndTidy :: Id -> Id
-- | Give the Id a Global Name, and tidy its type
globaliseAndTidy :: Id -> Id