From 79952b699c31f885d0bdf76e451cf1471a4892da Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 26 May 1997 02:14:55 +0000 Subject: [PATCH] [project @ 1997-05-26 02:14:40 by sof] Updated to reflect move of PprStyle to Outputable --- ghc/compiler/profiling/CostCentre.lhs | 2 +- ghc/compiler/profiling/SCCfinal.lhs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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} -- 1.7.10.4