X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcprAnalysis%2FCprAnalyse.lhs;h=8f3c34356800afc24069326caf9afbb6aecf98a9;hb=8604da0136707cc14845d14a88c2272fe576b6d0;hp=d6525c547c8c2368ed421f8a3f0f2612a9d83086;hpb=76b1060bfd1e9b8eca8b511b5a826979eee32714;p=ghc-hetmet.git

diff --git a/compiler/cprAnalysis/CprAnalyse.lhs b/compiler/cprAnalysis/CprAnalyse.lhs
index d6525c5..8f3c343 100644
--- a/compiler/cprAnalysis/CprAnalyse.lhs
+++ b/compiler/cprAnalysis/CprAnalyse.lhs
@@ -99,10 +99,10 @@ data AbsVal = Top                -- Not a constructed product
 
 -- For pretty debugging
 instance Outputable AbsVal where
-  ppr Top       = ptext SLIT("Top")
-  ppr (Fun r)   = ptext SLIT("Fun->") <> (parens.ppr) r
-  ppr Tuple     = ptext SLIT("Tuple ")
-  ppr Bot       = ptext SLIT("Bot")
+  ppr Top       = ptext (sLit "Top")
+  ppr (Fun r)   = ptext (sLit "Fun->") <> (parens.ppr) r
+  ppr Tuple     = ptext (sLit "Tuple ")
+  ppr Bot       = ptext (sLit "Bot")
 
 
 -- lub takes the lowest upper bound of two abstract values, standard.