[commit: testsuite] master: Adjust test to handling of unit unboxed tuple (485c179)

[Simon Peyton Jones]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/485c17913f38dab8063472e09d4e94fdffc81184

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

commit 485c17913f38dab8063472e09d4e94fdffc81184
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Dec 23 16:08:38 2011 +0000

    Adjust test to handling of unit unboxed tuple

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

 tests/parser/should_compile/read063.hs |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/parser/should_compile/read063.hs b/tests/parser/should_compile/read063.hs
index faa7c4a..51f660a 100644
--- a/tests/parser/should_compile/read063.hs
+++ b/tests/parser/should_compile/read063.hs
@@ -28,12 +28,12 @@ f1 i = (# i #)
 --  Kind mis-match
 --  Expected kind `* -> *', but `(##)' has kind `? -> (#)'
 --  In the instance declaration for `Functor (##)'
-f1prefix :: Int# -> (# #) Int#
-f1prefix i = (# #) i
+f1prefix :: Int# -> (# #)
+f1prefix i = (# #)
 --test that prefix and non-prefix versions
 --are the same type by switching the case-argument
-f1pat a = case f1prefix a of (# i #) -> i +# 1#
-f1prepat a = case f1 a of (# #) i -> i +# 1#
+f1pat a = case f1prefix a of (# #) -> 1#
+f1prepat a = case f1 a of (# i #) -> i +# 1#
 
 f2 :: Int# -> (# Int#, Int# #)
 f2 i = (# i, i #)