diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/parser/should_fail')
153 files changed, 0 insertions, 1049 deletions
diff --git a/testsuite/tests/ghc-regress/parser/should_fail/Makefile b/testsuite/tests/ghc-regress/parser/should_fail/Makefile deleted file mode 100644 index 1c39d1c1fe..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/Makefile +++ /dev/null @@ -1,3 +0,0 @@ -TOP=../../../.. -include $(TOP)/mk/boilerplate.mk -include $(TOP)/mk/test.mk diff --git a/testsuite/tests/ghc-regress/parser/should_fail/NoDoAndIfThenElse.hs b/testsuite/tests/ghc-regress/parser/should_fail/NoDoAndIfThenElse.hs deleted file mode 100644 index 2439205e3e..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/NoDoAndIfThenElse.hs +++ /dev/null @@ -1,9 +0,0 @@ - -{-# LANGUAGE NoDoAndIfThenElse #-} - -module NoDoAndIfThenElse where - -foo :: IO () -foo = do if True - then return () - else return () diff --git a/testsuite/tests/ghc-regress/parser/should_fail/NoDoAndIfThenElse.stderr b/testsuite/tests/ghc-regress/parser/should_fail/NoDoAndIfThenElse.stderr deleted file mode 100644 index b175c0ac5e..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/NoDoAndIfThenElse.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -NoDoAndIfThenElse.hs:7:13: - Unexpected semi-colons in conditional: - if True; then return (); else return () - Perhaps you meant to use -XDoAndIfThenElse? diff --git a/testsuite/tests/ghc-regress/parser/should_fail/NondecreasingIndentationFail.hs b/testsuite/tests/ghc-regress/parser/should_fail/NondecreasingIndentationFail.hs deleted file mode 100644 index 5b67a60612..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/NondecreasingIndentationFail.hs +++ /dev/null @@ -1,10 +0,0 @@ - -{-# LANGUAGE NoNondecreasingIndentation #-} - -module ShouldCompile where - -f :: IO () -f = do if True then f else do - f - if True then f else do - f diff --git a/testsuite/tests/ghc-regress/parser/should_fail/NondecreasingIndentationFail.stderr b/testsuite/tests/ghc-regress/parser/should_fail/NondecreasingIndentationFail.stderr deleted file mode 100644 index c9ccd3ea53..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/NondecreasingIndentationFail.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -NondecreasingIndentationFail.hs:7:28: Empty 'do' block - -NondecreasingIndentationFail.hs:9:28: Empty 'do' block diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T1344a.hs b/testsuite/tests/ghc-regress/parser/should_fail/T1344a.hs deleted file mode 100644 index 709d1636c0..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T1344a.hs +++ /dev/null @@ -1,7 +0,0 @@ -module T1344a where - -a = "Hel\x6c000000000000000 World" -b = "Hel\x6c0000000000000000 World" -c = '\1114112' - - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T1344a.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T1344a.stderr deleted file mode 100644 index a7c203c1c5..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T1344a.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -T1344a.hs:3:16: - numeric escape sequence out of range at character '0' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T1344b.hs b/testsuite/tests/ghc-regress/parser/should_fail/T1344b.hs deleted file mode 100644 index b355dda5e6..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T1344b.hs +++ /dev/null @@ -1,4 +0,0 @@ -module T1344b where - -b = "Hel\x6c0000000000000000 World" - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T1344b.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T1344b.stderr deleted file mode 100644 index 7b05c0fb2b..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T1344b.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -T1344b.hs:3:16: - numeric escape sequence out of range at character '0' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T1344c.hs b/testsuite/tests/ghc-regress/parser/should_fail/T1344c.hs deleted file mode 100644 index 0e5d0c6190..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T1344c.hs +++ /dev/null @@ -1,4 +0,0 @@ -module T1344c where - -c = '\1114112' - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T1344c.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T1344c.stderr deleted file mode 100644 index 57ad0592bd..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T1344c.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -T1344c.hs:3:13: - numeric escape sequence out of range at character '2' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3095.hs b/testsuite/tests/ghc-regress/parser/should_fail/T3095.hs deleted file mode 100644 index ad6b62c562..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3095.hs +++ /dev/null @@ -1,5 +0,0 @@ -{-# LANGUAGE KindSignatures #-} --- Trac #3095 -module T3095 where - -class Bla (forall x . x :: *) where diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3095.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T3095.stderr deleted file mode 100644 index 3e47128e41..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3095.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -T3095.hs:5:21: - Illegal symbol '.' in type - Perhaps you intended -XRankNTypes or similar flag - to enable explicit-forall syntax: forall <tvs>. <type> diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3153.hs b/testsuite/tests/ghc-regress/parser/should_fail/T3153.hs deleted file mode 100644 index af28ddc98c..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3153.hs +++ /dev/null @@ -1,2 +0,0 @@ -{-# LANGUAGE -# diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3153.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T3153.stderr deleted file mode 100644 index 5a21b339aa..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3153.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -T3153.hs:1:1: - Cannot parse LANGUAGE pragma - Expecting comma-separated list of language options, - each starting with a capital letter - E.g. {-# LANGUAGE RecordPuns, Generics #-} diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3751.hs b/testsuite/tests/ghc-regress/parser/should_fail/T3751.hs deleted file mode 100644 index 9de569b01f..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3751.hs +++ /dev/null @@ -1,3 +0,0 @@ -module ShouldFail where - -x = "\§" diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3751.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T3751.stderr deleted file mode 100644 index cf14e746e1..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3751.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -T3751.hs:3:7: - lexical error in string/character literal at character '\167' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811.hs b/testsuite/tests/ghc-regress/parser/should_fail/T3811.hs deleted file mode 100644 index 30c1f5068f..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811.hs +++ /dev/null @@ -1,5 +0,0 @@ - -module T3811 where - -f x :: Char -f x = 'c' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T3811.stderr deleted file mode 100644 index afdead696e..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -T3811.hs:4:1: - Invalid type signature: f x :: Char - Should be of form <variable> :: <type> diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811b.hs b/testsuite/tests/ghc-regress/parser/should_fail/T3811b.hs deleted file mode 100644 index 720cffa17f..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811b.hs +++ /dev/null @@ -1,4 +0,0 @@ - -module T3811b where - -data Foo a = !B diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811b.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T3811b.stderr deleted file mode 100644 index 342354dd84..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811b.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -T3811b.hs:4:14: - parse error in constructor in data/newtype declaration: !B diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811c.hs b/testsuite/tests/ghc-regress/parser/should_fail/T3811c.hs deleted file mode 100644 index d2b063c54f..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811c.hs +++ /dev/null @@ -1,7 +0,0 @@ - -module T3811c where - -data D = D - -instance !Show D - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811c.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T3811c.stderr deleted file mode 100644 index 9b61341152..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811c.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -T3811c.hs:6:10: Malformed instance header: !Show D diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811d.hs b/testsuite/tests/ghc-regress/parser/should_fail/T3811d.hs deleted file mode 100644 index ee95cd862d..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811d.hs +++ /dev/null @@ -1,7 +0,0 @@ - -module T3811d where - -data D a = D a - -class C b (D Char) b - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811d.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T3811d.stderr deleted file mode 100644 index 6f6e6c4267..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811d.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -T3811d.hs:6:11: - Type found: D Char - where type variable expected, in: b (D Char) b - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811e.hs b/testsuite/tests/ghc-regress/parser/should_fail/T3811e.hs deleted file mode 100644 index 69a559c9c4..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811e.hs +++ /dev/null @@ -1,6 +0,0 @@ - -{-# LANGUAGE NoDatatypeContexts #-} - -module T3811e where - -data (Show a, Read a) => D a = D a diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811e.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T3811e.stderr deleted file mode 100644 index f2acc84706..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811e.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -T3811e.hs:6:6: - Illegal datatype context (use -XDatatypeContexts): (Show a, - Read a) => - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811f.hs b/testsuite/tests/ghc-regress/parser/should_fail/T3811f.hs deleted file mode 100644 index a047feed72..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811f.hs +++ /dev/null @@ -1,4 +0,0 @@ - -module T3811f where - -class !Foo a diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811f.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T3811f.stderr deleted file mode 100644 index 882ae06706..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811f.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -T3811f.hs:4:7: Malformed head of type or class declaration: !Foo a diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811g.hs b/testsuite/tests/ghc-regress/parser/should_fail/T3811g.hs deleted file mode 100644 index 8b901f49e3..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811g.hs +++ /dev/null @@ -1,7 +0,0 @@ - -module T3811g where - -f :: IO () -f = do _ <- return () - _ <- return () - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/T3811g.stderr b/testsuite/tests/ghc-regress/parser/should_fail/T3811g.stderr deleted file mode 100644 index 94917e52ae..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/T3811g.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -T3811g.hs:6:8: - The last statement in a 'do' block must be an expression - _ <- return () diff --git a/testsuite/tests/ghc-regress/parser/should_fail/all.T b/testsuite/tests/ghc-regress/parser/should_fail/all.T deleted file mode 100644 index 31ec0d9a3e..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/all.T +++ /dev/null @@ -1,71 +0,0 @@ - -test('readFail001', normal, compile_fail, ['']) -test('readFail002', normal, compile_fail, ['']) -test('readFail003', normal, compile_fail, ['']) -test('readFail004', normal, compile_fail, ['']) -test('readFail005', normal, compile_fail, ['']) -test('readFail006', normal, compile_fail, ['']) -test('readFail007', normal, compile_fail, ['']) -test('readFail008', normal, compile_fail, ['']) -test('readFail009', normal, compile_fail, ['']) -# test10: missing -test('readFail011', normal, compile_fail, ['']) -test('readFail012', normal, compile_fail, ['']) -test('readFail013', normal, compile_fail, ['']) -test('readFail014', normal, compile_fail, ['']) -test('readFail015', normal, compile_fail, ['']) -test('readFail016', normal, compile_fail, ['']) -test('readFail017', normal, compile_fail, ['']) -test('readFail018', normal, compile_fail, ['']) -test('readFail019', normal, compile_fail, ['']) -test('readFail020', normal, compile_fail, ['']) - -# empty file (length zero) is not a legal Haskell module. It fails to compile -# because it doesn't contain a definition of Main.main. GHC 5.02 crashed -# on this example. -test('readFail021', if_compiler_type('hugs', expect_fail), compile_fail, ['']) - -test('readFail022', normal, compile_fail, ['']) -test('readFail023', normal, compile_fail, ['']) -test('readFail024', normal, compile_fail, ['']) -test('readFail025', normal, compile_fail, ['']) -test('readFail026', normal, compile_fail, ['']) -test('readFail027', normal, compile_fail, ['']) -test('readFail028', normal, compile_fail, ['']) -test('readFail029', normal, compile_fail, ['']) -test('readFail030', normal, compile_fail, ['']) -test('readFail031', normal, compile_fail, ['']) -test('readFail032', expect_broken(314), compile_fail, ['-cpp']) -test('readFail033', normal, compile_fail, ['']) -test('readFail034', normal, compile_fail, ['']) -test('readFail035', normal, compile_fail, ['']) -test('readFail036', normal, compile_fail, ['']) -test('readFail037', normal, compile_fail, ['']) -test('readFail038', normal, compile_fail, ['']) -test('readFail039', normal, compile_fail, ['']) -test('readFail040', normal, compile_fail, ['']) -test('readFail041', normal, compile_fail, ['']) -test('readFail042', normal, compile_fail, ['']) -test('readFail043', normal, compile_fail, ['']) -test('readFail044', normal, compile_fail, ['']) -test('readFail046', normal, compile_fail, ['']) -test('readFail047', normal, compile_fail, ['']) -test('T3095', normal, compile_fail, ['']) -test('T3153', normal, compile_fail, ['']) -test('T3751', normal, compile_fail, ['']) - -test('position001', normal, compile_fail, ['']) -test('position002', normal, compile_fail, ['']) - -test('T1344a', normal, compile_fail, ['']) -test('T1344b', normal, compile_fail, ['']) -test('T1344c', normal, compile_fail, ['']) -test('T3811', normal, compile_fail, ['']) -test('T3811b', normal, compile_fail, ['']) -test('T3811c', normal, compile_fail, ['']) -test('T3811d', normal, compile_fail, ['']) -test('T3811e', normal, compile_fail, ['']) -test('T3811f', normal, compile_fail, ['']) -test('T3811g', normal, compile_fail, ['']) -test('NoDoAndIfThenElse', normal, compile_fail, ['']) -test('NondecreasingIndentationFail', normal, compile_fail, ['']) diff --git a/testsuite/tests/ghc-regress/parser/should_fail/position001.hs b/testsuite/tests/ghc-regress/parser/should_fail/position001.hs deleted file mode 100644 index c47ed60a1b..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/position001.hs +++ /dev/null @@ -1,7 +0,0 @@ - -module T where - --- We should get a parse error on column 33 --- Indented with spaces: -foo = 123456 module - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/position001.stderr b/testsuite/tests/ghc-regress/parser/should_fail/position001.stderr deleted file mode 100644 index 0635c8d867..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/position001.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -position001.hs:6:33: parse error on input `module' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/position002.hs b/testsuite/tests/ghc-regress/parser/should_fail/position002.hs deleted file mode 100644 index 861acf5344..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/position002.hs +++ /dev/null @@ -1,7 +0,0 @@ - -module T where - --- We should get a parse error on column 33 --- Indented with tabs: -foo = 123456 module - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/position002.stderr b/testsuite/tests/ghc-regress/parser/should_fail/position002.stderr deleted file mode 100644 index 9306d42fb8..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/position002.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -position002.hs:6:33: parse error on input `module' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail001.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail001.hs deleted file mode 100644 index a996475efd..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail001.hs +++ /dev/null @@ -1,113 +0,0 @@ --- !!! this module supposedly includes one of each Haskell construct - --- HsImpExp stuff - -module OneOfEverything ( - fixn, - FooData, - FooDataB(..), - FooDataC( .. ), - Tree(Leaf, Branch), - EqClass(..), - OrdClass(orda, ordb), - module OneC , - module OneOfEverything - ) where - -import Prelude -import System.IO ( putStr ) -import System.Environment hiding ( getArgs ) -import Control.Monad - --- HsDecls stuff - -infix 6 `fixn` -infixl 7 +# -infixr 8 `fixr` - -fixn x y = x -fixl x y = x -fixr x y = x - -type Pair a b = (a, b) - -data FooData = FooCon Int - -data FooDataB = FooConB Double - -data Tree a = Leaf a | Branch (Leaf a) (Leaf a) - -class (Eq a) => EqClass a where - eqc :: a -> Char - eqc x = '?' - -class (Ord a) => OrdClass a where - orda :: a -> Char - ordb :: a -> Char - ordc :: a -> Char - -instance (Eq a) => EqClass (Tree a) where - eqc x = 'a' - -default (Integer, Rational) - --- HsBinds stuff - -singlebind x = x - -bindwith :: (OrdClass a, OrdClass b) => a -> b -> b -bindwith a b = b - -reca a = recb a -recb a = reca a - -(~(a,b,c)) | nullity b = a - | nullity c = a - | otherwise = a - where - nullity = null - --- HsMatches stuff - -mat a b c d | foof a b = d - | foof a c = d - | foof b c = d - where - foof a b = a == b - --- HsExpr stuff -expr a b c d - = a - + (:) a b - + (a : b) - + (1 - 'c' - "abc" - 1.293) - + ( \ x y z -> x ) 42 - + (9 *) - + (* 8) - + (case x of - [] | null x -> 99 - | otherwise -> 98 - | True -> 97 - where - null x = False - ) - + [ z | z <- c, isSpace z ] - + let y = foo - in y - + [1,2,3,4] - + (4,3,2,1) - + (4 :: Num a => a) - + (if 42 == 42.0 then 1 else 4) - + [1..] - + [2,4..] - + [3..5] - + [4,8..999] - --- HsPat stuff -f _ x 1 1.93 'c' "dog" ~y z@(Foo a b) (c `Bar` d) [1,2] (3,4) = y - --- HsLit stuff -- done above - --- HsTypes stuff -g :: (Num a, Eq b) => Foo a -> [b] -> (a,a,a) -> b -g x y z = head y diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail001.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail001.stderr deleted file mode 100644 index 719d4c12bd..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail001.stderr +++ /dev/null @@ -1,24 +0,0 @@ - -readFail001.hs:25:11: - The fixity signature for `+#' lacks an accompanying binding - -readFail001.hs:38:32: - Not in scope: type constructor or class `Leaf' - -readFail001.hs:38:41: - Not in scope: type constructor or class `Leaf' - -readFail001.hs:87:11: Not in scope: `x' - -readFail001.hs:88:19: Not in scope: `x' - -readFail001.hs:94:19: Not in scope: `isSpace' - -readFail001.hs:95:13: Not in scope: `foo' - -readFail001.hs:107:30: Not in scope: data constructor `Foo' - -readFail001.hs:107:42: Not in scope: data constructor `Bar' - -readFail001.hs:112:23: - Not in scope: type constructor or class `Foo' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail001.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail001.stderr-hugs deleted file mode 100644 index ab30ff6dc0..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail001.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read001.hs":38 - Undefined type constructor "EqLeaf" diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail001.stdout b/testsuite/tests/ghc-regress/parser/should_fail/readFail001.stdout deleted file mode 100644 index a4d6758f8c..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail001.stdout +++ /dev/null @@ -1,87 +0,0 @@ - -==================== Parser ==================== -module OneOfEverything ( - module OneOfEverything, module OneC, OrdClass(orda, ordb), - EqClass(..), EqTree(EqLeaf, EqBranch), FooDataC(..), FooDataB(..), - FooData, fixn - ) where -import Prelude -import IO (putStr) -import System hiding (getArgs) -import Monad -bindwith :: (OrdClass a, OrdClass b) => a -> b -> b -g :: (Num a, Eq b) => Foo a -> [b] -> (a, a, a) -> b -g x y z = head y -f _ - x - 1 - 1.93 - 'c' - "dog" - ~y - (z@(Foo a b)) - (c Bar d) - [1, 2] - (3, 4) - ((n+42)) - = y -expr a b c d - = ((((((((a + ((:) a b)) + (a : b)) - + (((1 - 'c') - "abc") - 1.293)) - + ((\ x y z -> x) 42)) - + ((9 *))) - + ((* 8))) - + (case x of - PrelBase.[] - | null x -> 99 - | otherwise -> 98 - | True -> 97 - where - null x = False)) - + ([z | z <- c, isSpace z])) - + (let y = foo - in - (((((((y + [1, 2, 3, 4]) + (4, 3, 2, 1)) + (4 :: (Num a) => a)) - + (if 42 == 42.0 then 1 else 4)) - + ([1 .. ])) - + ([2, 4 .. ])) - + ([3 .. 5])) - + ([4, 8 .. 999])) -mat a b c d - | foof a b = d - | foof a c = d - | foof b c = d - where - foof a b = a == b -(~(a, b, c)) - | nullity b = a - | nullity c = a - | otherwise = a - where - nullity = null -recb a = reca a -reca a = recb a -bindwith a b = b -singlebind x = x -fixr x y = x -fixl x y = x -fixn x y = x -infix 6 fixn -infixl 7 +# -infixr 8 fixr -type Pair a b = (a, b) -data FooData = FooCon Int -data FooDataB = FooConB Double -data (Eq a) => EqTree a = EqLeaf a | EqBranch (EqLeaf a) (EqLeaf a) -class (Eq a) => EqClass a where { - eqc = :: a -> Char; Just eqc x = '?' } -class (Ord a) => OrdClass a where { - orda = :: a -> Char; ordb = :: a -> Char; ordc = :: a -> Char; - Just - } -instance (Eq a) => {EqClass (EqTree a)} where - [] - eqc x = 'a' -default (Integer, Rational) - - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail002.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail002.hs deleted file mode 100644 index 869cb86a33..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail002.hs +++ /dev/null @@ -1,6 +0,0 @@ -module ShouldFail where - --- !!! newlines in strings aren't allowed - -f = " -" diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail002.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail002.stderr deleted file mode 100644 index d368fe302d..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail002.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -readFail002.hs:5:6: - lexical error in string/character literal at character '\n' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail002.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail002.stderr-hugs deleted file mode 100644 index 12031904f7..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail002.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read002.hs":5 - Improperly terminated string diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail003.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail003.hs deleted file mode 100644 index 8595312137..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail003.hs +++ /dev/null @@ -1,8 +0,0 @@ --- !!! Irrefutable patterns + guards -module Read003 where - -~(a,b,c) | nullity b = a - | nullity c = a - | otherwise = a - where - nullity = null diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail003.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail003.stderr deleted file mode 100644 index fe8ce00577..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail003.stderr +++ /dev/null @@ -1,36 +0,0 @@ - -readFail003.hs:4:27: - Occurs check: cannot construct the infinite type: - t0 = (t0, [a0], [a1]) - In the expression: a - In a pattern binding: - ~(a, b, c) - | nullity b = a - | nullity c = a - | otherwise = a - where - nullity = null - -readFail003.hs:5:27: - Occurs check: cannot construct the infinite type: - t0 = (t0, [a0], [a1]) - In the expression: a - In a pattern binding: - ~(a, b, c) - | nullity b = a - | nullity c = a - | otherwise = a - where - nullity = null - -readFail003.hs:6:27: - Occurs check: cannot construct the infinite type: - t0 = (t0, [a0], [a1]) - In the expression: a - In a pattern binding: - ~(a, b, c) - | nullity b = a - | nullity c = a - | otherwise = a - where - nullity = null diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail003.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail003.stderr-hugs deleted file mode 100644 index d89db6e928..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail003.stderr-hugs +++ /dev/null @@ -1,5 +0,0 @@ -ERROR "read003.hs":4 - Type error in right hand side -*** Term : a -*** Type : a -*** Does not match : (a,[b],[c]) -*** Because : unification would give infinite type diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail003.stdout b/testsuite/tests/ghc-regress/parser/should_fail/readFail003.stdout deleted file mode 100644 index e1291a62a7..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail003.stdout +++ /dev/null @@ -1,11 +0,0 @@ - -==================== Parser ==================== -module Read003 where -~(a, b, c) - | nullity b = a - | nullity c = a - | otherwise = a - where - nullity = null - - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail004.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail004.hs deleted file mode 100644 index f5e1fb4304..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail004.hs +++ /dev/null @@ -1,41 +0,0 @@ --- !!! string gaps --- !!! -module Main(main) where - ------------ - -main = putStr "\ - -\Some girls give me money\n\ - -\Some girls buy me clothes\n\ - -\..." - ------------ - -main2 = putStr "\ -\ \ -..." - ------------ - -main3 = putStr "\ - -\Some girls give me money\n\ --- and here is a comment -\Some girls buy me clothes\n\ - -\..." - ------------ - -main3 = putStr "\ -{- - and here is a nested {- comment -} --} -\Some girls give me money\n\ - -\Some girls buy me clothes\n\ - -\..." diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail004.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail004.stderr deleted file mode 100644 index 45ad7d7215..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail004.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -readFail004.hs:19:1: - lexical error in string/character literal at character '.' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail004.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail004.stderr-hugs deleted file mode 100644 index a737a0100e..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail004.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read004.hs":19 - Missing `\' terminating string literal gap diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail005.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail005.hs deleted file mode 100644 index 8ed88c0ea0..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail005.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Tests where - --- this char is forbidden -c = '\&' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail005.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail005.stderr deleted file mode 100644 index 6b5b2ce9e2..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail005.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -readFail005.hs:4:7: - lexical error in string/character literal at character '&' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail005.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail005.stderr-hugs deleted file mode 100644 index bda4ebcd9d..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail005.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read005.hs":4 - Illegal use of `\&' in character constant diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail006.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail006.hs deleted file mode 100644 index fa3d867c67..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail006.hs +++ /dev/null @@ -1,9 +0,0 @@ --- !!! Using pattern syntax on RHS -module ShouldFail where - -f :: Int -> Int -f x = _ - -g :: Int -> Int -g x = 2 + 2@_ - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail006.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail006.stderr deleted file mode 100644 index 92ea7a484d..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail006.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail006.hs:8:12: parse error on input `@' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail006.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail006.stderr-hugs deleted file mode 100644 index f39482998c..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail006.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read006.hs":8 - Syntax error in input (unexpected `@') diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail007.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail007.hs deleted file mode 100644 index 4466f17d18..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail007.hs +++ /dev/null @@ -1,8 +0,0 @@ --- !!! Expressions as patterns inside do stmt blocks -module ShouldFail where - -f :: Int -> IO Int -f x = do - (2+2) <- 2 - return x - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail007.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail007.stderr deleted file mode 100644 index 3236824a78..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail007.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail007.hs:6:4: Parse error in pattern: 2 + 2 diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail007.stdout b/testsuite/tests/ghc-regress/parser/should_fail/readFail007.stdout deleted file mode 100644 index c91365d679..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail007.stdout +++ /dev/null @@ -1,9 +0,0 @@ - -==================== Parser ==================== -module ShouldFail where -f :: Int -> IO Int -f x = do - (2 + 2) <- 2 - return x - - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail008.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail008.hs deleted file mode 100644 index 606af912f0..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail008.hs +++ /dev/null @@ -1,5 +0,0 @@ -module ShouldFail where - --- strictness annotations on the argument to a newtype constructor --- are not allowed. -newtype N a = T ![a] diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail008.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail008.stderr deleted file mode 100644 index a40ce01da0..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail008.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -readFail008.hs:5:15: - A newtype constructor cannot have a strictness annotation, - but `T' does - In the definition of data constructor `T' - In the newtype declaration for `N' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail008.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail008.stderr-hugs deleted file mode 100644 index 73edc248e9..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail008.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read008.hs":5 - Illegal strictness annotation for newtype constructor diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail009.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail009.hs deleted file mode 100644 index 93a7b84d5b..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail009.hs +++ /dev/null @@ -1,15 +0,0 @@ -module ShouldFail where - --- !!! Test for parse error in do/let expression - -foo = do let foo = True - return () - - --- Note the let binding at the end! --- This gave a pattern-match failure in tcStmts in ghc-4.04proto - -h x = x - - - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail009.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail009.stderr deleted file mode 100644 index 7f5684e2c5..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail009.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail009.hs:12:1: parse error (possibly incorrect indentation) diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail009.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail009.stderr-hugs deleted file mode 100644 index 698df240cc..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail009.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read009.hs":12 - Syntax error in declaration (unexpected `}', possibly due to bad layout) diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail009.stdout b/testsuite/tests/ghc-regress/parser/should_fail/readFail009.stdout deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail009.stdout +++ /dev/null diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail011.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail011.hs deleted file mode 100644 index 4642061fcc..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail011.hs +++ /dev/null @@ -1,7 +0,0 @@ --- !!! Test line numbers in presence of string gaps. - -main = print "a\ - \b\ - \c" - -wibble = = -- this is a parse error on line 7 diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail011.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail011.stderr deleted file mode 100644 index 2570aa357e..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail011.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail011.hs:7:10: parse error on input `=' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail011.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail011.stderr-hugs deleted file mode 100644 index 03d0dda838..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail011.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read011.hs":7 - Syntax error in expression (unexpected `=') diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail012.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail012.hs deleted file mode 100644 index 4a780885f7..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail012.hs +++ /dev/null @@ -1,9 +0,0 @@ --- !!! test parse errors due to tokens inserted by layout - --- used to report "Parse error on input `'" in 4.04pl0. - -main = let - f = (a, - g = 1 - in f - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail012.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail012.stderr deleted file mode 100644 index 849e918204..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail012.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail012.hs:7:9: parse error (possibly incorrect indentation) diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail012.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail012.stderr-hugs deleted file mode 100644 index 242a34ef34..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail012.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read012.hs":7 - Syntax error in expression (unexpected `;', possibly due to bad layout) diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail013.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail013.hs deleted file mode 100644 index 97e926d49c..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail013.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Main where - --- !!! unterminated `` -a = ``s`` diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail013.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail013.stderr deleted file mode 100644 index 9be590d0b0..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail013.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail013.hs:4:5: parse error on input ``' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail013.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail013.stderr-hugs deleted file mode 100644 index 11bb7156f5..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail013.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read013.hs":4 - Syntax error in expression (unexpected backquote) diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail014.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail014.hs deleted file mode 100644 index 23ef7954a6..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail014.hs +++ /dev/null @@ -1,3 +0,0 @@ -main = f - where - f = f } diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail014.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail014.stderr deleted file mode 100644 index 4bb5fff2da..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail014.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail014.hs:3:12: parse error on input `}' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail014.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail014.stderr-hugs deleted file mode 100644 index 73e29ecbb0..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail014.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read014.hs":3 - Misplaced `}' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail015.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail015.hs deleted file mode 100644 index 6920083483..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail015.hs +++ /dev/null @@ -1,5 +0,0 @@ -module Test where - --- should fail; doesn't with happy 1.8. -f = f where b = f - c = (b diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail015.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail015.stderr deleted file mode 100644 index 696167edca..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail015.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail015.hs:6:1: parse error (possibly incorrect indentation) diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail015.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail015.stderr-hugs deleted file mode 100644 index c66b668cf5..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail015.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read015.hs":6 - Syntax error in expression (unexpected `}', possibly due to bad layout) diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail016.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail016.hs deleted file mode 100644 index 493606a481..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail016.hs +++ /dev/null @@ -1,7 +0,0 @@ --- !!! Infix decls w/ infix data constructors - -module ShouldFail where - -infix 6 |- - -ps |- q:qs = undefined diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail016.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail016.stderr deleted file mode 100644 index 620d8505a2..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail016.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -readFail016.hs:7:1: - Precedence parsing error - cannot mix `|-' [infix 6] and `:' [infixr 5] in the same infix expression diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail016.stdout b/testsuite/tests/ghc-regress/parser/should_fail/readFail016.stdout deleted file mode 100644 index 7c7f529466..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail016.stdout +++ /dev/null @@ -1,7 +0,0 @@ - -==================== Parser ==================== -module ShouldFail where -|- ps q : qs = undefined -infix 6 |- - - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail017.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail017.hs deleted file mode 100644 index 1d710f5012..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail017.hs +++ /dev/null @@ -1,6 +0,0 @@ -module ShouldFail where - --- GHC < 5.01 used to get the line number wrong. -f (f f) = f - -g = g diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail017.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail017.stderr deleted file mode 100644 index 05f7c9931f..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail017.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail017.hs:4:4: Parse error in pattern: f diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail017.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail017.stderr-hugs deleted file mode 100644 index a83103a57b..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail017.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read017.hs":4 - Syntax error in declaration (unexpected symbol "f") diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail018.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail018.hs deleted file mode 100644 index 0086f50466..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail018.hs +++ /dev/null @@ -1,8 +0,0 @@ --- !!! test the error message for an unterminated nested comment - -{- <-- this one is unterminated (line 3) - -{- --} - --- EOF diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail018.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail018.stderr deleted file mode 100644 index d07aa622c0..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail018.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail018.hs:3:1: unterminated `{-' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail018.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail018.stderr-hugs deleted file mode 100644 index 57c04a5826..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail018.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read018.hs":3 - Unterminated nested comment {- ... diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail019.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail019.hs deleted file mode 100644 index c9fdd15f75..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail019.hs +++ /dev/null @@ -1,3 +0,0 @@ --- !!! cannot close an explicit layout context with a parse error -module ShouldFail where -f = let { x = 42 in x diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail019.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail019.stderr deleted file mode 100644 index 65f7580599..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail019.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail019.hs:3:18: parse error on input `in' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail019.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail019.stderr-hugs deleted file mode 100644 index fc021de327..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail019.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read019.hs":3 - Syntax error in declaration (unexpected keyword "in") diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail020.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail020.hs deleted file mode 100644 index d7cf818e23..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail020.hs +++ /dev/null @@ -1,3 +0,0 @@ --- !!! cannot close a layout context with an explicit close brace -module ShouldFail where -f = let x = 42 } in x diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail020.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail020.stderr deleted file mode 100644 index fb81cef861..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail020.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail020.hs:3:16: parse error on input `}' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail020.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail020.stderr-hugs deleted file mode 100644 index 2fe580ec23..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail020.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read020.hs":3 - Syntax error in expression (unexpected `}', possibly due to bad layout) diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail021.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail021.hs deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail021.hs +++ /dev/null diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail021.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail021.stderr deleted file mode 100644 index a3f5e7b3f0..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail021.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail021.hs:1:1: The function `main' is not defined in module `Main' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail022.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail022.hs deleted file mode 100644 index 8d63b44b40..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail022.hs +++ /dev/null @@ -1,4 +0,0 @@ -module ShouldFail where - --- !!! a parenthesised lhs must have at least one parameter -(a # b) = a diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail022.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail022.stderr deleted file mode 100644 index 2c1b254229..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail022.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail022.hs:4:2: Parse error in pattern: a # b diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail022.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail022.stderr-hugs deleted file mode 100644 index d0315f1914..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail022.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read022.hs":4 - Syntax error in declaration (unexpected `=') diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail023.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail023.hs deleted file mode 100644 index 9c230f8a6a..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail023.hs +++ /dev/null @@ -1,12 +0,0 @@ -module ShouldFail where - --- !!! Section precedences - --- check that we're not translating out negative literals too early: --- the following should be an illegal section because prefix '-' has --- precedence 6: - -k = (-3 **) - where - (**) = const - infixl 7 ** diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail023.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail023.stderr deleted file mode 100644 index e1b6ceb83c..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail023.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -readFail023.hs:9:5: - The operator `**' [infixl 7] of a section - must have lower precedence than that of the operand, - namely prefix `-' [infixl 6] - in the section: `- 3 **' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail024.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail024.hs deleted file mode 100644 index 70f38329ae..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail024.hs +++ /dev/null @@ -1,5 +0,0 @@ -module ShouldFail where - --- !!! this is not legal Haskell 98, but GHC parses it -f = f where g = g where - h = h diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail024.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail024.stderr deleted file mode 100644 index 01d32ec450..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail024.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail024.hs:5:2: parse error on input `h' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail024.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail024.stderr-hugs deleted file mode 100644 index 542507b0a6..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail024.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read024.hs":5 - Syntax error in input (unexpected symbol "h") diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail025.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail025.hs deleted file mode 100644 index 25e170d1ff..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail025.hs +++ /dev/null @@ -1,5 +0,0 @@ -module M where - --- This one actually compiled right the way up to GHC 5.04.3 - -data T String = T String diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail025.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail025.stderr deleted file mode 100644 index 313019147a..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail025.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -readFail025.hs:5:8: - Type found: String - where type variable expected, in: String diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail025.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail025.stderr-hugs deleted file mode 100644 index 176b7fd94e..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail025.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read025.hs":6 - Illegal left hand side in data type declaration diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail026.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail026.hs deleted file mode 100644 index 6d3f820151..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail026.hs +++ /dev/null @@ -1,3 +0,0 @@ -module ShouldFail where -data T = T{a::Int} -x = T{,a=42} diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail026.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail026.stderr deleted file mode 100644 index 2249fa0b41..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail026.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail026.hs:3:7: parse error on input `,' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail026.stderr-hugs b/testsuite/tests/ghc-regress/parser/should_fail/readFail026.stderr-hugs deleted file mode 100644 index da743251d0..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail026.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "read026.hs":3 - Syntax error in expression (unexpected comma) diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail027.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail027.hs deleted file mode 100644 index 9a4754678a..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail027.hs +++ /dev/null @@ -1,15 +0,0 @@ -{-# LANGUAGE NoRelaxedLayout #-} - -module ShouldFail where - --- Erroneously allowed by GHC 6.2.x -f x = case x of - False -> do - { return x; } --- this line should close the 'case' context and cause the 'do' to be empty. - --- Update: arguably this should be allowed. The fix to the Haskell --- layout rule to allow it is simple: in Section 9.3 in the rules that --- govern the introduction of the <n> and {n} psuedo-tokens, we need --- to prevent <n> being inserted before {. This could be a simple --- side-condition on the rule that introduces <n>. diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail027.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail027.stderr deleted file mode 100644 index 68f3d25755..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail027.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail027.hs:8:5: Missing block diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail028.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail028.hs deleted file mode 100644 index ca0d27e10e..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail028.hs +++ /dev/null @@ -1,4 +0,0 @@ -module ShouldFail where - --- !!! do must end in an expression -main = do x <- return () diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail028.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail028.stderr deleted file mode 100644 index 651f778bb4..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail028.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -readFail028.hs:4:11: - The last statement in a 'do' block must be an expression - x <- return () diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail029.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail029.hs deleted file mode 100644 index d107cacc17..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail029.hs +++ /dev/null @@ -1 +0,0 @@ -{-# LANGUAGE wibble wibble wibble #-} diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail029.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail029.stderr deleted file mode 100644 index 7f73291fe4..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail029.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -readFail029.hs:1:14: - Cannot parse LANGUAGE pragma - Expecting comma-separated list of language options, - each starting with a capital letter - E.g. {-# LANGUAGE RecordPuns, Generics #-} diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail030.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail030.hs deleted file mode 100644 index 0829dc51ed..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail030.hs +++ /dev/null @@ -1 +0,0 @@ -{-# LANGUAGE ExtensibleRecords, RestrictedTypeSynonyms, HereDocuments, NamedFieldPuns #-} diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail030.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail030.stderr deleted file mode 100644 index e557a6b055..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail030.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail030.hs:1:14: Unsupported extension: ExtensibleRecords diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail031.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail031.hs deleted file mode 100644 index d07f8979a6..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail031.hs +++ /dev/null @@ -1,4 +0,0 @@ -module ShouldFail where
-
-class Foo o where
- (:+) :: o -> o -> o
diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail031.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail031.stderr deleted file mode 100644 index 628c8352f6..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail031.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -readFail031.hs:4:3: - Invalid type signature: (:+) :: o -> o -> o - Should be of form <variable> :: <type> diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail032.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail032.hs deleted file mode 100644 index dec758a16f..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail032.hs +++ /dev/null @@ -1,22 +0,0 @@ - --- Test for trac #314 - -{- -/* - This - uses - up - some - lines - This - uses - up - some - lines - */ --} - -module ShouldFail where - -type_error = "Type error on line 21":"Type error on line 21" - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail032.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail032.stderr deleted file mode 100644 index 95852c5bbd..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail032.stderr +++ /dev/null @@ -1,8 +0,0 @@ - -readFail032.hs:21:38: - Couldn't match expected type `[Char]' with actual type `Char' - Expected type: [[Char]] - Actual type: [Char] - In the second argument of `(:)', namely `"Type error on line 21"' - In the expression: - "Type error on line 21" : "Type error on line 21" diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail033.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail033.hs deleted file mode 100644 index 6662563ff4..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail033.hs +++ /dev/null @@ -1,2 +0,0 @@ --- TAB character in a string literal is disallowed: -x = " " diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail033.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail033.stderr deleted file mode 100644 index 595323f3fd..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail033.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -readFail033.hs:2:6: - lexical error in string/character literal at character '\t' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail034.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail034.hs deleted file mode 100644 index f92c33fcce..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail034.hs +++ /dev/null @@ -1,5 +0,0 @@ - -module Foo where - -foo# = 'a' - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail034.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail034.stderr deleted file mode 100644 index 19f428131f..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail034.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail034.hs:4:6: parse error on input `=' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail035.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail035.hs deleted file mode 100644 index 6682e9ad8b..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail035.hs +++ /dev/null @@ -1,7 +0,0 @@ - -{-# LANGUAGE Haskell98 #-} - -module Foo where - -data Foo - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail035.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail035.stderr deleted file mode 100644 index 05f2d864ac..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail035.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -readFail035.hs:6:1: - `Foo' has no constructors (-XEmptyDataDecls permits this) - In the data type declaration for `Foo' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail036.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail036.hs deleted file mode 100644 index 2bb23149dd..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail036.hs +++ /dev/null @@ -1,5 +0,0 @@ - -module Foo where - -data Foo (a :: *) = Foo a - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail036.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail036.stderr deleted file mode 100644 index 8c89f29e34..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail036.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -readFail036.hs:4:1: - Illegal kind signature for `a' - Perhaps you intended to use -XKindSignatures diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail037.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail037.hs deleted file mode 100644 index 499f5cc0f3..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail037.hs +++ /dev/null @@ -1,5 +0,0 @@ - -module Foo where - -class Foo a b - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail037.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail037.stderr deleted file mode 100644 index 4c900d66b1..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail037.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -readFail037.hs:4:1: - Too many parameters for class `Foo' - (Use -XMultiParamTypeClasses to allow multi-parameter classes) - In the class declaration for `Foo' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail038.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail038.hs deleted file mode 100644 index cc60436f2f..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail038.hs +++ /dev/null @@ -1,8 +0,0 @@ - -module Foo where - -foo = [ () - | () <- foo - | () <- foo - ] - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail038.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail038.stderr deleted file mode 100644 index 6933463b8f..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail038.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -readFail038.hs:6:7: - Unexpected parallel statement in a list comprehension - Use -XParallelListComp diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail039.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail039.hs deleted file mode 100644 index c6cbdb9968..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail039.hs +++ /dev/null @@ -1,9 +0,0 @@ - -module Foo where - -class C a -instance C Int - -newtype Foo = Foo Int - deriving C - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail039.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail039.stderr deleted file mode 100644 index 1c7cb6b975..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail039.stderr +++ /dev/null @@ -1,6 +0,0 @@ -
-readFail039.hs:8:14:
- Can't make a derived instance of `C Foo':
- `C' is not a derivable class
- Try -XGeneralizedNewtypeDeriving for GHC's newtype-deriving extension
- In the newtype declaration for `Foo'
diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail040.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail040.hs deleted file mode 100644 index 5279f166ea..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail040.hs +++ /dev/null @@ -1,9 +0,0 @@ - -module Foo where - -import Control.Monad.Fix - -z :: Maybe [Int] -z = mdo x <- return (1:x) - return (take 4 x) - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail040.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail040.stderr deleted file mode 100644 index 794899898d..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail040.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail040.hs:7:11: parse error on input `<-' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail041.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail041.hs deleted file mode 100644 index 032e05e816..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail041.hs +++ /dev/null @@ -1,7 +0,0 @@ - -{-# OPTIONS_GHC -XMultiParamTypeClasses #-} - -module Foo where - -class Foo a b | a -> b - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail041.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail041.stderr deleted file mode 100644 index fbe49b1153..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail041.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -readFail041.hs:6:1: - Fundeps in class `Foo' - (Use -XFunctionalDependencies to allow fundeps) - In the class declaration for `Foo' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail042.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail042.hs deleted file mode 100644 index bdd9f97094..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail042.hs +++ /dev/null @@ -1,12 +0,0 @@ --- Check error message for transforms if we don't have the right extension turned on
-
-module Foo where
-
-import Data.List
-import GHC.Exts
-
-foo = [ ()
- | x <- [1..10]
- , then take 5
- , then sortWith by x
- ]
\ No newline at end of file diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail042.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail042.stderr deleted file mode 100644 index 8fbb9bf1f7..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail042.stderr +++ /dev/null @@ -1,12 +0,0 @@ - -readFail042.hs:10:9: - Unexpected transform statement in a list comprehension - Use -XTransformListComp - -readFail042.hs:11:9: - Unexpected transform statement in a list comprehension - Use -XTransformListComp - -readFail042.hs:11:23: Not in scope: `by' - -readFail042.hs:11:26: Not in scope: `x' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail043.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail043.hs deleted file mode 100644 index e6304bea9a..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail043.hs +++ /dev/null @@ -1,14 +0,0 @@ --- Check error message for groups if we don't have the right extension turned on
-
-module Foo where
-
-import Data.List
-import GHC.Exts
-
-foo = [ ()
- | x <- [1..10]
- , then group by x
- , then group by x using groupWith
- , then group using inits
- ]
-
diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail043.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail043.stderr deleted file mode 100644 index 1b2b1abc15..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail043.stderr +++ /dev/null @@ -1,24 +0,0 @@ - -readFail043.hs:10:9: - Unexpected transform statement in a list comprehension - Use -XTransformListComp - -readFail043.hs:10:20: Not in scope: `by' - -readFail043.hs:10:23: Not in scope: `x' - -readFail043.hs:11:9: - Unexpected transform statement in a list comprehension - Use -XTransformListComp - -readFail043.hs:11:20: Not in scope: `by' - -readFail043.hs:11:23: Not in scope: `x' - -readFail043.hs:11:25: Not in scope: `using' - -readFail043.hs:12:9: - Unexpected transform statement in a list comprehension - Use -XTransformListComp - -readFail043.hs:12:20: Not in scope: `using' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail044.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail044.hs deleted file mode 100644 index 2735d3363b..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail044.hs +++ /dev/null @@ -1,9 +0,0 @@ - --- We should get an error message, including a location, for these flags: -{-# OPTIONS_GHC -this-flag-does-not-exist -nor-does-this-one #-} - -module Foo where - -foo :: () -foo = () - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail044.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail044.stderr deleted file mode 100644 index 27becac67c..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail044.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -readFail044.hs:3:16: - unknown flag in {-# OPTIONS_GHC #-} pragma: -this-flag-does-not-exist - -readFail044.hs:3:16: - unknown flag in {-# OPTIONS_GHC #-} pragma: -nor-does-this-one diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail045.stderr-ghc-7.0 b/testsuite/tests/ghc-regress/parser/should_fail/readFail045.stderr-ghc-7.0 deleted file mode 100644 index 3c25e2347c..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail045.stderr-ghc-7.0 +++ /dev/null @@ -1,2 +0,0 @@ - -readFail045.hs:6:21: parse error on input `.+' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail046.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail046.hs deleted file mode 100644 index 9441694dd0..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail046.hs +++ /dev/null @@ -1,4 +0,0 @@ -{-# LANGUAGE ExistientialQuantification #-} --- tests for mis-spelled LANGUAGE pragma error message - -module ShouldFail where diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail046.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail046.stderr deleted file mode 100644 index a303d7798e..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail046.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -readFail046.hs:1:14: - Unsupported extension: ExistientialQuantification - Perhaps you meant `ExistentialQuantification' or `NoExistentialQuantification' diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail047.hs b/testsuite/tests/ghc-regress/parser/should_fail/readFail047.hs deleted file mode 100644 index 5692e780fd..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail047.hs +++ /dev/null @@ -1,9 +0,0 @@ - -module ShouldFail where - -foo = let - x = (1, 2 - y = 3 - in - fst x + y - diff --git a/testsuite/tests/ghc-regress/parser/should_fail/readFail047.stderr b/testsuite/tests/ghc-regress/parser/should_fail/readFail047.stderr deleted file mode 100644 index 53af11cf0c..0000000000 --- a/testsuite/tests/ghc-regress/parser/should_fail/readFail047.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -readFail047.hs:6:5: parse error (possibly incorrect indentation) |