[project @ 1997-05-26 05:05:37 by sof]

[ghc-hetmet.git] / ghc / compiler / basicTypes / Demand.lhs

diff --git a/ghc/compiler/basicTypes/Demand.lhs b/ghc/compiler/basicTypes/Demand.lhs
index 738ea2f..22b699d 100644 (file)
--- a/ghc/compiler/basicTypes/Demand.lhs
+++ b/ghc/compiler/basicTypes/Demand.lhs
@@ -10,7 +10,7 @@ module Demand where
 
 import PprStyle                ( PprStyle )
 import Outputable
-import Pretty          ( SYN_IE(Pretty), PrettyRep, ppStr )
+import Pretty          ( Doc, text )
 import Util            ( panic )
 \end{code}
 
@@ -124,7 +124,7 @@ instance Show Demand where
                                        ch = if wu then "U" else "u"
 
 instance Outputable Demand where
-    ppr sty si = ppStr (showList [si] "")
+    ppr sty si = text (showList [si] "")
 \end{code}