[commit: ghc] wip/all-inlinable: Add trace statement to see what is being included (9f63416)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/all-inlinable
Link       : http://ghc.haskell.org/trac/ghc/changeset/9f63416aae812a3efa31e17da89c05e9e42cfd2d/ghc

>---------------------------------------------------------------

commit 9f63416aae812a3efa31e17da89c05e9e42cfd2d
Author: Matthew Pickering <matthewtpickering at gmail.com>
Date:   Mon Jan 9 10:44:06 2017 +0000

    Add trace statement to see what is being included


>---------------------------------------------------------------

9f63416aae812a3efa31e17da89c05e9e42cfd2d
 compiler/main/TidyPgm.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/main/TidyPgm.hs b/compiler/main/TidyPgm.hs
index 82dd71c..2f41b7a 100644
--- a/compiler/main/TidyPgm.hs
+++ b/compiler/main/TidyPgm.hs
@@ -739,7 +739,9 @@ addExternal expose_all id = (new_needed_ids, show_unfold)
 
        || isStableSource src     -- Always expose things whose
                                  -- source is an inline rule
-       || is_overloaded          -- Always expose overloaded things so that
+       || (if is_overloaded
+            then pprTrace "ADDITION UNFOLDING" (ppr id) True
+            else False)           -- Always expose overloaded things so that
                                  -- they can be specialised at call sites.
        || not (bottoming_fn      -- No need to inline bottom functions
            || never_active       -- Or ones that say not to