From 410213e1e225537cc50d88595a6d5b2eec63876e Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 9 Sep 1997 18:08:11 +0000
Subject: [PATCH] [project @ 1997-09-09 18:08:11 by sof]
---
ghc/compiler/coreSyn/CoreLint.lhs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ghc/compiler/coreSyn/CoreLint.lhs b/ghc/compiler/coreSyn/CoreLint.lhs
index 9a4362863a62..4c3aa283c39d 100644
--- 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 Outputable ( PprStyle(..), Outputable(..), pprErrorsStyle, printErrs )
+import Outputable ( PprStyle(..), Outputable(..), pprDumpStyle, printErrs )
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 ++ " ***"),
- bad_news pprErrorsStyle,
+ bad_news pprDumpStyle,
ptext SLIT("*** Offending Program ***"),
- pprCoreBindings pprErrorsStyle binds,
+ pprCoreBindings pprDumpStyle binds,
ptext SLIT("*** End of Offense ***")
]
\end{code}
--
GitLab