[commit: ghc] wip/T14152: Try exitification before the final simplifier run (12d403d)

[git at git.haskell.org]

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

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

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

commit 12d403d7594c74813703489b7034b00d979ac113
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Wed Oct 25 18:03:20 2017 -0400

    Try exitification before the final simplifier run


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

12d403d7594c74813703489b7034b00d979ac113
 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 dc9a5bb..a88ed63 100644
--- a/compiler/simplCore/SimplCore.hs
+++ b/compiler/simplCore/SimplCore.hs
@@ -328,8 +328,6 @@ 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),
@@ -347,6 +345,8 @@ getCoreToDo dflags
 
         maybe_rule_check (Phase 0),
 
+        runWhen exitification CoreDoExitify,
+
         -- Final clean-up simplification:
         simpl_phase 0 ["final"] max_iter,