diff options
| author | Nicolas Frisby <nicolas.frisby@gmail.com> | 2013-08-22 15:05:30 -0500 |
|---|---|---|
| committer | Nicolas Frisby <nicolas.frisby@gmail.com> | 2013-08-29 15:21:59 -0500 |
| commit | c080f727ba5f83921b842fcff71e9066adbdc250 (patch) | |
| tree | e4a25d3431f6977482104a029601c5fd2450fd2c /compiler/simplCore/OccurAnal.lhs | |
| parent | 33c880b43ed72d77f6b1d95d5ccefbd376c78c78 (diff) | |
| download | haskell-c080f727ba5f83921b842fcff71e9066adbdc250.tar.gz | |
simplified the .hi format and added the -flate-dmd-anal flag (fixes #7782)
cf http://ghc.haskell.org/trac/ghc/wiki/LateDmd
Diffstat (limited to 'compiler/simplCore/OccurAnal.lhs')
| -rw-r--r-- | compiler/simplCore/OccurAnal.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/OccurAnal.lhs b/compiler/simplCore/OccurAnal.lhs index 13e468f685..52c564507a 100644 --- a/compiler/simplCore/OccurAnal.lhs +++ b/compiler/simplCore/OccurAnal.lhs @@ -880,7 +880,7 @@ reOrderNodes depth bndr_set weak_fvs (node : nodes) binds | Just inl_source <- isStableCoreUnfolding_maybe (idUnfolding bndr) = case inl_source of - InlineWrapper {} -> 10 -- Note [INLINE pragmas] + InlineWrapper -> 10 -- Note [INLINE pragmas] _other -> 3 -- Data structures are more important than this -- so that dictionary/method recursion unravels -- Note that this case hits all InlineRule things, so we |