X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FIdInfo.lhs;fp=ghc%2Fcompiler%2FbasicTypes%2FIdInfo.lhs;h=20dcbe291b79956982f34ba407309a16ea13e7ec;hb=a7ecdf96844404b7bc8273d4ff6d85759278427c;hp=5f223e5ec4235124223a7c40fc647bd5e9a8c0fb;hpb=8a9aba1ff5e66aad02aba0997339ea6ec60d6b1e;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index 5f223e5..20dcbe2 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -442,6 +442,9 @@ type InlinePragInfo = Activation
 	--
 	-- If there was an INLINE pragma, then as a separate matter, the
 	-- RHS will have been made to look small with a CoreSyn Inline Note
+
+	-- The default InlinePragInfo is AlwaysActive, so the info serves
+	-- entirely as a way to inhibit inlining until we want it
 \end{code}