Comments only, about RULE plumbing

[ghc-hetmet.git] / compiler / main / TidyPgm.lhs

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index 6a9f0dd..eefdd2d 100644 (file)
--- 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 }
                                    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)
                -- See Note [Which rules to expose]
 
        ; let { (tidy_env, tidy_binds)