[commit: ghc] wip/T14152: Exitification: Preserve exit points in all but the final iteration (caada47)

[git at git.haskell.org]

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

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

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

commit caada478db2d6a72ec345d739dbbf3b9981266ad
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Mon Oct 23 13:08:58 2017 -0400

    Exitification: Preserve exit points in all but the final iteration
    
    not the other way around… (off by negation bug introduced by me).


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

caada478db2d6a72ec345d739dbbf3b9981266ad
 compiler/simplCore/SimplCore.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/simplCore/SimplCore.hs b/compiler/simplCore/SimplCore.hs
index 91227f3..afb5e24 100644
--- a/compiler/simplCore/SimplCore.hs
+++ b/compiler/simplCore/SimplCore.hs
@@ -161,7 +161,7 @@ getCoreToDo dflags
           , CoreDoSimplify iter
                 (base_mode { sm_phase = Phase phase
                            , sm_names = names
-                           , sm_preserve_exit_joins = is_final
+                           , sm_preserve_exit_joins = not is_final
                               -- see Note [Do not inline exit join points] in Exitify.hs
                            })