[commit: ghc] wip/T10918: Run Call Arity after the last floating again (432adaa)

[git at git.haskell.org]

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

On branch  : wip/T10918
Link       : http://ghc.haskell.org/trac/ghc/changeset/432adaa4512227e109b1ff4f30272a0ddd5d4455/ghc

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

commit 432adaa4512227e109b1ff4f30272a0ddd5d4455
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Wed Oct 7 10:53:53 2015 +0200

    Run Call Arity after the last floating again


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

432adaa4512227e109b1ff4f30272a0ddd5d4455
 compiler/simplCore/SimplCore.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/compiler/simplCore/SimplCore.hs b/compiler/simplCore/SimplCore.hs
index 9207cf4..efe3baf 100644
--- a/compiler/simplCore/SimplCore.hs
+++ b/compiler/simplCore/SimplCore.hs
@@ -298,6 +298,11 @@ getCoreToDo dflags
 
         maybe_rule_check (Phase 0),
 
+        runWhen call_arity $ CoreDoPasses
+            [ CoreDoCallArity
+            , simpl_phase 0 ["post-late-call-arity"] max_iter
+            ],
+
                 -- Case-liberation for -O2.  This should be after
                 -- strictness analysis and the simplification which follows it.
         runWhen liberate_case (CoreDoPasses [