[commit: ghc] master: More SPEC rules fire (a3e207f)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/a3e207f6032745adb9289da73a87170bdeab517d/ghc

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

commit a3e207f6032745adb9289da73a87170bdeab517d
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue May 13 12:43:27 2014 +0100

    More SPEC rules fire


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

a3e207f6032745adb9289da73a87170bdeab517d
 testsuite/tests/perf/compiler/T4007.stdout            | 3 +--
 testsuite/tests/simplCore/should_compile/T8848.stderr | 7 +++++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/testsuite/tests/perf/compiler/T4007.stdout b/testsuite/tests/perf/compiler/T4007.stdout
index 83af66c..7242659 100644
--- a/testsuite/tests/perf/compiler/T4007.stdout
+++ b/testsuite/tests/perf/compiler/T4007.stdout
@@ -1,6 +1,5 @@
 Rule fired: unpack
-Rule fired: Class op >>
-Rule fired: Class op return
+Rule fired: SPEC Control.Monad.sequence_ @ GHC.Types.IO _
 Rule fired: <=#
 Rule fired: tagToEnum#
 Rule fired: fold/build
diff --git a/testsuite/tests/simplCore/should_compile/T8848.stderr b/testsuite/tests/simplCore/should_compile/T8848.stderr
index c17d599..a96051a 100644
--- a/testsuite/tests/simplCore/should_compile/T8848.stderr
+++ b/testsuite/tests/simplCore/should_compile/T8848.stderr
@@ -1,5 +1,3 @@
-Rule fired: Class op fmap
-Rule fired: Class op fmap
 Rule fired: Class op pure
 Rule fired: Class op <*>
 Rule fired: Class op <*>
@@ -8,6 +6,7 @@ Rule fired: Class op $p1Applicative
 Rule fired: Class op <*>
 Rule fired: Class op $p1Applicative
 Rule fired: Class op <*>
+Rule fired: Class op fmap
 Rule fired: Class op $p1Applicative
 Rule fired: Class op fmap
 Rule fired: Class op <*>
@@ -17,3 +16,7 @@ Rule fired: Class op <*>
 Rule fired: SPEC $cfmap @ 'T8848.Z
 Rule fired: SPEC $c<$ @ 'T8848.Z
 Rule fired: SPEC T8848.$fFunctorShape @ 'T8848.Z
+Rule fired: Class op fmap
+Rule fired: Class op fmap
+Rule fired: SPEC $c<$ @ 'T8848.Z
+Rule fired: SPEC T8848.$fFunctorShape @ 'T8848.Z