From: simonpj@microsoft.com <unknown>
Date: Fri, 5 Dec 2008 10:01:39 +0000 (+0000)
Subject: Comments only (on Activation)
X-Git-Tag: 2009-03-13~362
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0764ab4ce5810b649c07ec1bb4aabf7f44b7ed4e

Comments only (on Activation)
---

diff --git a/compiler/basicTypes/BasicTypes.lhs b/compiler/basicTypes/BasicTypes.lhs
index 8fcf5ca..70a9312 100644
--- a/compiler/basicTypes/BasicTypes.lhs
+++ b/compiler/basicTypes/BasicTypes.lhs
@@ -566,8 +566,8 @@ data Activation = NeverActive
 data InlineSpec
   = Inline 
 	Activation	-- Says during which phases inlining is allowed
-	Bool 		-- True <=> make the RHS look small, so that when inlining
-			--	    is enabled, it will definitely actually happen
+	Bool 		-- True  <=> INLINE
+			-- False <=> NOINLINE
   deriving( Eq )
 
 defaultInlineSpec, alwaysInlineSpec, neverInlineSpec :: InlineSpec