X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fstranal%2FSaLib.lhs;h=3f5c7fa93f39e1e3ac3ad807f659fb57bcee6bba;hb=1fb1ab5d53a09607e7f6d2450806760688396387;hp=786333aad06d2ae69210138aafae2c6b7a91dc7d;hpb=fa6fb09e2e4e6918eebc79ed187f32c88817c9db;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/SaLib.lhs b/ghc/compiler/stranal/SaLib.lhs
index 786333a..3f5c7fa 100644
--- a/ghc/compiler/stranal/SaLib.lhs
+++ b/ghc/compiler/stranal/SaLib.lhs
@@ -29,7 +29,7 @@ import IdInfo		( StrictnessInfo(..) )
 import Demand		( Demand{-instance Outputable-} )
 import Outputable	( Outputable(..){-instance * []-} )
 import PprType		( GenType{-instance Outputable-} )
-import Pretty		( ppStr, ppCat )
+import Pretty		( ppPStr, ppCat, ppChar )
 \end{code}
 
 %************************************************************************
@@ -74,15 +74,15 @@ data AbsVal
 			    -- argument if the  Demand so indicates.
 
 instance Outputable AbsVal where
-    ppr sty AbsTop = ppStr "AbsTop"
-    ppr sty AbsBot = ppStr "AbsBot"
-    ppr sty (AbsProd prod) = ppCat [ppStr "AbsProd", ppr sty prod]
+    ppr sty AbsTop = ppPStr SLIT("AbsTop")
+    ppr sty AbsBot = ppPStr SLIT("AbsBot")
+    ppr sty (AbsProd prod) = ppCat [ppPStr SLIT("AbsProd"), ppr sty prod]
     ppr sty (AbsFun arg body env)
-      = ppCat [ppStr "AbsFun{", ppr sty arg,
-	       ppStr "???", -- ppStr "}{env:", ppr sty (keysFM env `zip` eltsFM env),
-	       ppStr "}" ]
+      = ppCat [ppPStr SLIT("AbsFun{"), ppr sty arg,
+	       ppPStr SLIT("???"), -- ppStr "}{env:", ppr sty (keysFM env `zip` eltsFM env),
+	       ppChar '}' ]
     ppr sty (AbsApproxFun demand val)
-      = ppCat [ppStr "AbsApprox ", ppr sty demand, ppStr "", ppr sty val ]
+      = ppCat [ppPStr SLIT("AbsApprox "), ppr sty demand, ppr sty val ]
 \end{code}
 
 %-----------