X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FTidyPgm.lhs;fp=compiler%2Fmain%2FTidyPgm.lhs;h=eefdd2d9aa646a048ad1c3158724c1204a500377;hp=6a9f0ddfceff4d28cc73b33394d00f1d25624d39;hb=5c61fd637c1f3f47cddb523b33be95baa29716eb;hpb=c13f5e5b5f1ea004330e196f568a8ef8dc8e6cbc

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index 6a9f0dd..eefdd2d 100644
--- a/compiler/main/TidyPgm.lhs
+++ b/compiler/main/TidyPgm.lhs
@@ -310,6 +310,8 @@ tidyProgram hsc_env  (ModGuts { mg_module = mod, mg_exports = exports,
                                    binds implicit_binds imp_rules
 
         ; let { ext_rules = findExternalRules omit_prags binds imp_rules unfold_env }
+	        -- Glom together imp_rules and rules currently attached to binders
+		-- Then pick just the ones we need to expose
 		-- See Note [Which rules to expose]
 
 	; let { (tidy_env, tidy_binds)