From: sof <unknown>
Date: Tue, 9 Sep 1997 18:08:11 +0000 (+0000)
Subject: [project @ 1997-09-09 18:08:11 by sof]
X-Git-Tag: Approx_2487_patches~1501
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=410213e1e225537cc50d88595a6d5b2eec63876e;p=ghc-hetmet.git

[project @ 1997-09-09 18:08:11 by sof]
---

diff --git a/ghc/compiler/coreSyn/CoreLint.lhs b/ghc/compiler/coreSyn/CoreLint.lhs
index 9a43628..4c3aa28 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}