X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreSyn.lhs;h=c74de06b24c822e993025797ca23b904d80b3578;hb=92267aa26adb1ab5a6d8004a80fdf6aa06ea4e44;hp=fb7865b354f56150cdf7ad0085aefd86dc2554ae;hpb=861e1d55126391785e93493080d3c7516812675e;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index fb7865b..c74de06 100644
--- a/compiler/coreSyn/CoreSyn.lhs
+++ b/compiler/coreSyn/CoreSyn.lhs
@@ -319,7 +319,7 @@ data CoreRule
   = Rule { 
 	ru_name :: RuleName,            -- ^ Name of the rule, for communication with the user
 	ru_act  :: Activation,          -- ^ When the rule is active
-	
+
 	-- Rough-matching stuff
 	-- see comments with InstEnv.Instance( is_cls, is_rough )
 	ru_fn    :: Name,	        -- ^ Name of the 'Id.Id' at the head of this rule
@@ -336,6 +336,10 @@ data CoreRule
 					-- See Note [OccInfo in unfoldings and rules]
 
 	-- Locality
+        ru_auto :: Bool,	-- ^ @True@  <=> this rule is auto-generated
+		   		--   @False@ <=> generated at the users behest
+				--   Main effect: reporting of orphan-hood
+
 	ru_local :: Bool	-- ^ @True@ iff the fn at the head of the rule is
 				-- defined in the same module as the rule
 				-- and is not an implicit 'Id' (like a record selector,