[commit: ghc] wip/T14152: Run exitification after demand analysis (05d3ddc)

[git at git.haskell.org]

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

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

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

commit 05d3ddcd545d1b36cbf4a9f2781b77a34797059a
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Oct 26 09:21:38 2017 -0400

    Run exitification after demand analysis


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

05d3ddcd545d1b36cbf4a9f2781b77a34797059a
 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 10115c4..21a5c21 100644
--- a/compiler/simplCore/SimplCore.hs
+++ b/compiler/simplCore/SimplCore.hs
@@ -284,8 +284,6 @@ getCoreToDo dflags
 
         simpl_phases,
 
-        runWhen exitification CoreDoExitify,
-
                 -- Phase 0: allow all Ids to be inlined now
                 -- This gets foldr inlined before strictness analysis
 
@@ -312,6 +310,8 @@ getCoreToDo dflags
 
         runWhen strictness demand_analyser,
 
+        runWhen exitification CoreDoExitify,
+
         runWhen full_laziness $
            CoreDoFloatOutwards FloatOutSwitches {
                                  floatOutLambdas     = floatLamArgs dflags,