X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FIfaceSyn.lhs;h=7957050f631b2503a6eeeabaaadb452050f8f585;hp=99501a5b68f0f385de6c4f930908f8f0dfe52c7c;hb=7653e16d0afab8e25eb5015aa4d0c1d03d6ab4a3;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1

diff --git a/compiler/iface/IfaceSyn.lhs b/compiler/iface/IfaceSyn.lhs
index 99501a5..7957050 100644
--- a/compiler/iface/IfaceSyn.lhs
+++ b/compiler/iface/IfaceSyn.lhs
@@ -599,8 +599,9 @@ toIfaceIdInfo ext id_info
     unfold_info = unfoldingInfo id_info
     inline_prag = inlinePragInfo id_info
     rhs		= unfoldingTemplate unfold_info
-    unfold_hsinfo |  neverUnfold unfold_info 
-		  || has_worker = Nothing
+    unfold_hsinfo |  neverUnfold unfold_info 	-- The CoreTidy phase retains unfolding info iff
+		  || has_worker = Nothing	-- we want to expose the unfolding, taking into account
+						-- unconditional NOINLINE, etc.  See TidyPgm.addExternal
 		  | otherwise	= Just (HsUnfold inline_prag (toIfaceExpr ext rhs))
 
 --------------------------