[commit: ghc] wip/T14152: Run exitification before the final simplifier run (e6d5e13)

[git at git.haskell.org]

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

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

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

commit e6d5e13a1758221628df2daae58f2dcde0c4c3f8
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Oct 26 09:22:06 2017 -0400

    Run exitification before the final simplifier run


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

e6d5e13a1758221628df2daae58f2dcde0c4c3f8
 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..a88ed63 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,
@@ -347,6 +345,8 @@ getCoreToDo dflags
 
         maybe_rule_check (Phase 0),
 
+        runWhen exitification CoreDoExitify,
+
         -- Final clean-up simplification:
         simpl_phase 0 ["final"] max_iter,