X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FSimplCore.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FSimplCore.lhs;h=14214467f05d1533f2031ffd12f76aa79671accf;hb=eaa4cb42d8cca155a085512a4245e01be4aeb210;hp=9e57f1daf4aca5c38463371389807ba924ab2d34;hpb=9cbbb552ef1ce095b53e6f882d67c75eb819fc5b;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index 9e57f1d..1421446 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -635,8 +635,8 @@ shortOutIndirections binds
   | otherwise 		  = [Rec (flattenBinds binds')]	-- See Note [Rules and indirect-zapping]
   where
     ind_env 	       = makeIndEnv binds
-    exp_ids 	       = varSetElems ind_env
-    exp_id_set	       = mkVarSet exp_ids
+    exp_ids 	       = varSetElems ind_env	-- These exported Ids are the subjects
+    exp_id_set	       = mkVarSet exp_ids	-- of the indirection-elimination
     no_need_to_flatten = all (null . rulesRules . idSpecialisation) exp_ids
     binds' 	       = concatMap zap binds