X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FIfaceSyn.lhs;h=9485dc9453a091010877d7371550fc567260b18a;hb=0af418beb1aadcae1df036240151556895d00321;hp=4311e6530603634c1c5bcda9f5a7c5b580789899;hpb=6a944ae7fe1e8e2e456c68717188463263f8978f;p=ghc-hetmet.git

diff --git a/compiler/iface/IfaceSyn.lhs b/compiler/iface/IfaceSyn.lhs
index 4311e65..9485dc9 100644
--- a/compiler/iface/IfaceSyn.lhs
+++ b/compiler/iface/IfaceSyn.lhs
@@ -28,7 +28,7 @@ module IfaceSyn (
 
 import IfaceType
 
-import NewDemand
+import Demand
 import Annotations
 import Class
 import NameSet 
@@ -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.