From: sof <unknown>
Date: Mon, 26 May 1997 02:14:55 +0000 (+0000)
Subject: [project @ 1997-05-26 02:14:40 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~543
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=79952b699c31f885d0bdf76e451cf1471a4892da;p=ghc-hetmet.git

[project @ 1997-05-26 02:14:40 by sof]
Updated to reflect move of PprStyle to Outputable
---

diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs
index c74a66b..f83f49c 100644
--- a/ghc/compiler/profiling/CostCentre.lhs
+++ b/ghc/compiler/profiling/CostCentre.lhs
@@ -33,7 +33,7 @@ IMP_Ubiq(){-uitous-}
 import Id		( externallyVisibleId, GenId, showId, SYN_IE(Id) )
 import CStrings		( identToC, stringToC )
 import Name		( OccName, getOccString, moduleString )
-import PprStyle		( PprStyle(..), codeStyle, ifaceStyle )
+import Outputable	( PprStyle(..), codeStyle, ifaceStyle )
 import UniqSet
 import Pretty
 import Util
diff --git a/ghc/compiler/profiling/SCCfinal.lhs b/ghc/compiler/profiling/SCCfinal.lhs
index 2e987d6..dbf31b0 100644
--- a/ghc/compiler/profiling/SCCfinal.lhs
+++ b/ghc/compiler/profiling/SCCfinal.lhs
@@ -37,12 +37,12 @@ import CmdLineOpts	( opt_AutoSccsOnIndividualCafs,
 import CostCentre	-- lots of things
 import Id		( idType, mkSysLocal, emptyIdSet, SYN_IE(Id) )
 import Maybes		( maybeToBool )
-import PprStyle		-- ToDo: rm
 import SrcLoc		( noSrcLoc )
 import Type		( splitSigmaTy, getFunTy_maybe )
 import UniqSupply	( getUnique, splitUniqSupply, UniqSupply )
 import Unique           ( Unique )
 import Util		( removeDups, assertPanic )
+import Outputable	-- ToDo: rm
 
 infixr 9 `thenMM`, `thenMM_`
 \end{code}