[commit: ghc] master: Testsuite wibbles (082e41b)

[git at git.haskell.org]

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

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

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

commit 082e41b4c469371cae2eda3fb9b5e0e0f54e73e3
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri May 23 13:42:37 2014 +0100

    Testsuite wibbles


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

082e41b4c469371cae2eda3fb9b5e0e0f54e73e3
 .../tests/simplCore/should_compile/EvalTest.stdout |  2 +-
 .../tests/simplCore/should_compile/T4138.stdout    |  2 +-
 .../tests/simplCore/should_compile/T8848.stderr    | 23 ++++++++++++++++++++++
 3 files changed, 25 insertions(+), 2 deletions(-)

diff --git a/testsuite/tests/simplCore/should_compile/EvalTest.stdout b/testsuite/tests/simplCore/should_compile/EvalTest.stdout
index 30c7ea4..25ed320 100644
--- a/testsuite/tests/simplCore/should_compile/EvalTest.stdout
+++ b/testsuite/tests/simplCore/should_compile/EvalTest.stdout
@@ -1 +1 @@
-rght [Dmd=<S,U>] :: EvalTest.AList a
+rght [Dmd=<S,U>] :: EvalTest.AList a1
diff --git a/testsuite/tests/simplCore/should_compile/T4138.stdout b/testsuite/tests/simplCore/should_compile/T4138.stdout
index d00491f..0cfbf08 100644
--- a/testsuite/tests/simplCore/should_compile/T4138.stdout
+++ b/testsuite/tests/simplCore/should_compile/T4138.stdout
@@ -1 +1 @@
-1
+2
diff --git a/testsuite/tests/simplCore/should_compile/T8848.stderr b/testsuite/tests/simplCore/should_compile/T8848.stderr
index a96051a..dcc478c 100644
--- a/testsuite/tests/simplCore/should_compile/T8848.stderr
+++ b/testsuite/tests/simplCore/should_compile/T8848.stderr
@@ -13,6 +13,26 @@ Rule fired: Class op <*>
 Rule fired: Class op $p1Applicative
 Rule fired: Class op fmap
 Rule fired: Class op <*>
+Rule fired: Class op $p1Applicative
+Rule fired: Class op fmap
+Rule fired: Class op <*>
+Rule fired:
+    SPEC/main:T8848 Control.Applicative.liftA2 _ _ _ @ (T8848.Shape
+                                                      'T8848.Z)
+Rule fired: Class op $p1Applicative
+Rule fired: Class op fmap
+Rule fired: Class op <*>
+Rule fired:
+    SPEC/main:T8848 Control.Applicative.liftA2 _ _ _ @ (T8848.Shape
+                                                      'T8848.Z)
+Rule fired: Class op $p1Applicative
+Rule fired: Class op fmap
+Rule fired: Class op <*>
+Rule fired: Class op $p1Applicative
+Rule fired: Class op fmap
+Rule fired: Class op <*>
+Rule fired: Class op fmap
+Rule fired: Class op fmap
 Rule fired: SPEC $cfmap @ 'T8848.Z
 Rule fired: SPEC $c<$ @ 'T8848.Z
 Rule fired: SPEC T8848.$fFunctorShape @ 'T8848.Z
@@ -20,3 +40,6 @@ Rule fired: Class op fmap
 Rule fired: Class op fmap
 Rule fired: SPEC $c<$ @ 'T8848.Z
 Rule fired: SPEC T8848.$fFunctorShape @ 'T8848.Z
+Rule fired: SPEC T8848.$fFunctorShape @ 'T8848.Z
+Rule fired: Class op fmap
+Rule fired: Class op fmap