X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FIfaceSyn.lhs;h=9485dc9453a091010877d7371550fc567260b18a;hp=be68afe77fee6941b1145a19240b274fa204a45e;hb=c86161c5cf11de77e911fcb9e1e2bd1f8bd80b42;hpb=f65f61e18bb010109fd5581c44d37382b93a35b5

diff --git a/compiler/iface/IfaceSyn.lhs b/compiler/iface/IfaceSyn.lhs
index be68afe..9485dc9 100644
--- a/compiler/iface/IfaceSyn.lhs
+++ b/compiler/iface/IfaceSyn.lhs
@@ -212,7 +212,7 @@ data IfaceInfoItem
 data IfaceUnfolding 
   = IfCoreUnfold IfaceExpr
   | IfInlineRule Arity 
-                 Bool		-- Sat/UnSat
+                 Bool		-- OK to inline even if *un*-saturated
                  IfaceExpr 
   | IfWrapper    Arity Name	  -- NB: we need a Name (not just OccName) because the worker
 				  --     can simplify to a function in another module.