diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2016-08-03 14:22:21 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2016-08-03 15:58:52 +0100 |
| commit | 7a8ef01920731f0afa45f3589fcb4a89d5eb125c (patch) | |
| tree | 05822c7510392f02fc552f077b17942a8953c73f /compiler/iface/TcIface.hs | |
| parent | 7a06b220447ecaf603e3c9d420ecb34b9d5609f1 (diff) | |
| download | haskell-7a8ef01920731f0afa45f3589fcb4a89d5eb125c.tar.gz | |
Remove `setUnfoldingInfoLazily`
The definition of `setUnfoldingInfoLazily` is exactly the same as
`setUnfoldingInfo` and is only used in one place, `TcIface`.
They were made equivalent in 2010 in
2ff2497dc374175b8ed81446258baf208d1f3e6e with the commit message.
{{{
commit 2ff2497dc374175b8ed81446258baf208d1f3e6e
Author: Ian Lynagh <igloo@earth.li> Wed Oct 20 15:37:10 2010
Committer: Ian Lynagh <igloo@earth.li> Wed Oct 20 15:37:10 2010
Original File: compiler/basicTypes/IdInfo.lhs
Don't seq unfoldings
We generate intermediate unfoldings which are just thrown away, so
evaluating them is a waste of time.
}}}
Closes #12453
Diffstat (limited to 'compiler/iface/TcIface.hs')
| -rw-r--r-- | compiler/iface/TcIface.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/TcIface.hs b/compiler/iface/TcIface.hs index f8e9505f1c..56c5a5aaf0 100644 --- a/compiler/iface/TcIface.hs +++ b/compiler/iface/TcIface.hs @@ -1232,7 +1232,7 @@ tcIdInfo ignore_prags name ty info = do { unf <- tcUnfolding name ty info if_unf ; let info1 | lb = info `setOccInfo` strongLoopBreaker | otherwise = info - ; return (info1 `setUnfoldingInfoLazily` unf) } + ; return (info1 `setUnfoldingInfo` unf) } tcUnfolding :: Name -> Type -> IdInfo -> IfaceUnfolding -> IfL Unfolding tcUnfolding name _ info (IfCoreUnfold stable if_expr) |