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:
2ea586c
)
[project @ 1997-09-09 18:08:11 by sof]
author
sof
<unknown>
Tue, 9 Sep 1997 18:08:11 +0000
(18:08 +0000)
committer
sof
<unknown>
Tue, 9 Sep 1997 18:08:11 +0000
(18:08 +0000)
ghc/compiler/coreSyn/CoreLint.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/coreSyn/CoreLint.lhs
b/ghc/compiler/coreSyn/CoreLint.lhs
index
9a43628
..
4c3aa28
100644
(file)
--- a/
ghc/compiler/coreSyn/CoreLint.lhs
+++ b/
ghc/compiler/coreSyn/CoreLint.lhs
@@
-30,7
+30,7
@@
import Maybes ( catMaybes )
import Name ( isLocallyDefined, getSrcLoc, Name{-instance NamedThing-},
NamedThing(..) )
import PprCore
import Name ( isLocallyDefined, getSrcLoc, Name{-instance NamedThing-},
NamedThing(..) )
import PprCore
-import Outputable ( PprStyle(..), Outputable(..), pprErrorsStyle, printErrs )
+import Outputable ( PprStyle(..), Outputable(..), pprDumpStyle, printErrs )
import ErrUtils ( doIfSet, ghcExit )
import PprType ( GenType, GenTyVar, TyCon )
import Pretty
import ErrUtils ( doIfSet, ghcExit )
import PprType ( GenType, GenTyVar, TyCon )
import Pretty
@@
-109,9
+109,9
@@
lintCoreBindings whoDunnit spec_done binds
display bad_news
= vcat [
text ("*** Core Lint Errors: in result of " ++ whoDunnit ++ " ***"),
display bad_news
= vcat [
text ("*** Core Lint Errors: in result of " ++ whoDunnit ++ " ***"),
- bad_news pprErrorsStyle,
+ bad_news pprDumpStyle,
ptext SLIT("*** Offending Program ***"),
ptext SLIT("*** Offending Program ***"),
- pprCoreBindings pprErrorsStyle binds,
+ pprCoreBindings pprDumpStyle binds,
ptext SLIT("*** End of Offense ***")
]
\end{code}
ptext SLIT("*** End of Offense ***")
]
\end{code}