X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcoreSyn%2FPprCore.lhs;fp=compiler%2FcoreSyn%2FPprCore.lhs;h=26fe688bf2b88335368cc7068e9ae850457cf023;hp=4d828b65b0bf7cc26d87e87d2c6cafe20ccdeafd;hb=a5b8f5c544e977a230da67456455aca9cd576637;hpb=0db1d50e627a0b5d87d67c9f236c9e03a55c962e

diff --git a/compiler/coreSyn/PprCore.lhs b/compiler/coreSyn/PprCore.lhs
index 4d828b6..26fe688 100644
--- a/compiler/coreSyn/PprCore.lhs
+++ b/compiler/coreSyn/PprCore.lhs
@@ -371,9 +371,9 @@ showAttributes stuff
 \begin{code}
 instance Outputable UnfoldingGuidance where
     ppr UnfNever  = ptext (sLit "NEVER")
-    ppr (UnfWhen sat_ok boring_ok)
+    ppr (UnfWhen unsat_ok boring_ok)
       = ptext (sLit "ALWAYS_IF") <> 
-        parens (ptext (sLit "sat_ok=") <> ppr sat_ok <> comma <>
+        parens (ptext (sLit "unsat_ok=") <> ppr unsat_ok <> comma <>
                 ptext (sLit "boring_ok=") <> ppr boring_ok)
     ppr (UnfIfGoodArgs { ug_args = cs, ug_size = size, ug_res = discount })
       = hsep [ ptext (sLit "IF_ARGS"),