Commit 7f14b79f authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Add a comment, connecting the seq to the test (#4367) that shows its usefulness

parent 8e5442ba
......@@ -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
......
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