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

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.