From 2ff2497dc374175b8ed81446258baf208d1f3e6e Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 20 Oct 2010 14:37:10 +0000 Subject: [PATCH] Don't seq unfoldings We generate intermediate unfoldings which are just thrown away, so evaluating them is a waste of time. --- compiler/basicTypes/IdInfo.lhs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/basicTypes/IdInfo.lhs b/compiler/basicTypes/IdInfo.lhs index 77f0325..9dda37e 100644 --- a/compiler/basicTypes/IdInfo.lhs +++ b/compiler/basicTypes/IdInfo.lhs @@ -243,7 +243,10 @@ setUnfoldingInfoLazily info uf -- Lazy variant to avoid looking at the setUnfoldingInfo :: IdInfo -> Unfolding -> IdInfo setUnfoldingInfo info uf - = seqUnfolding uf `seq` -- This seq makes a BIG difference to Trac #4367 + = -- We don't seq the unfolding, as we generate intermediate + -- unfoldings which are just thrown away, so evaluating them is a + -- waste of time. + -- seqUnfolding uf `seq` info { unfoldingInfo = uf } setArityInfo :: IdInfo -> ArityInfo -> IdInfo -- 1.7.10.4