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

[git at git.haskell.org]

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

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

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

commit b929ca22734a01bae1c2e951b0b82896e5fdd807
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


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

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

diff --git a/compiler/simplCore/SimplCore.hs b/compiler/simplCore/SimplCore.hs
index 90233d6..bef3607 100644
--- a/compiler/simplCore/SimplCore.hs
+++ b/compiler/simplCore/SimplCore.hs
@@ -293,6 +293,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 [