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 ...@@ -243,7 +243,10 @@ setUnfoldingInfoLazily info uf -- Lazy variant to avoid looking at the
setUnfoldingInfo :: IdInfo -> Unfolding -> IdInfo setUnfoldingInfo :: IdInfo -> Unfolding -> IdInfo
setUnfoldingInfo info uf 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 } info { unfoldingInfo = uf }
setArityInfo :: IdInfo -> ArityInfo -> IdInfo 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