From 0764ab4ce5810b649c07ec1bb4aabf7f44b7ed4e Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Fri, 5 Dec 2008 10:01:39 +0000
Subject: [PATCH] Comments only (on Activation)

---
 compiler/basicTypes/BasicTypes.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4