From: sof <unknown>
Date: Sun, 18 May 1997 19:56:00 +0000 (+0000)
Subject: [project @ 1997-05-18 19:56:00 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~641
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=67e502c38e5fd4b4bb18d5ef611cbb5ce2eaa153;p=ghc-hetmet.git

[project @ 1997-05-18 19:56:00 by sof]
Updated for new PP
---

diff --git a/ghc/compiler/types/Usage.lhs b/ghc/compiler/types/Usage.lhs
index e13a619..c3119e8 100644
--- a/ghc/compiler/types/Usage.lhs
+++ b/ghc/compiler/types/Usage.lhs
@@ -16,7 +16,8 @@ module Usage (
 
 IMP_Ubiq(){-uitous-}
 
-import Pretty	( SYN_IE(Pretty), PrettyRep, ppPStr, ppBeside )
+import Outputable
+import Pretty	( Doc, Mode, ptext, (<>) )
 import UniqFM	( emptyUFM, listToUFM, addToUFM, lookupUFM,
 		  plusUFM, sizeUFM, UniqFM
 		)
@@ -104,9 +105,9 @@ instance Eq u => Eq (GenUsage u) where
 
 \begin{code}
 instance Outputable uvar => Outputable (GenUsage uvar) where
-    ppr sty UsageOne	 = ppPStr SLIT("UsageOne")
-    ppr sty UsageOmega	 = ppPStr SLIT("UsageOmega")
+    ppr sty UsageOne	 = ptext SLIT("UsageOne")
+    ppr sty UsageOmega	 = ptext SLIT("UsageOmega")
     ppr sty (UsageVar u) = pprUVar sty u
 
-pprUVar sty u = ppBeside (ppPStr SLIT("u")) (ppr sty u)
+pprUVar sty u = (<>) (ptext SLIT("u")) (ppr sty u)
 \end{code}