Commit 2ff2497d authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Don't seq unfoldings

We generate intermediate unfoldings which are just thrown away, so
evaluating them is a waste of time.
parent 1bdb9062
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment