From 67e502c38e5fd4b4bb18d5ef611cbb5ce2eaa153 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 18 May 1997 19:56:00 +0000
Subject: [PATCH] [project @ 1997-05-18 19:56:00 by sof] Updated for new PP

---
 ghc/compiler/types/Usage.lhs |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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}
-- 
1.7.10.4