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 <[email protected]> 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 #) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
