diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-01-02 19:13:44 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-01-06 18:39:22 -0500 |
| commit | 99a9f51bf8207c79241fc0b685fadeb222a61292 (patch) | |
| tree | 63daf74031c47b7a680477a21bba505bf2d32701 /compiler/simplCore/Simplify.hs | |
| parent | 5ffea0c6c6a2670fd6819540f3ea61ce6620caaa (diff) | |
| download | haskell-99a9f51bf8207c79241fc0b685fadeb222a61292.tar.gz | |
Module hierarchy: Iface (cf #13009)
Diffstat (limited to 'compiler/simplCore/Simplify.hs')
| -rw-r--r-- | compiler/simplCore/Simplify.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/Simplify.hs b/compiler/simplCore/Simplify.hs index f5d8f1aeb0..e671378d11 100644 --- a/compiler/simplCore/Simplify.hs +++ b/compiler/simplCore/Simplify.hs @@ -3501,7 +3501,7 @@ mkLetUnfolding dflags top_lvl src id new_rhs return (mkUnfolding dflags src is_top_lvl is_bottoming new_rhs) -- We make an unfolding *even for loop-breakers*. -- Reason: (a) It might be useful to know that they are WHNF - -- (b) In TidyPgm we currently assume that, if we want to + -- (b) In GHC.Iface.Tidy we currently assume that, if we want to -- expose the unfolding then indeed we *have* an unfolding -- to expose. (We could instead use the RHS, but currently -- we don't.) The simple thing is always to have one. |