From 7653e16d0afab8e25eb5015aa4d0c1d03d6ab4a3 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 17 May 2006 15:43:04 +0000
Subject: [PATCH] Comments only

---
 compiler/iface/IfaceSyn.lhs |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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))
 
 --------------------------
-- 
1.7.10.4