[commit: testsuite] master: update T5045 for new typing of arrow forms (d41307d)

[Ross Paterson]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/d41307d19adcab6bedf0a19b4cf579138c38dd15

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

commit d41307d19adcab6bedf0a19b4cf579138c38dd15
Author: Ross Paterson <ross at soi.city.ac.uk>
Date:   Mon Mar 4 13:23:09 2013 +0000

    update T5045 for new typing of arrow forms

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

 tests/ghci/scripts/T5045.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/tests/ghci/scripts/T5045.hs b/tests/ghci/scripts/T5045.hs
index a63bead..b5b8503 100644
--- a/tests/ghci/scripts/T5045.hs
+++ b/tests/ghci/scripts/T5045.hs
@@ -6,7 +6,7 @@ module T5045 where
 import Control.Arrow
 
 class (Control.Arrow.Arrow a') => ArrowAddReader r a a' | a -> a' where
-  elimReader :: a e b -> a' (e, r) b
+  elimReader :: a (e, s) b -> a' (e, (r, s)) b
 
 newtype ByteString = FakeByteString String