From 7f14b79fedbaf11d30ce96ec8440986ff5b2ac09 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 20 Oct 2010 07:59:41 +0000
Subject: [PATCH] Add a comment, connecting the seq to the test (#4367) that
 shows its usefulness

---
 compiler/basicTypes/IdInfo.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/basicTypes/IdInfo.lhs b/compiler/basicTypes/IdInfo.lhs
index c383f89..77f0325 100644
--- a/compiler/basicTypes/IdInfo.lhs
+++ b/compiler/basicTypes/IdInfo.lhs
@@ -243,7 +243,7 @@ setUnfoldingInfoLazily info uf 	-- Lazy variant to avoid looking at the
 
 setUnfoldingInfo :: IdInfo -> Unfolding -> IdInfo
 setUnfoldingInfo info uf 
-  = seqUnfolding uf `seq`
+  = seqUnfolding uf `seq`	-- This seq makes a BIG difference to Trac #4367
     info { unfoldingInfo = uf }
 
 setArityInfo :: IdInfo -> ArityInfo -> IdInfo
-- 
1.7.10.4