Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/3771c7b0f4debee307c385ffca5c3093423c8db7

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

commit 3771c7b0f4debee307c385ffca5c3093423c8db7
Author: Simon Peyton Jones <[email protected]>
Date:   Tue Oct 2 15:20:57 2012 +0100

    Two mor error message wibbles

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

 tests/indexed-types/should_fail/T7010.stderr |    2 +-
 tests/simplCore/should_run/T3591.stderr      |   16 ----------------
 2 files changed, 1 insertions(+), 17 deletions(-)

diff --git a/tests/indexed-types/should_fail/T7010.stderr 
b/tests/indexed-types/should_fail/T7010.stderr
index b9d213a..6f620c7 100644
--- a/tests/indexed-types/should_fail/T7010.stderr
+++ b/tests/indexed-types/should_fail/T7010.stderr
@@ -1,6 +1,6 @@
 
 T7010.hs:44:27:
-    Couldn't match type `IO Float' with `Serial t0'
+    Couldn't match type `Serial (IO Float)' with `IO Float'
     Expected type: (Float, ValueTuple Vector)
       Actual type: (Float, ValueTuple Float)
     In the first argument of `withArgs', namely `plug'
diff --git a/tests/simplCore/should_run/T3591.stderr 
b/tests/simplCore/should_run/T3591.stderr
index de1d020..3fcef52 100644
--- a/tests/simplCore/should_run/T3591.stderr
+++ b/tests/simplCore/should_run/T3591.stderr
@@ -51,17 +51,9 @@ fmap await
 fmap await
 fmap await
 liftOut
-liftOut
-inject suspend
-liftFunctor id
-calling fmap
-fmap Either
-poking a
-fmap RightF
 fmap Either
 fmap RightF
 fmap await
-fmap await
 bounce start
 bounce end
 liftOut
@@ -185,17 +177,9 @@ fmap await
 fmap await
 fmap await
 liftOut
-liftOut
-inject suspend
-liftFunctor id
-calling fmap
-fmap Either
-poking a
-fmap RightF
 fmap Either
 fmap RightF
 fmap await
-fmap await
 bounce start
 bounce end
 bounce start



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to