[commit: ghc] wip/T14152: Try exitifcation after CSE (f68cec7)

[git at git.haskell.org]

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

On branch  : wip/T14152
Link       : http://ghc.haskell.org/trac/ghc/changeset/f68cec77804d5c47f53a0be6dace5fd23d4a3331/ghc

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

commit f68cec77804d5c47f53a0be6dace5fd23d4a3331
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Wed Oct 25 18:02:30 2017 -0400

    Try exitifcation after CSE


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

f68cec77804d5c47f53a0be6dace5fd23d4a3331
 compiler/simplCore/SimplCore.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/simplCore/SimplCore.hs b/compiler/simplCore/SimplCore.hs
index 21a5c21..dc9a5bb 100644
--- a/compiler/simplCore/SimplCore.hs
+++ b/compiler/simplCore/SimplCore.hs
@@ -310,8 +310,6 @@ getCoreToDo dflags
 
         runWhen strictness demand_analyser,
 
-        runWhen exitification CoreDoExitify,
-
         runWhen full_laziness $
            CoreDoFloatOutwards FloatOutSwitches {
                                  floatOutLambdas     = floatLamArgs dflags,
@@ -330,6 +328,8 @@ getCoreToDo dflags
                 -- succeed in commoning up things floated out by full laziness.
                 -- CSE used to rely on the no-shadowing invariant, but it doesn't any more
 
+        runWhen exitification CoreDoExitify,
+
         runWhen do_float_in CoreDoFloatInwards,
 
         maybe_rule_check (Phase 0),