diff options
| author | Ross Paterson <ross@soi.city.ac.uk> | 2013-03-04 13:23:09 +0000 |
|---|---|---|
| committer | Ross Paterson <ross@soi.city.ac.uk> | 2013-03-04 13:23:09 +0000 |
| commit | ade5319b5b9e508640488c361efe9abe3552fd0f (patch) | |
| tree | a130c2d107ee3350e270e3783e16143ef16ff416 /testsuite/tests/ghci | |
| parent | 44129f016a17aaf0f9d14c14b087f59063cb12e5 (diff) | |
| download | haskell-ade5319b5b9e508640488c361efe9abe3552fd0f.tar.gz | |
update T5045 for new typing of arrow forms
Diffstat (limited to 'testsuite/tests/ghci')
| -rw-r--r-- | testsuite/tests/ghci/scripts/T5045.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/ghci/scripts/T5045.hs b/testsuite/tests/ghci/scripts/T5045.hs index a63bead315..b5b850330d 100644 --- a/testsuite/tests/ghci/scripts/T5045.hs +++ b/testsuite/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 |