Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/5cbde60d5ccd0a4e0a37ef2ff6f166263798c1f1 >--------------------------------------------------------------- commit 5cbde60d5ccd0a4e0a37ef2ff6f166263798c1f1 Author: Ian Lynagh <[email protected]> Date: Tue May 24 22:52:22 2011 +0100 Remove datatype contexts from readFail001 Looks like the intent is to cover everything in the standard language. >--------------------------------------------------------------- .../ghc-regress/parser/should_fail/readFail001.hs | 6 +++--- .../parser/should_fail/readFail001.stderr | 8 ++++---- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/tests/ghc-regress/parser/should_fail/readFail001.hs b/tests/ghc-regress/parser/should_fail/readFail001.hs index 9cf19d6..a996475 100644 --- a/tests/ghc-regress/parser/should_fail/readFail001.hs +++ b/tests/ghc-regress/parser/should_fail/readFail001.hs @@ -7,7 +7,7 @@ module OneOfEverything ( FooData, FooDataB(..), FooDataC( .. ), - EqTree(EqLeaf, EqBranch), + Tree(Leaf, Branch), EqClass(..), OrdClass(orda, ordb), module OneC , @@ -35,7 +35,7 @@ data FooData = FooCon Int data FooDataB = FooConB Double -data (Eq a) => EqTree a = EqLeaf a | EqBranch (EqLeaf a) (EqLeaf a) +data Tree a = Leaf a | Branch (Leaf a) (Leaf a) class (Eq a) => EqClass a where eqc :: a -> Char @@ -46,7 +46,7 @@ class (Ord a) => OrdClass a where ordb :: a -> Char ordc :: a -> Char -instance (Eq a) => EqClass (EqTree a) where +instance (Eq a) => EqClass (Tree a) where eqc x = 'a' default (Integer, Rational) diff --git a/tests/ghc-regress/parser/should_fail/readFail001.stderr b/tests/ghc-regress/parser/should_fail/readFail001.stderr index c61625d..719d4c1 100644 --- a/tests/ghc-regress/parser/should_fail/readFail001.stderr +++ b/tests/ghc-regress/parser/should_fail/readFail001.stderr @@ -2,11 +2,11 @@ readFail001.hs:25:11: The fixity signature for `+#' lacks an accompanying binding -readFail001.hs:38:48: - Not in scope: type constructor or class `EqLeaf' +readFail001.hs:38:32: + Not in scope: type constructor or class `Leaf' -readFail001.hs:38:59: - Not in scope: type constructor or class `EqLeaf' +readFail001.hs:38:41: + Not in scope: type constructor or class `Leaf' readFail001.hs:87:11: Not in scope: `x' _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
