diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/rename')
371 files changed, 0 insertions, 5116 deletions
diff --git a/testsuite/tests/ghc-regress/rename/Makefile b/testsuite/tests/ghc-regress/rename/Makefile deleted file mode 100644 index 9101fbd40a..0000000000 --- a/testsuite/tests/ghc-regress/rename/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/rename/prog001/Makefile b/testsuite/tests/ghc-regress/rename/prog001/Makefile deleted file mode 100644 index 1c39d1c1fe..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog001/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/rename/prog001/Rn037Help.hs b/testsuite/tests/ghc-regress/rename/prog001/Rn037Help.hs deleted file mode 100644 index 64d1224f49..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog001/Rn037Help.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Rn037Help( T(C) ) where - -data T = C diff --git a/testsuite/tests/ghc-regress/rename/prog001/rn037.hs b/testsuite/tests/ghc-regress/rename/prog001/rn037.hs deleted file mode 100644 index 544de2fdd9..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog001/rn037.hs +++ /dev/null @@ -1,9 +0,0 @@ --- !!! Checking that you can hide a constructor -module ShouldCompile where - -import Rn037Help hiding( C ) - -- C is the constructor, but we should - -- still be able to hide it - --- we should still be able to refer to the type constructor, though -type Foo = T diff --git a/testsuite/tests/ghc-regress/rename/prog001/test.T b/testsuite/tests/ghc-regress/rename/prog001/test.T deleted file mode 100644 index ad1a5fef70..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog001/test.T +++ /dev/null @@ -1,4 +0,0 @@ -test('rename.prog001', - extra_clean(['Rn037Help.hi', 'Rn037Help.o', 'rn037.hi', 'rn037.o']), - multimod_compile, - ['rn037', '-v0']) diff --git a/testsuite/tests/ghc-regress/rename/prog002/Makefile b/testsuite/tests/ghc-regress/rename/prog002/Makefile deleted file mode 100644 index 1c39d1c1fe..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog002/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/rename/prog002/Rn037Help.hs b/testsuite/tests/ghc-regress/rename/prog002/Rn037Help.hs deleted file mode 100644 index 64d1224f49..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog002/Rn037Help.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Rn037Help( T(C) ) where - -data T = C diff --git a/testsuite/tests/ghc-regress/rename/prog002/rename.prog002.stderr b/testsuite/tests/ghc-regress/rename/prog002/rename.prog002.stderr deleted file mode 100644 index 31b672b539..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog002/rename.prog002.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail037.hs:8:7: Not in scope: data constructor `Rn037Help.C' diff --git a/testsuite/tests/ghc-regress/rename/prog002/rename.prog002.stderr-hugs b/testsuite/tests/ghc-regress/rename/prog002/rename.prog002.stderr-hugs deleted file mode 100644 index cc2a587de2..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog002/rename.prog002.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail037.hs":8 - Undefined data constructor "Rn037Help.C" diff --git a/testsuite/tests/ghc-regress/rename/prog002/rnfail037.hs b/testsuite/tests/ghc-regress/rename/prog002/rnfail037.hs deleted file mode 100644 index 0a2935c5ad..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog002/rnfail037.hs +++ /dev/null @@ -1,8 +0,0 @@ --- !!! Checking that you can hide a constructor -module ShouldCompile where - -import Rn037Help hiding( C ) - -- C is the constructor, but we should - -- still be able to hide it - -f x = Rn037Help.C diff --git a/testsuite/tests/ghc-regress/rename/prog002/test.T b/testsuite/tests/ghc-regress/rename/prog002/test.T deleted file mode 100644 index 0aa4c39057..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog002/test.T +++ /dev/null @@ -1,4 +0,0 @@ -test('rename.prog002', - extra_clean(['Rn037Help.hi', 'Rn037Help.o']), - multimod_compile_fail, - ['rnfail037', '-v0']) diff --git a/testsuite/tests/ghc-regress/rename/prog003/A.hs b/testsuite/tests/ghc-regress/rename/prog003/A.hs deleted file mode 100644 index 6b68075f96..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog003/A.hs +++ /dev/null @@ -1,2 +0,0 @@ -module A(method) where -class Class a where method :: a -> a diff --git a/testsuite/tests/ghc-regress/rename/prog003/B.hs b/testsuite/tests/ghc-regress/rename/prog003/B.hs deleted file mode 100644 index 77be6cbc0e..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog003/B.hs +++ /dev/null @@ -1,5 +0,0 @@ --- !!! Exporting a class method should not export the class too -module B where -import A -f :: Class a => a -> a -f = method diff --git a/testsuite/tests/ghc-regress/rename/prog003/Makefile b/testsuite/tests/ghc-regress/rename/prog003/Makefile deleted file mode 100644 index 1c39d1c1fe..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog003/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/rename/prog003/rename.prog003.stderr b/testsuite/tests/ghc-regress/rename/prog003/rename.prog003.stderr deleted file mode 100644 index 49c264cae8..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog003/rename.prog003.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -B.hs:4:6: Not in scope: type constructor or class `Class' diff --git a/testsuite/tests/ghc-regress/rename/prog003/rename.prog003.stderr-hugs b/testsuite/tests/ghc-regress/rename/prog003/rename.prog003.stderr-hugs deleted file mode 100644 index 5cb62fcdf2..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog003/rename.prog003.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "B.hs":4 - Undefined class "Class" diff --git a/testsuite/tests/ghc-regress/rename/prog003/test.T b/testsuite/tests/ghc-regress/rename/prog003/test.T deleted file mode 100644 index 7d4c06ab0e..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog003/test.T +++ /dev/null @@ -1,4 +0,0 @@ -test('rename.prog003', - extra_clean(['A.hi', 'A.o']), - multimod_compile_fail, - ['B', '-v0']) diff --git a/testsuite/tests/ghc-regress/rename/prog004/A.hs b/testsuite/tests/ghc-regress/rename/prog004/A.hs deleted file mode 100644 index 23fe5bb187..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog004/A.hs +++ /dev/null @@ -1,6 +0,0 @@ -module A(foo, Bar(..)) where - -foo :: Bar -foo = MkBar 42 - -data Bar = MkBar Int diff --git a/testsuite/tests/ghc-regress/rename/prog004/B.hs b/testsuite/tests/ghc-regress/rename/prog004/B.hs deleted file mode 100644 index 47d2903abb..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog004/B.hs +++ /dev/null @@ -1,4 +0,0 @@ -module B(module A) where - -import A hiding (Bar) -import A(Bar) diff --git a/testsuite/tests/ghc-regress/rename/prog004/C.hs b/testsuite/tests/ghc-regress/rename/prog004/C.hs deleted file mode 100644 index e66231afec..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog004/C.hs +++ /dev/null @@ -1,7 +0,0 @@ -module C where - -import B - -baz :: Bar -baz = foo - diff --git a/testsuite/tests/ghc-regress/rename/prog004/Makefile b/testsuite/tests/ghc-regress/rename/prog004/Makefile deleted file mode 100644 index 1c39d1c1fe..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog004/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/rename/prog004/rename.prog004.stderr b/testsuite/tests/ghc-regress/rename/prog004/rename.prog004.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog004/rename.prog004.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/prog004/test.T b/testsuite/tests/ghc-regress/rename/prog004/test.T deleted file mode 100644 index 4d97d580c0..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog004/test.T +++ /dev/null @@ -1,4 +0,0 @@ -test('rename.prog004', - extra_clean(['A.hi', 'A.o', 'B.hi', 'B.o', 'C.hi', 'C.o']), - multimod_compile, - ['C', '-v0']) diff --git a/testsuite/tests/ghc-regress/rename/prog005/Makefile b/testsuite/tests/ghc-regress/rename/prog005/Makefile deleted file mode 100644 index 1c39d1c1fe..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog005/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/rename/prog005/VersionGraphClient.hs b/testsuite/tests/ghc-regress/rename/prog005/VersionGraphClient.hs deleted file mode 100644 index 3aad9f5180..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog005/VersionGraphClient.hs +++ /dev/null @@ -1,8 +0,0 @@ -module VersionGraphClient( - VersionGraphClient, - - ) where - -import ViewType - -newtype VersionGraphClient = VersionGraphClient Int diff --git a/testsuite/tests/ghc-regress/rename/prog005/VersionGraphClient.hs-boot b/testsuite/tests/ghc-regress/rename/prog005/VersionGraphClient.hs-boot deleted file mode 100644 index 6bca0bbf5e..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog005/VersionGraphClient.hs-boot +++ /dev/null @@ -1,3 +0,0 @@ -module VersionGraphClient where - -data VersionGraphClient diff --git a/testsuite/tests/ghc-regress/rename/prog005/View.hs b/testsuite/tests/ghc-regress/rename/prog005/View.hs deleted file mode 100644 index c14d301c3d..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog005/View.hs +++ /dev/null @@ -1,42 +0,0 @@ -{- -Bug report submitted by George Russell, 1/10/2004: - -With both ghc6.2 and 6.2.20040915 on Linux, ghc --make cannot compile -the attached files and produces a confusing error message. - - # ghc --make View.hs -Chasing modules from: View.hs -Compiling ViewType ( ./ViewType.hs, ./ViewType.o ) -Compiling VersionGraphClient ( ./VersionGraphClient.hs, ./VersionGraphClient.o )Compiling View ( View.hs, View.o ) - -View.hs:14: - Couldn't match `VersionGraphClient' against `VersionGraphClient' - Expected type: VersionGraphClient - Inferred type: VersionGraphClient - In the `graphClient1' field of a record - In the record construction: View {graphClient1 = graphClient} - -However ghc without make has no problems. - -# ghc -c ViewType.hs -# ghc -c VersionGraphClient.hs -# ghc -c View.hs --} - --- | This module defines the fundamental structure of the (untyped) --- objects in a repository. --- --- We depend circularly on CodedValue.hs. This module is compiled --- first and uses CodedValue.hi-boot. -module View( - ) where - -import ViewType -import VersionGraphClient - -createView :: VersionGraphClient -> IO View -createView graphClient = - do - return (View { - graphClient1 = graphClient - }) diff --git a/testsuite/tests/ghc-regress/rename/prog005/ViewType.hs b/testsuite/tests/ghc-regress/rename/prog005/ViewType.hs deleted file mode 100644 index 8e9dd3cd49..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog005/ViewType.hs +++ /dev/null @@ -1,12 +0,0 @@ -module ViewType( - - View(..), - ) where - - -import {-# SOURCE #-} VersionGraphClient - -data View = View { - graphClient1 :: VersionGraphClient - } - diff --git a/testsuite/tests/ghc-regress/rename/prog005/test.T b/testsuite/tests/ghc-regress/rename/prog005/test.T deleted file mode 100644 index 35769bd2bb..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog005/test.T +++ /dev/null @@ -1,7 +0,0 @@ -test('rename.prog005', - [only_compiler_types(['ghc']), - extra_clean(['VersionGraphClient.o-boot','VersionGraphClient.hi-boot', - 'VersionGraphClient.hi', 'VersionGraphClient.o', - 'ViewType.hi', 'ViewType.o', 'View.hi', 'View.o'])], - multimod_compile, - ['View', '-v0']) diff --git a/testsuite/tests/ghc-regress/rename/prog006/A.hs b/testsuite/tests/ghc-regress/rename/prog006/A.hs deleted file mode 100644 index 52e442a0c2..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog006/A.hs +++ /dev/null @@ -1,9 +0,0 @@ -module A (f, y) where - -import B.C (T(..)) - -f (T x) = x - -y = T 42 - - diff --git a/testsuite/tests/ghc-regress/rename/prog006/B/C.hs b/testsuite/tests/ghc-regress/rename/prog006/B/C.hs deleted file mode 100644 index ece50b9002..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog006/B/C.hs +++ /dev/null @@ -1,5 +0,0 @@ -module B.C where - -newtype T = T Int - deriving Show - diff --git a/testsuite/tests/ghc-regress/rename/prog006/Main.hs b/testsuite/tests/ghc-regress/rename/prog006/Main.hs deleted file mode 100644 index 13f7265fc4..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog006/Main.hs +++ /dev/null @@ -1,7 +0,0 @@ -module Main (main, z) where - -import A - -main = print (f y) - -z = y diff --git a/testsuite/tests/ghc-regress/rename/prog006/Makefile b/testsuite/tests/ghc-regress/rename/prog006/Makefile deleted file mode 100644 index d1f4dc0764..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog006/Makefile +++ /dev/null @@ -1,39 +0,0 @@ -TOP=../../../.. -include $(TOP)/mk/boilerplate.mk -include $(TOP)/mk/test.mk - -# Original comments relating to GHC 6.4: -# This test caused a panic in GHC 6.4, but in reality it is user -# error, caused by compiling separate modules in the program using -# different search paths. GHC gets confused when it can't find a -# module mentioned as a dependency in another interface file. - -# Update for GHC 6.6: -# This test now succeeds, because A.hi records the fact that B.C -# came from the package test-1.0, so there's no conflict. - -# If the package format changes, we might have to re-generate pkg.conf -# using the supplied Cabal configuration. - -LOCAL_PKGCONF=local.package.conf -LOCAL_GHC_PKG = '$(GHC_PKG)' --no-user-package-conf -f $(LOCAL_PKGCONF) - -rn.prog006: - rm -f A.hi A.o B/C.hi B/C.o Main.hi Main.o pkg.conf - rm -f pwd pwd.exe pwd.exe.manifest pwd.hi pwd.o - '$(TEST_HC)' $(TEST_HC_OPTS) --make pwd -v0 - '$(TEST_HC)' $(TEST_HC_OPTS) --make -package-name test-1.0 B.C -fforce-recomp -v0 - rm -f pkg.conf - echo "name: test" >>pkg.conf - echo "version: 1.0" >>pkg.conf - echo "id: test-XXX" >>pkg.conf - echo "import-dirs: `./pwd`" >>pkg.conf - echo "exposed-modules: B.C" >>pkg.conf - echo "[]" >$(LOCAL_PKGCONF) - $(LOCAL_GHC_PKG) register pkg.conf -v0 - '$(TEST_HC)' $(TEST_HC_OPTS) -c -package-conf $(LOCAL_PKGCONF) -package test -fforce-recomp A.hs -i -# The -i clears the search path, so A.hs will find B.C from package test - -'$(TEST_HC)' $(TEST_HC_OPTS) -c -package-conf $(LOCAL_PKGCONF) -package test -fforce-recomp Main.hs -# No -i when compiling Main, so a from-scratch search would find a home-pkg module B.C -# However, A.hi remembers that B.C came from package test, so all is ok. - diff --git a/testsuite/tests/ghc-regress/rename/prog006/Setup.lhs b/testsuite/tests/ghc-regress/rename/prog006/Setup.lhs deleted file mode 100644 index b28a8234f9..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog006/Setup.lhs +++ /dev/null @@ -1,5 +0,0 @@ -#!/usr/bin/runhaskell -> module Main where -> import Distribution.Simple -> main :: IO () -> main = defaultMain diff --git a/testsuite/tests/ghc-regress/rename/prog006/all.T b/testsuite/tests/ghc-regress/rename/prog006/all.T deleted file mode 100644 index 4126e6cdf4..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog006/all.T +++ /dev/null @@ -1,7 +0,0 @@ -test('rn.prog006', - extra_clean(['A.hi', 'A.o', 'B/C.hi', 'B/C.o', - 'Main.hi', 'Main.o', 'pkg.conf', - 'pwd', 'pwd.exe', 'pwd.exe.manifest', - 'pwd.hi', 'pwd.o']), - run_command, - ['$MAKE -s --no-print-directory rn.prog006']) diff --git a/testsuite/tests/ghc-regress/rename/prog006/pwd.hs b/testsuite/tests/ghc-regress/rename/prog006/pwd.hs deleted file mode 100644 index 177e836fe1..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog006/pwd.hs +++ /dev/null @@ -1,12 +0,0 @@ - -module Main where - -import System.Directory -import System.Environment - -main :: IO () -main = do d <- getCurrentDirectory - putStr $ concatMap f d - where f '\\' = "/" - f c = [c] - diff --git a/testsuite/tests/ghc-regress/rename/prog006/rn.prog006.stderr b/testsuite/tests/ghc-regress/rename/prog006/rn.prog006.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog006/rn.prog006.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/prog006/test.cabal b/testsuite/tests/ghc-regress/rename/prog006/test.cabal deleted file mode 100644 index 64fb00e11a..0000000000 --- a/testsuite/tests/ghc-regress/rename/prog006/test.cabal +++ /dev/null @@ -1,4 +0,0 @@ -name: test -version: 1.0 -exposed-modules: B.C - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/2334.hs b/testsuite/tests/ghc-regress/rename/should_compile/2334.hs deleted file mode 100644 index 6c1cd80e1f..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/2334.hs +++ /dev/null @@ -1,7 +0,0 @@ -{-# LANGUAGE TypeFamilies,EmptyDataDecls,MultiParamTypeClasses #-} -module Test where - -type family Fam1 a - -class C b where - f :: ( Fam1 s ~ () ) => b -> s diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Imp100Aux.hs b/testsuite/tests/ghc-regress/rename/should_compile/Imp100Aux.hs deleted file mode 100644 index 2ae5f0baa4..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Imp100Aux.hs +++ /dev/null @@ -1,14 +0,0 @@ - -module Imp100Aux where -import Imp100 - -data T1 a -data T2 a b -data T3 a b c -data T4 a b c d -data T5 a b c d e -data T6 a -data T7 a b -data T8 a b c -data T9 a b c d -data T10 a b c d e diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Imp100Aux.hs-boot b/testsuite/tests/ghc-regress/rename/should_compile/Imp100Aux.hs-boot deleted file mode 100644 index 934db61841..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Imp100Aux.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module Imp100Aux where -data T1 a -data T2 a b -data T3 a b c -data T4 a b c d -data T5 a b c d e -data T6 a -data T7 a b -data T8 a b c -data T9 a b c d -data T10 a b c d e diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Imp10Aux.hs b/testsuite/tests/ghc-regress/rename/should_compile/Imp10Aux.hs deleted file mode 100644 index f838aa558d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Imp10Aux.hs +++ /dev/null @@ -1,13 +0,0 @@ - -module Imp10Aux where -import Imp10 -data T1 a -data T2 a b -data T3 a b c -data T4 a b c d -data T5 a b c d e -data T6 a -data T7 a b -data T8 a b c -data T9 a b c d -data T10 a b c d e diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Imp10Aux.hs-boot b/testsuite/tests/ghc-regress/rename/should_compile/Imp10Aux.hs-boot deleted file mode 100644 index 248c113ba2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Imp10Aux.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module Imp10Aux where -data T1 a -data T2 a b -data T3 a b c -data T4 a b c d -data T5 a b c d e -data T6 a -data T7 a b -data T8 a b c -data T9 a b c d -data T10 a b c d e diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Imp500Aux.hs b/testsuite/tests/ghc-regress/rename/should_compile/Imp500Aux.hs deleted file mode 100644 index 20c3c79415..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Imp500Aux.hs +++ /dev/null @@ -1,14 +0,0 @@ - -module Imp500Aux where -import Imp500 - -data T1 a -data T2 a b -data T3 a b c -data T4 a b c d -data T5 a b c d e -data T6 a -data T7 a b -data T8 a b c -data T9 a b c d -data T10 a b c d e diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Imp500Aux.hs-boot b/testsuite/tests/ghc-regress/rename/should_compile/Imp500Aux.hs-boot deleted file mode 100644 index 251ac8012c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Imp500Aux.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module Imp500Aux where -data T1 a -data T2 a b -data T3 a b c -data T4 a b c d -data T5 a b c d e -data T6 a -data T7 a b -data T8 a b c -data T9 a b c d -data T10 a b c d e diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Makefile b/testsuite/tests/ghc-regress/rename/should_compile/Makefile deleted file mode 100644 index 36fc785f7f..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Makefile +++ /dev/null @@ -1,44 +0,0 @@ -TOP=../../../.. -include $(TOP)/mk/boilerplate.mk -include $(TOP)/mk/test.mk - -T1792_imports: - $(RM) T1792_imports.hi T1792_imports.o T1792_imports.imports - '$(TEST_HC)' $(TEST_HC_OPTS) -ddump-minimal-imports -c T1792_imports.hs - cat T1792_imports.imports - -T3823: - $(RM) T3823A.hi-boot T3823A.hi T3823B.hi - $(RM) T3823A.o-boot T3823A.o T3823B.o - -'$(TEST_HC)' $(TEST_HC_OPTS) -v0 --make T3823A.hs - -T4003: - $(RM) T4003A.hi-boot T4003A.hi T4003B.hi - $(RM) T4003A.o-boot T4003A.o T4003B.o - '$(TEST_HC)' $(TEST_HC_OPTS) -O -c T4003A.hs-boot - '$(TEST_HC)' $(TEST_HC_OPTS) -O -c T4003B.hs - '$(TEST_HC)' $(TEST_HC_OPTS) -O -c T4003A.hs - -T3449: - $(RM) T3449.hi-boot T3449.hi T3449A.hi - $(RM) T3449.o-boot T3449.o T3449A.o - '$(TEST_HC)' $(TEST_HC_OPTS) -Wall -c T3449.hs-boot - '$(TEST_HC)' $(TEST_HC_OPTS) -Wall -c T3449A.hs - '$(TEST_HC)' $(TEST_HC_OPTS) -Wall -c T3449.hs - -T4239: - $(RM) T4239A.hi T4239A.o - $(RM) T4239.hi T4239.o T4239.imports - '$(TEST_HC)' $(TEST_HC_OPTS) -c T4239A.hs - '$(TEST_HC)' $(TEST_HC_OPTS) -c T4239.hs -ddump-minimal-imports - cat T4239.imports - -T4240: - $(RM) T4240A.hi T4240A.o - $(RM) T4240B.hi T4240B.o - $(RM) T4240.hi T4240.o T4240.imports - '$(TEST_HC)' $(TEST_HC_OPTS) -c T4240A.hs - '$(TEST_HC)' $(TEST_HC_OPTS) -c T4240B.hs - '$(TEST_HC)' $(TEST_HC_OPTS) -c T4240.hs -ddump-minimal-imports - cat T4240.imports - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn042_A.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn042_A.hs deleted file mode 100644 index ea19a1a3f8..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn042_A.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Rn042_A( Type(..) ) where - -data Type a = Constr { field :: a } diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn043_A.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn043_A.hs deleted file mode 100644 index ab24017637..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn043_A.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Rn043_A where - -x = True diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn043_B.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn043_B.hs deleted file mode 100644 index b7f49f4143..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn043_B.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Rn043_B where - -x = 'x' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn044_A.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn044_A.hs deleted file mode 100644 index 475ffe83cb..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn044_A.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Rn044_A where - -x = True diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn044_B.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn044_B.hs deleted file mode 100644 index e11f03c10b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn044_B.hs +++ /dev/null @@ -1,3 +0,0 @@ -module Rn044_B where - -x = 'x' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn050_A.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn050_A.hs deleted file mode 100644 index d4e1f55c7c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn050_A.hs +++ /dev/null @@ -1,10 +0,0 @@ -module Rn050_A where - -{-# DEPRECATED C "Use D instead" #-} -{-# DEPRECATED op "Use bop instead" #-} - -data T = C | D - -class Foo a where - op :: a -> a - bop :: a -> a diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn052Aux.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn052Aux.hs deleted file mode 100644 index 748da06728..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn052Aux.hs +++ /dev/null @@ -1,6 +0,0 @@ - -module Rn052Aux where - -class C a where - f :: a -> Bool - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn053_A.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn053_A.hs deleted file mode 100644 index d454462034..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn053_A.hs +++ /dev/null @@ -1,5 +0,0 @@ - -module Rn053_A where - -data D = C1 | C2 - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn053_B.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn053_B.hs deleted file mode 100644 index 49603e8543..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn053_B.hs +++ /dev/null @@ -1,5 +0,0 @@ - -module Rn053_B where - -data D = C1 | C2 - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn059_A.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn059_A.hs deleted file mode 100644 index ddebd78b11..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn059_A.hs +++ /dev/null @@ -1,5 +0,0 @@ - -module Rn059_A where - -data A = A { label :: Char } - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn059_B.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn059_B.hs deleted file mode 100644 index df93ae3688..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn059_B.hs +++ /dev/null @@ -1,5 +0,0 @@ - -module Rn059_B where - -data B = B { label :: Char } - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn065A.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn065A.hs deleted file mode 100644 index 4c6ff53cd4..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn065A.hs +++ /dev/null @@ -1,4 +0,0 @@ - -module Rn065A where - -data T = T { a :: Int } diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn066_A.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn066_A.hs deleted file mode 100644 index c6624c3c67..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn066_A.hs +++ /dev/null @@ -1,10 +0,0 @@ -module Rn066_A where - -{-# WARNING C "Are you sure you want to do that?" #-} -{-# WARNING op "Is that really a good idea?" #-} - -data T = C | D - -class Foo a where - op :: a -> a - bop :: a -> a diff --git a/testsuite/tests/ghc-regress/rename/should_compile/Rn067_A.hs b/testsuite/tests/ghc-regress/rename/should_compile/Rn067_A.hs deleted file mode 100644 index 8d7958d64c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/Rn067_A.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Rn067_A where - -x = True - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/RnAux017.hs b/testsuite/tests/ghc-regress/rename/should_compile/RnAux017.hs deleted file mode 100644 index 5514524fee..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/RnAux017.hs +++ /dev/null @@ -1,14 +0,0 @@ -module RnAux017 where -import Test -- Import main module so there really is a loop - -- (avoid warning message) -data Wibble = Wibble -data Wobble = Wobble - -a :: Int -> Int -a = undefined - -b :: Int -> Int -b = undefined - -c :: Int -> Int -c = undefined diff --git a/testsuite/tests/ghc-regress/rename/should_compile/RnAux017.hs-boot b/testsuite/tests/ghc-regress/rename/should_compile/RnAux017.hs-boot deleted file mode 100644 index a2f3cd3916..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/RnAux017.hs-boot +++ /dev/null @@ -1,8 +0,0 @@ -module RnAux017 where - -data Wibble -data Wobble - -a :: Int -> Int -b :: Int -> Int -c :: Int -> Int diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T1074b.hs b/testsuite/tests/ghc-regress/rename/should_compile/T1074b.hs deleted file mode 100644 index f236e9b52e..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T1074b.hs +++ /dev/null @@ -1,4 +0,0 @@ - -module Foo (Monad(..)) where - -import Prelude (Monad((>>=), return)) diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T1789.hs b/testsuite/tests/ghc-regress/rename/should_compile/T1789.hs deleted file mode 100644 index efe3840e4f..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T1789.hs +++ /dev/null @@ -1,11 +0,0 @@ -{-# OPTIONS_GHC -fwarn-missing-import-lists #-} - --- Test Trac #1789 -module T1789 where - -import Prelude -import Data.Map -import Data.Map (size) -import Data.Maybe (Maybe(..)) -import Data.Maybe hiding (isJust) -import qualified Data.Set as Set
\ No newline at end of file diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T1789.stderr b/testsuite/tests/ghc-regress/rename/should_compile/T1789.stderr deleted file mode 100644 index dc9a794935..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T1789.stderr +++ /dev/null @@ -1,12 +0,0 @@ - -T1789.hs:6:1: - Warning: The module `Prelude' does not have an explicit import list - -T1789.hs:7:1: - Warning: The module `Data.Map' does not have an explicit import list - -T1789.hs:9:1: - Warning: The import item `Maybe(..)' does not have an explicit import list - -T1789.hs:10:1: - Warning: The module `Data.Maybe' does not have an explicit import list diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T1789_2.hs b/testsuite/tests/ghc-regress/rename/should_compile/T1789_2.hs deleted file mode 100644 index 2ac2a509fe..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T1789_2.hs +++ /dev/null @@ -1,8 +0,0 @@ -{-# OPTIONS_GHC -fwarn-missing-import-lists #-} - --- Test Trac #1789 -module T1789_2 where - -import Data.Map (size) -import Data.Maybe (Maybe(Just, Nothing)) -import qualified Data.Set as Set (insert) diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T1792_imports.hs b/testsuite/tests/ghc-regress/rename/should_compile/T1792_imports.hs deleted file mode 100644 index 8830bd03e8..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T1792_imports.hs +++ /dev/null @@ -1,6 +0,0 @@ - -module T1792_imports (B.putStr, z, zipWith) where - -import qualified Data.ByteString as B (putStr, readFile, zip, zipWith) - -z = B.readFile diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T1792_imports.stdout b/testsuite/tests/ghc-regress/rename/should_compile/T1792_imports.stdout deleted file mode 100644 index b497d12ec6..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T1792_imports.stdout +++ /dev/null @@ -1 +0,0 @@ -import qualified Data.ByteString as B ( putStr, readFile ) diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T1954.hs b/testsuite/tests/ghc-regress/rename/should_compile/T1954.hs deleted file mode 100644 index 07bfa3a3e8..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T1954.hs +++ /dev/null @@ -1,6 +0,0 @@ -{-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# OPTIONS_GHC -Wall -Werror #-} -module Bug(P) where - -newtype P a = P (IO a) deriving Monad - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T1972.hs b/testsuite/tests/ghc-regress/rename/should_compile/T1972.hs deleted file mode 100644 index 09dd8acaf4..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T1972.hs +++ /dev/null @@ -1,20 +0,0 @@ -{-# OPTIONS_GHC -fwarn-name-shadowing -fwarn-unused-binds #-} - --- Trac #1972 - -module Temp where - -import Data.List - -data Data = Data {name :: String} - -h :: a -> a -h name = name - -f mapAccumL x = x - -mapAccumL y = y - -test x = a+b - where - (a,b,c) = x
\ No newline at end of file diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T1972.stderr b/testsuite/tests/ghc-regress/rename/should_compile/T1972.stderr deleted file mode 100644 index 4f9344c4bc..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T1972.stderr +++ /dev/null @@ -1,11 +0,0 @@ - -T1972.hs:12:3: - Warning: This binding for `name' shadows the existing binding - defined at T1972.hs:9:19 - -T1972.hs:14:3: - Warning: This binding for `mapAccumL' shadows the existing bindings - defined at T1972.hs:16:1 - imported from Data.List at T1972.hs:7:1-16 - -T1972.hs:20:10: Warning: Defined but not used: `c' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T2205.hs b/testsuite/tests/ghc-regress/rename/should_compile/T2205.hs deleted file mode 100644 index 580dea247a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T2205.hs +++ /dev/null @@ -1,17 +0,0 @@ -{-# OPTIONS_GHC -XTypeOperators #-} - --- Test fixity of type operators --- Trac #2205 - -module ShouldCompile where - - infixr 0 :-> - data a :-> b = P a b - - fst3:: (a :-> (b :-> c)) -> a - fst3 (P a (P b c)) = a - - - fst3':: (a :-> b :-> c) -> a - fst3' (P a (P b c)) = a - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T2436.hs b/testsuite/tests/ghc-regress/rename/should_compile/T2436.hs deleted file mode 100644 index 5cfd64100a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T2436.hs +++ /dev/null @@ -1,14 +0,0 @@ -{-# LANGUAGE TypeFamilies #-}
-{-# OPTIONS_GHC -fwarn-duplicate-exports #-}
-
-module T2436( C(..), T(..), module T2436a, S(..) ) where
-
-import T2436a
-
-class C a where
- data T a
-
-instance C Int where
- data T Int = TInt Int
-
-data instance S Int = SInt
\ No newline at end of file diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T2436a.hs b/testsuite/tests/ghc-regress/rename/should_compile/T2436a.hs deleted file mode 100644 index 4813fd918d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T2436a.hs +++ /dev/null @@ -1,4 +0,0 @@ -{-# LANGUAGE TypeFamilies #-}
-module T2436a( S ) where
-
-data family S a
\ No newline at end of file diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T2506.hs b/testsuite/tests/ghc-regress/rename/should_compile/T2506.hs deleted file mode 100644 index 1e31a12c12..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T2506.hs +++ /dev/null @@ -1,6 +0,0 @@ --- Trac #2506 - -module ShouldCompile where -import Control.Exception (assert) - -foo = True `assert` () diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T2914.hs b/testsuite/tests/ghc-regress/rename/should_compile/T2914.hs deleted file mode 100644 index 788efef59d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T2914.hs +++ /dev/null @@ -1,14 +0,0 @@ -{-# LANGUAGE TypeFamilies, RecordWildCards #-} -module AssocWildCards where - -class FooClass a where - data FooType a - -instance FooClass Int where - data FooType Int = FooInt { fooIntVal :: Int } - -fooInt :: Int -> FooType Int -fooInt fooIntVal = FooInt{..} - -fromFooInt :: FooType Int -> Int -fromFooInt (FooInt{..}) = fooIntVal diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3221.hs b/testsuite/tests/ghc-regress/rename/should_compile/T3221.hs deleted file mode 100644 index 5550fd3fa7..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3221.hs +++ /dev/null @@ -1,8 +0,0 @@ -{-# OPTIONS_GHC -Werror -fwarn-unused-binds #-} - --- Test Trac #3221: the constructors are used by the deriving --- clause, even though they are not exported - -module T3221( Foo ) where - -data Foo = Bar | Baz deriving (Show,Read) diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3262.hs b/testsuite/tests/ghc-regress/rename/should_compile/T3262.hs deleted file mode 100644 index 01437d8d2f..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3262.hs +++ /dev/null @@ -1,21 +0,0 @@ -{-# OPTIONS -fwarn-name-shadowing #-} - --- Trac #3262: report shadowing in g but not f - -module T3262 where - -f x = let _ignored = 10 in - let _ignored = 20 in - x + _ignored - -g x = let not_ignored = 10 in - let not_ignored = 20 in - x + not_ignored - -mf x = do let _ignored = 10 - let _ignored = 20 - return (x + _ignored) - -mg x = do let not_ignored = 10 - let not_ignored = 20 - return (x + not_ignored) diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3262.stderr-ghc b/testsuite/tests/ghc-regress/rename/should_compile/T3262.stderr-ghc deleted file mode 100644 index 4e730efa8d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3262.stderr-ghc +++ /dev/null @@ -1,8 +0,0 @@ - -T3262.hs:12:11: - Warning: This binding for `not_ignored' shadows the existing binding - bound at T3262.hs:11:11 - -T3262.hs:20:15: - Warning: This binding for `not_ignored' shadows the existing binding - bound at T3262.hs:19:15 diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3371.hs b/testsuite/tests/ghc-regress/rename/should_compile/T3371.hs deleted file mode 100644 index 9b3d4459f9..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3371.hs +++ /dev/null @@ -1,10 +0,0 @@ -{-# LANGUAGE RecordWildCards #-} -{-# OPTIONS_GHC -fwarn-unused-matches #-} - --- Should warn about the unused 'a', but not about the unused 'c' - -module T3371(bar) where - -data Foo = Foo { a,b,c :: Int } deriving(Eq) - -bar Foo{ a = a, ..} = print b diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3371.stderr b/testsuite/tests/ghc-regress/rename/should_compile/T3371.stderr deleted file mode 100644 index b354d9d3d6..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3371.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -T3371.hs:10:14: Warning: Defined but not used: `a' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3449.hs b/testsuite/tests/ghc-regress/rename/should_compile/T3449.hs deleted file mode 100644 index 462bde67af..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3449.hs +++ /dev/null @@ -1,13 +0,0 @@ - -module T3449 (Foo, f1) where - -import T3449A - -class Foo a where - f1 :: a - f2 :: a - -instance Foo Char where - f1 = f2 - f2 = aChar - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3449.hs-boot b/testsuite/tests/ghc-regress/rename/should_compile/T3449.hs-boot deleted file mode 100644 index 153f29eef8..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3449.hs-boot +++ /dev/null @@ -1,9 +0,0 @@ - -module T3449 (Foo, f1) where - -class Foo a where - f1 :: a - f2 :: a - -unused :: Int - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3449.stderr b/testsuite/tests/ghc-regress/rename/should_compile/T3449.stderr deleted file mode 100644 index da36d24465..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3449.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -T3449.hs-boot:8:1: Warning: Defined but not used: `unused' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3449A.hs b/testsuite/tests/ghc-regress/rename/should_compile/T3449A.hs deleted file mode 100644 index 6af161cdfd..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3449A.hs +++ /dev/null @@ -1,10 +0,0 @@ - -module T3449A where - -import {-# SOURCE #-} T3449 - -z :: Foo a => a -z = f1 - -aChar :: Char -aChar = 'a' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3640.hs b/testsuite/tests/ghc-regress/rename/should_compile/T3640.hs deleted file mode 100644 index 2f8c2253ab..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3640.hs +++ /dev/null @@ -1,11 +0,0 @@ -{-# LANGUAGE NamedFieldPuns #-} - -module T3640 where - -data Record = Record { f1, f2, f3 :: Int } - -goodPun Record{f1,f2,f3} = f1 + f2 + f3 - -badPun r = f1 + f2 + f3 - where Record{f1=f1,f2,f3} = r - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3823.stderr b/testsuite/tests/ghc-regress/rename/should_compile/T3823.stderr deleted file mode 100644 index 0eb8234554..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3823.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -T3823B.hs:8:7: - Couldn't match expected type `A' with actual type `Bool' - In the first argument of `y', namely `a' - In the expression: y a - In an equation for `b': b = y a diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3823A.hs b/testsuite/tests/ghc-regress/rename/should_compile/T3823A.hs deleted file mode 100644 index 0a5c230973..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3823A.hs +++ /dev/null @@ -1,8 +0,0 @@ -module T3823A where - -import T3823B - -data A = X { x :: Bool } | Y - -y :: A -> A -y = \_ -> Y diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3823A.hs-boot b/testsuite/tests/ghc-regress/rename/should_compile/T3823A.hs-boot deleted file mode 100644 index 3b7dd8bb17..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3823A.hs-boot +++ /dev/null @@ -1,5 +0,0 @@ -module T3823A where - -data A = X { x :: Bool } | Y - -y :: A -> A diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3823B.hs b/testsuite/tests/ghc-regress/rename/should_compile/T3823B.hs deleted file mode 100644 index 9f4d03e091..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3823B.hs +++ /dev/null @@ -1,8 +0,0 @@ -module T3823B where - -import {-# SOURCE #-} T3823A - -data B = A A - -a = x (X True) -b = y a diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3901.hs b/testsuite/tests/ghc-regress/rename/should_compile/T3901.hs deleted file mode 100644 index 39b521977b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3901.hs +++ /dev/null @@ -1,14 +0,0 @@ -{-# LANGUAGE RecordWildCards, TransformListComp, NamedFieldPuns #-} - -module T3901 where - -data Rec = Rec {a :: Int} deriving (Show) - -recs1 = [a | Rec {a=a} <- [Rec 1], then group by a] - -recs2 = [a | Rec {a} <- [Rec 1], then group by a] - -recs3 = [a | Rec {..} <- [Rec 1], then group by a] - -recs4 :: [[Int]] -recs4 = [a | Rec {..} <- [Rec 1], then group by a] diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3943.hs b/testsuite/tests/ghc-regress/rename/should_compile/T3943.hs deleted file mode 100644 index efbeb295be..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T3943.hs +++ /dev/null @@ -1,10 +0,0 @@ -{-# OPTIONS_GHC -Wall #-}
-{-# LANGUAGE ViewPatterns #-}
-
-module T3943 where
-
--- Note that 'r' is used, in the view pattern
--- The bug was that 'r' was reported unused
-
-test :: ([a], [a]) -> [a]
-test x = let (r,(r++) -> rs) = x in rs
diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4003A.hs b/testsuite/tests/ghc-regress/rename/should_compile/T4003A.hs deleted file mode 100644 index c17fbae456..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4003A.hs +++ /dev/null @@ -1,15 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} - -module T4003A where - -import T4003B - -import Data.Data - -data MyId = MyId - deriving (Data, Typeable) - -data HsExpr id - = HsOverLit (HsOverLit id) - | HsBracketOut (HsExpr MyId) - deriving (Data, Typeable) diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4003A.hs-boot b/testsuite/tests/ghc-regress/rename/should_compile/T4003A.hs-boot deleted file mode 100644 index b750e47474..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4003A.hs-boot +++ /dev/null @@ -1,8 +0,0 @@ -module T4003A where - -import Data.Data - -data HsExpr i - -instance Typeable1 HsExpr -instance Data i => Data (HsExpr i) diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4003B.hs b/testsuite/tests/ghc-regress/rename/should_compile/T4003B.hs deleted file mode 100644 index 24ce2432a2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4003B.hs +++ /dev/null @@ -1,19 +0,0 @@ - -{-# LANGUAGE DeriveDataTypeable #-} - -module T4003B where - -import {-# SOURCE #-} T4003A (HsExpr) - -import Data.Data - -data HsLit = HsChar - deriving (Data, Typeable) - -data HsOverLit id - = OverLit (HsExpr id) - deriving (Data, Typeable) - -data OverLitVal = HsIntegral - deriving (Data, Typeable) - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4239.hs b/testsuite/tests/ghc-regress/rename/should_compile/T4239.hs deleted file mode 100644 index 5d4f94f857..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4239.hs +++ /dev/null @@ -1,14 +0,0 @@ - -module T4239 where - -import T4239A - -v1 :: (:+++) -v1 = (:+++) - -v2 :: (:+++) -v2 = X - -v3 :: (:+++) -v3 = (:---) - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4239A.hs b/testsuite/tests/ghc-regress/rename/should_compile/T4239A.hs deleted file mode 100644 index ea92d9653b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4239A.hs +++ /dev/null @@ -1,10 +0,0 @@ - -{-# LANGUAGE TypeOperators #-} - -module T4239A where - -data (:+++) = (:+++) - | (:---) - | X - | Y - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4240.hs b/testsuite/tests/ghc-regress/rename/should_compile/T4240.hs deleted file mode 100644 index 75621cf4d5..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4240.hs +++ /dev/null @@ -1,8 +0,0 @@ - -module T4240 where - -import T4240B - -v :: Int -v = m - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4240.stdout b/testsuite/tests/ghc-regress/rename/should_compile/T4240.stdout deleted file mode 100644 index c73585f4a4..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4240.stdout +++ /dev/null @@ -1 +0,0 @@ -import T4240B ( m ) diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4240A.hs b/testsuite/tests/ghc-regress/rename/should_compile/T4240A.hs deleted file mode 100644 index 15215e7080..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4240A.hs +++ /dev/null @@ -1,9 +0,0 @@ - -module T4240A where - -class C a where - m :: a - -instance C Int where - m = 5 - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4240B.hs b/testsuite/tests/ghc-regress/rename/should_compile/T4240B.hs deleted file mode 100644 index b3165b3c12..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4240B.hs +++ /dev/null @@ -1,5 +0,0 @@ - -module T4240B (m) where - -import T4240A - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4478.hs b/testsuite/tests/ghc-regress/rename/should_compile/T4478.hs deleted file mode 100644 index 0d6a5e1ea6..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4478.hs +++ /dev/null @@ -1,7 +0,0 @@ - --- We don't want to warn about duplicate exports for things exported --- by both "module" exports -module T4478 (module Prelude, module Data.List) where - -import Prelude -import Data.List diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4489.hs b/testsuite/tests/ghc-regress/rename/should_compile/T4489.hs deleted file mode 100644 index a967cad06d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4489.hs +++ /dev/null @@ -1,6 +0,0 @@ -{-# OPTIONS_GHC -fwarn-missing-import-lists #-}
-module T4489 where
-
-import Data.Maybe
-import Data.Maybe( Maybe(..) )
-import Data.Maybe( Maybe(Just) )
diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4489.stderr b/testsuite/tests/ghc-regress/rename/should_compile/T4489.stderr deleted file mode 100644 index 8cd400a720..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4489.stderr +++ /dev/null @@ -1,6 +0,0 @@ -
-T4489.hs:4:1:
- Warning: The module `Data.Maybe' does not have an explicit import list
-
-T4489.hs:5:1:
- Warning: The import item `Maybe(..)' does not have an explicit import list
diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T4534.hs b/testsuite/tests/ghc-regress/rename/should_compile/T4534.hs deleted file mode 100644 index 03eb67f23d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T4534.hs +++ /dev/null @@ -1,9 +0,0 @@ -{-# LANGUAGE TransformListComp #-} - --- GHC 7.0.1 failed because the renamer didn't attach --- all the used variables to the TransformListComp constructor - -module List where - -intersectFront :: Ord a => [a] -> [a] -> [a] -intersectFront xs ys = [x | (x,y) <- zip xs ys, then takeWhile by x == y] diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T5331.hs b/testsuite/tests/ghc-regress/rename/should_compile/T5331.hs deleted file mode 100644 index 4e7343e56b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T5331.hs +++ /dev/null @@ -1,19 +0,0 @@ -{-# LANGUAGE GADTs, ScopedTypeVariables #-} -{-# OPTIONS_GHC -Wall #-} - -module Foo where - -data T a - -instance Eq (T a) -{-# SPECIALISE instance forall a.Eq (T Int) #-} - -data S = forall a.S1 - -data W where - W1 :: forall a. W - -f :: forall a. Int -f = 3 - - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T5331.stderr b/testsuite/tests/ghc-regress/rename/should_compile/T5331.stderr deleted file mode 100644 index 36261c539d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T5331.stderr +++ /dev/null @@ -1,18 +0,0 @@ - -T5331.hs:9:32: - Warning: Unused quantified type variable `a' - In the type `forall a. Eq (T Int)' - In a SPECIALISE instance pragma - -T5331.hs:11:17: - Warning: Unused quantified type variable `a' - In the definition of data constructor `S1' - -T5331.hs:14:16: - Warning: Unused quantified type variable `a' - In the definition of data constructor `W1' - -T5331.hs:16:13: - Warning: Unused quantified type variable `a' - In the type `forall a. Int' - In the type signature for `f' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T5334.hs b/testsuite/tests/ghc-regress/rename/should_compile/T5334.hs deleted file mode 100644 index 83f539d492..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T5334.hs +++ /dev/null @@ -1,14 +0,0 @@ -{-# LANGUAGE RecordWildCards #-} - -module T5334 where - -data T = T { a, b :: Int } - -t = T {..} - where - a = 1 - -- b = 2 - -data S = S { x, y :: Int } - -s = S { x = 1 } diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T5334.stderr b/testsuite/tests/ghc-regress/rename/should_compile/T5334.stderr deleted file mode 100644 index de906b9dd6..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/T5334.stderr +++ /dev/null @@ -1,13 +0,0 @@ - -T5334.hs:7:5: - Warning: Fields of `T' not initialised: b - In the expression: T {..} - In an equation for `t': - t = T {..} - where - a = 1 - -T5334.hs:14:5: - Warning: Fields of `S' not initialised: y - In the expression: S {x = 1} - In an equation for `s': s = S {x = 1} diff --git a/testsuite/tests/ghc-regress/rename/should_compile/all.T b/testsuite/tests/ghc-regress/rename/should_compile/all.T deleted file mode 100644 index 3946987e37..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/all.T +++ /dev/null @@ -1,179 +0,0 @@ -# Args to vtc are: extra compile flags - -test('rn003', normal, compile, ['']) -test('rn005', normal, compile, ['']) -test('rn006', normal, compile, ['']) -test('rn009', - [only_compiler_types(['ghc']), - extra_clean(['Imp10Aux.hi', 'Imp10Aux.o', - 'Imp10Aux.hi-boot', 'Imp10Aux.o-boot'])], - multimod_compile, - ['rn009', '-v0']) -# rn10 tests the same things as 009,011,012 -#test('rn010', only_compiler_types(['ghc']), multimod_compile, ['rn010', '-v0']) -test('rn011', - [only_compiler_types(['ghc']), - extra_clean(['Imp100Aux.hi', 'Imp100Aux.o', - 'Imp100Aux.hi-boot', 'Imp100Aux.o-boot'])], - multimod_compile, - ['rn011', '-v0']) -test('rn012', - [only_compiler_types(['ghc']), - extra_clean(['Imp500Aux.hi', 'Imp500Aux.o', - 'Imp500Aux.hi-boot', 'Imp500Aux.o-boot'])], - multimod_compile, - ['rn012', '-v0']) -test('rn013', normal, compile, ['']) -test('rn017', - [only_compiler_types(['ghc']), - extra_clean(['RnAux017.hi', 'RnAux017.o', - 'RnAux017.hi-boot', 'RnAux017.o-boot'])], - multimod_compile, - ['rn017', '-v0']) -test('rn019', normal, compile, ['']) -test('rn020', normal, compile, ['']) -test('rn022', normal, compile, ['']) -test('rn023', normal, compile, ['']) -test('rn024', normal, compile, ['']) -test('rn025', normal, compile, ['']) -test('rn026', normal, compile, ['']) -test('rn027', normal, compile, ['']) -test('rn028', normal, compile, ['']) -test('rn029', normal, compile, ['']) -test('rn031', normal, compile, ['']) -test('rn032', normal, compile, ['']) -test('rn033', normal, compile, ['']) -test('rn034', normal, compile, ['']) -test('rn035', normal, compile, ['']) -test('rn036', normal, compile, ['']) -test('rn037', normal, compile, ['']) - -# Missing: -# test('rn038', normal, compile, ['']) - -test('rn039', normal, compile, ['']) -test('rn040', normal, compile, ['-fwarn-unused-binds -fwarn-unused-matches']) -test('rn041', normal, compile, ['']) -test('rn042', - extra_clean(['Rn042_A.hi', 'Rn042_A.o']), - multimod_compile, - ['rn042', '-v0']) -test('rn043', - extra_clean(['Rn043_A.hi', 'Rn043_A.o', 'Rn043_B.hi', 'Rn043_B.o']), - multimod_compile, ['rn043', '-v0']) -test('rn044', - extra_clean(['Rn044_A.hi', 'Rn044_A.o', 'Rn044_B.hi', 'Rn044_B.o']), - multimod_compile, ['rn044', '-v0']) -test('rn045', normal, compile, ['']) -test('rn046', normal, compile, ['-W']) -test('rn047', normal, compile, ['-W']) -test('rn048', normal, compile, ['-W']) -test('rn049', normal, compile, ['-W']) - -test('rn050', - extra_clean(['Rn050_A.hi', 'Rn050_A.o']), - multimod_compile, ['rn050', '-v0']) - -test('rn051', normal, compile, ['']) - -test('rn052', - extra_clean(['Rn052Aux.hi', 'Rn052Aux.o']), - multimod_compile, ['rn052', '-v0']) - -test('rn053', - extra_clean(['Rn053_A.hi', 'Rn053_A.o', 'Rn053_B.hi', 'Rn053_B.o']), - multimod_compile, ['rn053', '-v0']) - -test('rn054', normal, compile, ['']) -test('rn055', normal, compile, ['']) -test('rn056', normal, compile, ['']) -test('rn057', normal, compile, ['']) -test('rn058', normal, compile, ['']) -test('rn059', - extra_clean(['Rn059_A.hi', 'Rn059_A.o', 'Rn059_B.hi', 'Rn059_B.o']), - multimod_compile, ['rn059', '-v0']) -test('rn060', normal, compile, ['']) -test('rn061', normal, compile, ['']) -test('rn062', normal, compile, ['']) -test('rn063', normal, compile, ['']) -test('rn064', normal, compile, ['']) -test('rn065', - extra_clean(['Rn065A.hi', 'Rn065A.o']), - multimod_compile, - ['rn065', '-v0']) - -test('rn066', - extra_clean(['Rn066_A.hi', 'Rn066_A.o']), - multimod_compile, ['rn066', '-v0']) - -test('rn067', - extra_clean(['Rn067_A.hi', 'Rn067_A.o']), - multimod_compile, ['rn067', '-v0']) - -test('T1972', normal, compile, ['']) -test('T2205', normal, compile, ['']) - -test('2334', normal, compile, ['']) -test('T2506', normal, compile, ['']) -test('T2914', normal, compile, ['']) -test('T3221', normal, compile, ['']) -test('T3262', normal, compile, ['']) -test('T3371', normal, compile, ['']) -test('T1074b', normal, compile, ['-Wall']) -test('T3640', normal, compile, ['']) -test('T3901', normal, compile, ['']) -test('T1954', normal, compile, ['']) -test('T3943', normal, compile, ['']) - -test('timing001', normal, compile, ['']) -test('timing002', normal, compile, ['']) -test('timing003', normal, compile, ['']) - -test('T1792_imports', extra_clean(['T1792_imports.imports']), run_command, - ['$MAKE -s --no-print-directory T1792_imports']) - -test('T3823', - extra_clean(['T3823A.hi-boot', 'T3823A.hi', 'T3823B.hi', - 'T3823A.o-boot', 'T3823A.o', 'T3823B.o']), - run_command, - ['$MAKE -s --no-print-directory T3823']) - -test('T4003', - extra_clean(['T4003A.hi-boot', 'T4003A.hi', 'T4003B.hi', - 'T4003A.o-boot', 'T4003A.o', 'T4003B.o']), - run_command, - ['$MAKE -s --no-print-directory T4003']) -test('T1789', normal, compile, ['']) -test('T1789_2', normal, compile, ['']) -test('T3449', - extra_clean(['T3449.hi-boot', 'T3449.hi', - 'T3449.o-boot', 'T3449.o']), - run_command, - ['$MAKE -s --no-print-directory T3449']) -test('T4239', - [expect_broken(4239), - extra_clean(['T4239A.hi', 'T4239A.o', 'T4239.hi', 'T4239.o', - 'T4239.imports'])], - run_command, - ['$MAKE -s --no-print-directory T4239']) -test('T4240', - [extra_clean(['T4240A.hi', 'T4240A.o', 'T4240.hi', 'T4240.o', - 'T4240.imports'])], - run_command, - ['$MAKE -s --no-print-directory T4240']) - -test('T4489', normal, compile, ['']) -test('T4478', if_compiler_lt('ghc', '7.1', expect_fail), compile, ['']) -test('T4534', normal, compile, ['']) - -test('mc09', normal, compile, ['']) -test('mc10', normal, compile, ['']) -test('mc11', normal, compile, ['']) -test('mc12', normal, compile, ['']) -test('T2436', - [ only_compiler_types(['ghc']), - extra_clean(['T2436a.hi', 'T2436a.o']) ], - multimod_compile, - ['T2436', '-v0']) -test('T5331', normal, compile, ['']) # Unused tyvar warnings -test('T5334', normal, compile, ['']) # Unused tyvar warnings diff --git a/testsuite/tests/ghc-regress/rename/should_compile/mc09.hs b/testsuite/tests/ghc-regress/rename/should_compile/mc09.hs deleted file mode 100644 index f4a62fa617..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/mc09.hs +++ /dev/null @@ -1,10 +0,0 @@ -{-# LANGUAGE MonadComprehensions, TransformListComp #-} - --- Test performed for TransformListComp and should work for monad comp aswell: --- GHC 7.0.1 failed because the renamer didn't attach --- all the used variables to the TransformListComp constructor - -module List where - -intersectFront :: Ord a => [a] -> [a] -> [a] -intersectFront xs ys = [x | (x,y) <- zip xs ys, then takeWhile by x == y] diff --git a/testsuite/tests/ghc-regress/rename/should_compile/mc10.hs b/testsuite/tests/ghc-regress/rename/should_compile/mc10.hs deleted file mode 100644 index fa9774fdfb..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/mc10.hs +++ /dev/null @@ -1,15 +0,0 @@ -{-# OPTIONS_GHC -fwarn-unused-matches #-} -{-# LANGUAGE MonadComprehensions, ParallelListComp #-} --- Test for parallel list comp should work for monad comp aswell: --- --- GHC 6.4 erroneously reported that the --- bindings for q and z were unused --- --- Note the parallel list comprehension, --- which was the cause of the trouble - -module ShouldCompile where - -t :: [Int] -t = [ q | y <- [1..10] - | z <- [30..40], let q = z*z] diff --git a/testsuite/tests/ghc-regress/rename/should_compile/mc10.stderr-ghc b/testsuite/tests/ghc-regress/rename/should_compile/mc10.stderr-ghc deleted file mode 100644 index 585bfa4528..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/mc10.stderr-ghc +++ /dev/null @@ -1,2 +0,0 @@ - -mc10.hs:14:11: Warning: Defined but not used: `y' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/mc11.hs b/testsuite/tests/ghc-regress/rename/should_compile/mc11.hs deleted file mode 100644 index 250e587a16..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/mc11.hs +++ /dev/null @@ -1,14 +0,0 @@ -{-# LANGUAGE RecordWildCards, MonadComprehensions, TransformListComp, NamedFieldPuns #-} - -module T3901 where - -data Rec = Rec {a :: Int} deriving (Show) - -recs1 = [a | Rec {a=a} <- [Rec 1], then group by a] - -recs2 = [a | Rec {a} <- [Rec 1], then group by a] - -recs3 = [a | Rec {..} <- [Rec 1], then group by a] - -recs4 :: [[Int]] -recs4 = [a | Rec {..} <- [Rec 1], then group by a] diff --git a/testsuite/tests/ghc-regress/rename/should_compile/mc12.hs b/testsuite/tests/ghc-regress/rename/should_compile/mc12.hs deleted file mode 100644 index cd55dfb451..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/mc12.hs +++ /dev/null @@ -1,11 +0,0 @@ -{-# OPTIONS_GHC -Wall #-} -{-# LANGUAGE MonadComprehensions, ParallelListComp #-} --- Test for parallel list comp, which should work for monad comp as well: --- --- On GHC 6.0 and earlier, this parallel list comprehension generated --- an incorrect unused-binding warning. - -module ShouldCompile where - -t :: [(Char,Char)] -t = [ (a,b) | a <- "foo" | b <- "bar" ] diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn003.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn003.hs deleted file mode 100644 index bb22583721..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn003.hs +++ /dev/null @@ -1,9 +0,0 @@ -module Foo (f) where --- export food -f x = x - --- !!! weird patterns with no variables -1 = f 1 -[] = f [] -1 = f (f 1) -[] = f (f []) diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn003.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn003.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn003.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn005.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn005.hs deleted file mode 100644 index 623bd78df3..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn005.hs +++ /dev/null @@ -1,8 +0,0 @@ --- !!! rn005: simplest case: a few non-recursive bindings - -module Test where - -f = [] -g x = x -h x y = x -i x y z = x diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn005.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn005.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn005.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn006.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn006.hs deleted file mode 100644 index 4f4c0a4fed..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn006.hs +++ /dev/null @@ -1,14 +0,0 @@ --- !!! rn006: two sets of mutually-recursive blobs: --- !!! f, g, h are mut rec --- !!! i, j, k are mut rec - -module Test where - -f x = g x x -i x = j x x - -g x y = h x x y -j x y = k x x y - -h x y z = f z -k x y z = i z diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn006.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn006.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn006.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn009.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn009.hs deleted file mode 100644 index 7192e1d45a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn009.hs +++ /dev/null @@ -1,2 +0,0 @@ -module Imp10 where -import {-# SOURCE #-} Imp10Aux diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn009.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn009.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn009.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn010.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn010.hs deleted file mode 100644 index d1eac0a700..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn010.hs +++ /dev/null @@ -1,12 +0,0 @@ -module Imp100 where -import {-# SOURCE #-} Int10 -import {-# SOURCE #-} Int10 -import {-# SOURCE #-} Int10 -import {-# SOURCE #-} Int10 -import {-# SOURCE #-} Int10 -import {-# SOURCE #-} Int10 -import {-# SOURCE #-} Int10 -import {-# SOURCE #-} Int10 -import {-# SOURCE #-} Int10 -import {-# SOURCE #-} Int10 - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn010.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn010.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn010.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn011.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn011.hs deleted file mode 100644 index df0cb62b25..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn011.hs +++ /dev/null @@ -1,101 +0,0 @@ -module Imp100 where -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux -import {-# SOURCE #-} Imp100Aux - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn011.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn011.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn011.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn012.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn012.hs deleted file mode 100644 index 46bcfce6a3..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn012.hs +++ /dev/null @@ -1,503 +0,0 @@ -module Imp500 where -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux -import {-# SOURCE #-} Imp500Aux - - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn012.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn012.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn012.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn013.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn013.hs deleted file mode 100644 index e48c2c56ee..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn013.hs +++ /dev/null @@ -1,21 +0,0 @@ -module Mod10 where - -data T1 a = C1 a - -data T2 a b = T2C1 a | T2C2 b - -data T3 a b c = T3C1 a | T3C2 b | T3C3 c - -data T4 a b c d = T4C1 a | T4C2 b | T4C3 c | T4C4 d - -data T5 a b c d e = T5C1 a | T5C2 b | T5C3 c | T5C4 d | T5C5 e - -data T6 a = T6C6 a - -data T7 a b = T7C6 a | T7C7 b - -data T8 a b c = T8C1 a | T8C2 b | T8C3 c - -data T9 a b c d = T9C1 a | T9C2 b | T9C3 c | T9C4 d - -data T10 a b c d e = T10C1 a | T10C2 b | T10C3 c | T10C4 d | T10C5 e diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn013.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn013.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn013.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn016.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn016.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn016.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn017.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn017.hs deleted file mode 100644 index 7d073e90ea..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn017.hs +++ /dev/null @@ -1,14 +0,0 @@ --- !! Rexporting -module Test ( module Test , module RnAux017 ) where - -import {-# SOURCE #-} RnAux017 - -f x = x - -data Foo = MkFoo - -class FOO a where - op :: a -> Int - -instance FOO Foo where - op x = 42 diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn018.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn018.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn018.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn019.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn019.hs deleted file mode 100644 index 9c393f9119..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn019.hs +++ /dev/null @@ -1,4 +0,0 @@ -module Silly ( - Data.Array.accum - ) where -import qualified Data.Array diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn020.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn020.hs deleted file mode 100644 index 5485d7cb51..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn020.hs +++ /dev/null @@ -1,11 +0,0 @@ --- !!! Duplicate fields in record decls - -module OK where - -data X = A {a :: Int} | B {a :: Int} - -f x = x - --- data Y = V {a :: Int} - --- f y = y diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn022.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn022.hs deleted file mode 100644 index c59b949a48..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn022.hs +++ /dev/null @@ -1,11 +0,0 @@ --- this is legal, I think (WDP) - -module Confused where - -import Prelude hiding (otherwise) - -otherwise = False - -f x | otherwise = 1 - -g otherwise | otherwise = 2 diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn022.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn022.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn022.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn023.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn023.hs deleted file mode 100644 index 3522ff0ff4..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn023.hs +++ /dev/null @@ -1,3 +0,0 @@ --- !! This one is fine in Haskell 1.4 --- -module Foo ( Bar(..) ) where { data Bar = Bar X; data X = Y } diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn024.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn024.hs deleted file mode 100644 index ae9cc6b4f0..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn024.hs +++ /dev/null @@ -1,9 +0,0 @@ --- !! This is fine in Haskell 1.4 --- -module Foo ( Baz(..) ) where - -class Baz a where - opx :: Int -> Bar -> a -> a - -data Bar = Bar X -data X = Y diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn025.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn025.hs deleted file mode 100644 index b8bf1ffe94..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn025.hs +++ /dev/null @@ -1,5 +0,0 @@ --- !!! Re-exporting a module whose contents is partially hidden. -module ShouldCompile ( module Data.List ) where - -import Data.List hiding ( sort ) - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn025.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn025.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn025.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn026.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn026.hs deleted file mode 100644 index 45510361a9..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn026.hs +++ /dev/null @@ -1,12 +0,0 @@ --- !!! Checking that more than imported module can share a local --- !!! local alias. -module ShouldCompile where - -import qualified Data.List as X -import qualified Data.Maybe as X - -x :: Ord a => [a] -> [a] -x = X.sort - -y :: Maybe a -> Bool -y = X.isJust diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn027.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn027.hs deleted file mode 100644 index 76cefe9310..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn027.hs +++ /dev/null @@ -1,12 +0,0 @@ --- !!! Checking that an imported module may still have --- !!! a local alias without having used 'qualified'. -module ShouldCompile where - -import Data.List as X -import Data.Maybe as X - -x :: Ord a => [a] -> [a] -x = X.sort - -y :: Maybe a -> Bool -y = X.isJust diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn028.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn028.hs deleted file mode 100644 index 6bbafd7a36..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn028.hs +++ /dev/null @@ -1,18 +0,0 @@ --- !!! Checking that a toplevel declaration 'f' in module M is accessible --- !!! as both 'f' and 'M.f' within the scope of M. Similarly for imported --- !!! entities. -module ShouldCompile where - -import Data.List ( sort ) - -x :: Int -x = 2 - -y :: Int -y = x - -z :: Int -z = ShouldCompile.x - -sortOf :: Ord a=> [a] -> [a] -sortOf = Data.List.sort diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn029.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn029.hs deleted file mode 100644 index 76dd993dc9..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn029.hs +++ /dev/null @@ -1,17 +0,0 @@ --- !!! Checking that lazy name clashing works. -module ShouldCompile where - -import Data.List ( reverse, sort ) - -sort :: Int -- Clashes with Data.List.sort, -sort = 4 -- but never used, so OK - - -reverse :: Int -- Clashes with Data.List.reverse, -reverse = 3 -- but the only uses are qualified - -x = ShouldCompile.reverse - -y = Data.List.reverse - - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn031.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn031.hs deleted file mode 100644 index 7b4a07d626..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn031.hs +++ /dev/null @@ -1,12 +0,0 @@ --- !!! Checking that an imported module may still have --- !!! a local alias without having used 'qualified'. -module ShouldCompile where - -import Data.List as X -import Data.Maybe as X - -x :: Ord a => [a] -> [a] -x = X.sort - -y :: Maybe a -> Bool -y = isJust diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn032.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn032.hs deleted file mode 100644 index 6bbafd7a36..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn032.hs +++ /dev/null @@ -1,18 +0,0 @@ --- !!! Checking that a toplevel declaration 'f' in module M is accessible --- !!! as both 'f' and 'M.f' within the scope of M. Similarly for imported --- !!! entities. -module ShouldCompile where - -import Data.List ( sort ) - -x :: Int -x = 2 - -y :: Int -y = x - -z :: Int -z = ShouldCompile.x - -sortOf :: Ord a=> [a] -> [a] -sortOf = Data.List.sort diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn033.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn033.hs deleted file mode 100644 index 4c30160a8d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn033.hs +++ /dev/null @@ -1,14 +0,0 @@ --- !!! Checking that lazy name clashing works -module ShouldCompile where - -import Data.List ( sort ) - -sort :: Int -sort = 3 - -foo :: Int -foo = ShouldCompile.sort - -baz :: (Ord a) => [a] -> [a] -baz = Data.List.sort - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn034.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn034.hs deleted file mode 100644 index b8fc047171..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn034.hs +++ /dev/null @@ -1,12 +0,0 @@ --- !!! Checking that empty declarations are permitted. -module ShouldCompile where - - -class Foo a where - -class Foz a - -x = 2 where -y = 3 - -instance Foo Int where diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn035.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn035.hs deleted file mode 100644 index 3de6a9b71d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn035.hs +++ /dev/null @@ -1,10 +0,0 @@ --- !!! Checking what's legal in the body of a class declaration. -module ShouldCompile where - -class Foo a where { - (--<>--) :: a -> a -> Int ; - infixl 5 --<>-- ; - (--<>--) _ _ = 2 ; -- empty decl at the end. -}; - - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn036.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn036.hs deleted file mode 100644 index 9eb96b1dd6..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn036.hs +++ /dev/null @@ -1,14 +0,0 @@ --- !!! Checking that qualified method names are legal in instance body. --- but not (now -- Aug 02) in the binding position -module ShouldCompile where - -import Prelude hiding (Eq, (==)) -import Prelude as P (Eq,(==)) - -data Foo = Foo Int Integer - -instance P.Eq Foo where - (Foo a1 b1) == (Foo a2 b2) = a1 P.== a2 && b1 P.== b2 - - - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn037.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn037.hs deleted file mode 100644 index 46de96fae5..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn037.hs +++ /dev/null @@ -1,4 +0,0 @@ -{-# OPTIONS -fwarn-unused-imports #-} --- !!! test unused import warning -import Data.List -main = return () :: IO () diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn037.stderr-ghc b/testsuite/tests/ghc-regress/rename/should_compile/rn037.stderr-ghc deleted file mode 100644 index 64b604f9bd..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn037.stderr-ghc +++ /dev/null @@ -1,5 +0,0 @@ - -rn037.hs:3:1: - Warning: The import of `Data.List' is redundant - except perhaps to import instances from `Data.List' - To import instances alone, use: import Data.List() diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn039.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn039.hs deleted file mode 100644 index 9033858158..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn039.hs +++ /dev/null @@ -1,6 +0,0 @@ -{-# OPTIONS -fwarn-name-shadowing #-} -module ShouldCompile where - --- !!! test shadowing of a global name - -g = 42 where f -1 = -1 -- shadows (-), probably by accident! diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn039.stderr-ghc b/testsuite/tests/ghc-regress/rename/should_compile/rn039.stderr-ghc deleted file mode 100644 index f3c9c5bf3d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn039.stderr-ghc +++ /dev/null @@ -1,4 +0,0 @@ - -rn039.hs:6:16: - Warning: This binding for `-' shadows the existing binding - imported from Prelude diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn040.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn040.hs deleted file mode 100644 index 3b418f5c2f..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn040.hs +++ /dev/null @@ -1,8 +0,0 @@ -{-# OPTIONS -fwarn-unused-binds #-}
-module ShouldCompile where
-
--- !!! should produce warnings about unused identifers
-x :: [()]
-x = [ () | y <- [] ]
-
-z = do w <- getContents; return ()
diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn040.stderr-ghc b/testsuite/tests/ghc-regress/rename/should_compile/rn040.stderr-ghc deleted file mode 100644 index 5de9d0c1c6..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn040.stderr-ghc +++ /dev/null @@ -1,4 +0,0 @@ - -rn040.hs:6:12: Warning: Defined but not used: `y' - -rn040.hs:8:8: Warning: Defined but not used: `w' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn041.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn041.hs deleted file mode 100644 index 454227c14d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn041.hs +++ /dev/null @@ -1,13 +0,0 @@ -{-# OPTIONS -fwarn-unused-binds #-} - --- Test reports of unused bindings - -module ShouldCompile( t ) where - -f x = f x -- Unused - -g x = h x -- Unused -h x = g x - -t x = t x -- Used by export list - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn041.stderr-ghc b/testsuite/tests/ghc-regress/rename/should_compile/rn041.stderr-ghc deleted file mode 100644 index da94a09854..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn041.stderr-ghc +++ /dev/null @@ -1,6 +0,0 @@ - -rn041.hs:7:1: Warning: Defined but not used: `f' - -rn041.hs:9:1: Warning: Defined but not used: `g' - -rn041.hs:10:1: Warning: Defined but not used: `h' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn042.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn042.hs deleted file mode 100644 index db96e89b73..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn042.hs +++ /dev/null @@ -1,5 +0,0 @@ --- Record field selectors imported alone; should be ok - -module M where - -import Rn042_A( field ) diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn043.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn043.hs deleted file mode 100644 index e88e8426df..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn043.hs +++ /dev/null @@ -1,6 +0,0 @@ --- This one should succeed; M.x is unambiguous - -module ShouldCompile (module M) where - - import Rn043_A as M -- x, M.x - import Rn043_B -- x, Rn043_A.x diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn044.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn044.hs deleted file mode 100644 index 44e33b40b4..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn044.hs +++ /dev/null @@ -1,8 +0,0 @@ --- This one should succeed; x is unambiguous, even --- though M.x is not - -module ShouldCompile (module M) where - -import qualified Rn044_A as M -- M.x -import Rn044_B as M -- x, M.x - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn045.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn045.hs deleted file mode 100644 index 16a3c49972..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn045.hs +++ /dev/null @@ -1,9 +0,0 @@ -{-# OPTIONS_GHC -Wall #-} -{-# LANGUAGE ParallelListComp #-} --- On GHC 6.0 and earlier, this parallel list comprehension generated --- an incorrect unused-binding warning. - -module ShouldCompile where - -t :: [(Char,Char)] -t = [ (a,b) | a <- "foo" | b <- "bar" ] diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn046.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn046.hs deleted file mode 100644 index ba469f3aec..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn046.hs +++ /dev/null @@ -1,6 +0,0 @@ -module ShouldCompile where -import Data.List (nub) -- all unused -import Data.Char (ord, chr) -- some unused - -x = chr 42 - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn046.stderr-ghc b/testsuite/tests/ghc-regress/rename/should_compile/rn046.stderr-ghc deleted file mode 100644 index ebde8af373..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn046.stderr-ghc +++ /dev/null @@ -1,8 +0,0 @@ - -rn046.hs:2:1: - Warning: The import of `Data.List' is redundant - except perhaps to import instances from `Data.List' - To import instances alone, use: import Data.List() - -rn046.hs:3:1: - Warning: The import of `ord' from module `Data.Char' is redundant diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn047.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn047.hs deleted file mode 100644 index f4526aa384..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn047.hs +++ /dev/null @@ -1,13 +0,0 @@ -{-# OPTIONS_GHC -fwarn-unused-matches #-} -{-# LANGUAGE ParallelListComp #-} --- GHC 6.4 erroneously reported that the --- bindings for q and z were unused --- --- Note the parallel list comprehension, --- which was the cause of the trouble - -module ShouldCompile where - -t :: [Int] -t = [ q | y <- [1..10] - | z <- [30..40], let q = z*z] diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn047.stderr-ghc b/testsuite/tests/ghc-regress/rename/should_compile/rn047.stderr-ghc deleted file mode 100644 index 8b9614cb17..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn047.stderr-ghc +++ /dev/null @@ -1,2 +0,0 @@ - -rn047.hs:12:11: Warning: Defined but not used: `y' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn048.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn048.hs deleted file mode 100644 index e34c979258..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn048.hs +++ /dev/null @@ -1,15 +0,0 @@ -{-# LANGUAGE GADTs #-} -{-# OPTIONS_GHC -W #-} --- Produced a bogus unused-import warning in versions of GHC 6.6 - -module Bug ( Structure (..) ) where - -import Prelude hiding( Rational ) - -- Rational is exported by Prelude -import Data.Ratio ( Rational ) - -data Structure a where - StructCons :: Int -> Structure Int - StructRatio :: Structure Rational - - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn049.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn049.hs deleted file mode 100644 index 83f6c5c276..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn049.hs +++ /dev/null @@ -1,13 +0,0 @@ --- GHC 6.4.1 said --- test.hs:1:5: --- Warning: accepting non-standard pattern guards --- (-fglasgow-exts to suppress this message) --- [x <- ((1 * 2) + 3) * 4, undefined] --- Note the wrongly-parenthesised expression - -{-# LANGUAGE Haskell98 #-} - -module ShouldCompile where - -main | x <- 1*2+3*4 = x -
\ No newline at end of file diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn049.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn049.stderr deleted file mode 100644 index 766c681051..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn049.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -rn049.hs:12:6: - Warning: accepting non-standard pattern guards (use -XPatternGuards to suppress this message) - x <- 1 * 2 + 3 * 4 diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn050.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn050.hs deleted file mode 100644 index 4dd1e6c4c4..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn050.hs +++ /dev/null @@ -1,13 +0,0 @@ -{-# OPTIONS_GHC -fwarn-warnings-deprecations #-} - --- Test deprecation of constructors and class ops - -module ShouldCompile where - -import Rn050_A - -instance Foo T where - op x = x - bop y = y - -foo = op C diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn050.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn050.stderr deleted file mode 100644 index d323205aed..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn050.stderr +++ /dev/null @@ -1,10 +0,0 @@ - -rn050.hs:7:1: - Warning: In the use of data constructor `C' - (imported from Rn050_A): - Deprecated: "Use D instead" - -rn050.hs:7:1: - Warning: In the use of `op' - (imported from Rn050_A): - Deprecated: "Use bop instead" diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn051.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn051.hs deleted file mode 100644 index ee5b53ee8e..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn051.hs +++ /dev/null @@ -1,13 +0,0 @@ -{-# OPTIONS -XNoImplicitPrelude #-} - --- This one crashed GHC 6.6 in lookupDeprec --- See Trac #1128 --- and Note [Used names with interface not loaded] --- in RnNames - -module ShouldCompile where - -import Prelude - -foo :: Int -> Float -foo x = 3.0 diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn052.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn052.hs deleted file mode 100644 index 47e115a25c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn052.hs +++ /dev/null @@ -1,10 +0,0 @@ - -module Rn052 where - -import qualified Rn052Aux - -data D = D - -instance Rn052Aux.C D where - f _ = True - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn053.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn053.hs deleted file mode 100644 index 6994bf29bd..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn053.hs +++ /dev/null @@ -1,7 +0,0 @@ - -module Rn053 (D(C1, C2)) where - -import qualified Rn053_A -import Rn053_A hiding (D(..)) -import Rn053_B - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn054.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn054.hs deleted file mode 100644 index 9706072cb6..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn054.hs +++ /dev/null @@ -1,5 +0,0 @@ - -module Rn054 where - -import Data.Bits (shiftL) - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn055.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn055.hs deleted file mode 100644 index d5ec280d4a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn055.hs +++ /dev/null @@ -1,6 +0,0 @@ -{-# OPTIONS_GHC -fwarn-implicit-prelude -fwarn-unused-imports #-} -module ShouldCompile where - --- !!! should produce warnings about implicitly imported Prelude --- (but not about the implicit import being unused) - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn055.stderr-ghc b/testsuite/tests/ghc-regress/rename/should_compile/rn055.stderr-ghc deleted file mode 100644 index 1b928b46cf..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn055.stderr-ghc +++ /dev/null @@ -1,2 +0,0 @@ - -rn055.hs:1:1: Warning: Module `Prelude' implicitly imported diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn056.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn056.hs deleted file mode 100644 index 5e775dd112..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn056.hs +++ /dev/null @@ -1,9 +0,0 @@ -{-# OPTIONS_GHC -fwarn-implicit-prelude -fwarn-unused-imports #-} -module ShouldCompile where - -import Prelude () - --- !!! should produce no warnings --- (the other use of importing nothing is --- to nullify the implicit import of the Prelude) - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn056.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn056.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn056.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn057.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn057.hs deleted file mode 100644 index b6ca224ffb..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn057.hs +++ /dev/null @@ -1,6 +0,0 @@ -{-# OPTIONS_GHC -fwarn-implicit-prelude #-} -{-# LANGUAGE NoImplicitPrelude #-} -module ShouldCompile where - --- !!! should produce no warning - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn057.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn057.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn057.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn058.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn058.hs deleted file mode 100644 index 838f58b1c7..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn058.hs +++ /dev/null @@ -1,14 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface #-} -{-# OPTIONS_GHC -fwarn-unused-imports #-} - --- Trac #1386 --- We do not want a warning about unused imports - -module Foo () where - -import Control.Monad (liftM) - -foo :: IO () -foo = id `liftM` return () - -foreign export ccall "hs_foo" foo :: IO () diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn059.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn059.hs deleted file mode 100644 index e46c666433..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn059.hs +++ /dev/null @@ -1,13 +0,0 @@ -{-# OPTIONS_GHC -XDisambiguateRecordFields #-} - -module Foo () where - -import Rn059_A -import Rn059_B - -a = A { label = 'a' } - -b = B { label = 'b' } - -f (A { label = a }) (B { label = b }) = (a,b) - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn060.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn060.hs deleted file mode 100644 index aa6ff02191..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn060.hs +++ /dev/null @@ -1,6 +0,0 @@ - -module Foo (module Data.List) where - -import Data.List -import Data.List as Foo - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn061.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn061.hs deleted file mode 100644 index caeb1c9e79..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn061.hs +++ /dev/null @@ -1,3 +0,0 @@ - -module Foo (module Prelude) where - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn062.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn062.hs deleted file mode 100644 index dbb5493fb9..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn062.hs +++ /dev/null @@ -1,8 +0,0 @@ --- Trac #2055 - -module Foo where - -import qualified Data.List - -foo genericReplicate = genericReplicate True - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn063.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn063.hs deleted file mode 100644 index 4f40cce7ee..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn063.hs +++ /dev/null @@ -1,14 +0,0 @@ - -{-# OPTIONS_GHC -Wall #-} - -module Foo where - --- We should complain that both x and y are unused. --- We used to not warn for recursive bindings, like x (trac #2136). - -v :: a -v = let x = x in undefined - -w :: a -w = let y = 'a' in undefined - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn063.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn063.stderr deleted file mode 100644 index c437dd3c6a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn063.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -rn063.hs:10:9: Warning: Defined but not used: `x' - -rn063.hs:13:9: Warning: Defined but not used: `y' diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn064.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn064.hs deleted file mode 100644 index 658d87b348..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn064.hs +++ /dev/null @@ -1,17 +0,0 @@ - -{-# OPTIONS_GHC -Wall #-} - -module Foo where - --- We should complain that the first r shadows the second one, and give --- the right locations for the two of them. (trac #2137) - -z :: a -z = r - where - _a = 'a' - _f r = r - _b = 'b' - r = undefined - _c = 'c' - diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn064.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn064.stderr deleted file mode 100644 index f23a96bb54..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn064.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -rn064.hs:13:12: - Warning: This binding for `r' shadows the existing binding - bound at rn064.hs:15:9 diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn065.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn065.hs deleted file mode 100644 index 2da09d0d74..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn065.hs +++ /dev/null @@ -1,10 +0,0 @@ - -{-# LANGUAGE RecordWildCards #-} - --- trac #1491 - -module Foo where - -import Rn065A - -f T{..} = a + 1 diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn066.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn066.hs deleted file mode 100644 index c41265ecf5..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn066.hs +++ /dev/null @@ -1,13 +0,0 @@ -{-# OPTIONS_GHC -fwarn-warnings-deprecations #-} - --- Test warnings on constructors and class ops - -module ShouldCompile where - -import Rn066_A - -instance Foo T where - op x = x - bop y = y - -foo = op C diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn066.stderr b/testsuite/tests/ghc-regress/rename/should_compile/rn066.stderr deleted file mode 100644 index 6a95f2f93c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn066.stderr +++ /dev/null @@ -1,10 +0,0 @@ - -rn066.hs:7:1: - Warning: In the use of data constructor `C' - (imported from Rn066_A): - "Are you sure you want to do that?" - -rn066.hs:7:1: - Warning: In the use of `op' - (imported from Rn066_A): - "Is that really a good idea?" diff --git a/testsuite/tests/ghc-regress/rename/should_compile/rn067.hs b/testsuite/tests/ghc-regress/rename/should_compile/rn067.hs deleted file mode 100644 index d0e2d2ede2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/rn067.hs +++ /dev/null @@ -1,14 +0,0 @@ - -module ShouldCompile where - -import Rn067_A - -x = 'a' - --- The use of x here should not be reported as ambiguous, as it refers --- to the local variable. --- --- hugs Sept 2006 says: --- --- ERROR "rn067.hs":14 - Ambiguous variable occurrence "x" -test = let x = "" in x diff --git a/testsuite/tests/ghc-regress/rename/should_compile/timing001.hs b/testsuite/tests/ghc-regress/rename/should_compile/timing001.hs deleted file mode 100644 index b84b341f19..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/timing001.hs +++ /dev/null @@ -1,507 +0,0 @@ --- !!! 500 defns chained together at the top-level -module Main(main) where -main = undefined -a000 = a001 -a001 = a002 -a002 = a003 -a003 = a004 -a004 = a005 -a005 = a006 -a006 = a007 -a007 = a008 -a008 = a009 -a009 = a010 -a010 = a011 -a011 = a012 -a012 = a013 -a013 = a014 -a014 = a015 -a015 = a016 -a016 = a017 -a017 = a018 -a018 = a019 -a019 = a020 -a020 = a021 -a021 = a022 -a022 = a023 -a023 = a024 -a024 = a025 -a025 = a026 -a026 = a027 -a027 = a028 -a028 = a029 -a029 = a030 -a030 = a031 -a031 = a032 -a032 = a033 -a033 = a034 -a034 = a035 -a035 = a036 -a036 = a037 -a037 = a038 -a038 = a039 -a039 = a040 -a040 = a041 -a041 = a042 -a042 = a043 -a043 = a044 -a044 = a045 -a045 = a046 -a046 = a047 -a047 = a048 -a048 = a049 -a049 = a050 -a050 = a051 -a051 = a052 -a052 = a053 -a053 = a054 -a054 = a055 -a055 = a056 -a056 = a057 -a057 = a058 -a058 = a059 -a059 = a060 -a060 = a061 -a061 = a062 -a062 = a063 -a063 = a064 -a064 = a065 -a065 = a066 -a066 = a067 -a067 = a068 -a068 = a069 -a069 = a070 -a070 = a071 -a071 = a072 -a072 = a073 -a073 = a074 -a074 = a075 -a075 = a076 -a076 = a077 -a077 = a078 -a078 = a079 -a079 = a080 -a080 = a081 -a081 = a082 -a082 = a083 -a083 = a084 -a084 = a085 -a085 = a086 -a086 = a087 -a087 = a088 -a088 = a089 -a089 = a090 -a090 = a091 -a091 = a092 -a092 = a093 -a093 = a094 -a094 = a095 -a095 = a096 -a096 = a097 -a097 = a098 -a098 = a099 -a099 = a100 - -a100 = a101 -a101 = a102 -a102 = a103 -a103 = a104 -a104 = a105 -a105 = a106 -a106 = a107 -a107 = a108 -a108 = a109 -a109 = a110 -a110 = a111 -a111 = a112 -a112 = a113 -a113 = a114 -a114 = a115 -a115 = a116 -a116 = a117 -a117 = a118 -a118 = a119 -a119 = a120 -a120 = a121 -a121 = a122 -a122 = a123 -a123 = a124 -a124 = a125 -a125 = a126 -a126 = a127 -a127 = a128 -a128 = a129 -a129 = a130 -a130 = a131 -a131 = a132 -a132 = a133 -a133 = a134 -a134 = a135 -a135 = a136 -a136 = a137 -a137 = a138 -a138 = a139 -a139 = a140 -a140 = a141 -a141 = a142 -a142 = a143 -a143 = a144 -a144 = a145 -a145 = a146 -a146 = a147 -a147 = a148 -a148 = a149 -a149 = a150 -a150 = a151 -a151 = a152 -a152 = a153 -a153 = a154 -a154 = a155 -a155 = a156 -a156 = a157 -a157 = a158 -a158 = a159 -a159 = a160 -a160 = a161 -a161 = a162 -a162 = a163 -a163 = a164 -a164 = a165 -a165 = a166 -a166 = a167 -a167 = a168 -a168 = a169 -a169 = a170 -a170 = a171 -a171 = a172 -a172 = a173 -a173 = a174 -a174 = a175 -a175 = a176 -a176 = a177 -a177 = a178 -a178 = a179 -a179 = a180 -a180 = a181 -a181 = a182 -a182 = a183 -a183 = a184 -a184 = a185 -a185 = a186 -a186 = a187 -a187 = a188 -a188 = a189 -a189 = a190 -a190 = a191 -a191 = a192 -a192 = a193 -a193 = a194 -a194 = a195 -a195 = a196 -a196 = a197 -a197 = a198 -a198 = a199 -a199 = a200 - -a200 = a201 -a201 = a202 -a202 = a203 -a203 = a204 -a204 = a205 -a205 = a206 -a206 = a207 -a207 = a208 -a208 = a209 -a209 = a210 -a210 = a211 -a211 = a212 -a212 = a213 -a213 = a214 -a214 = a215 -a215 = a216 -a216 = a217 -a217 = a218 -a218 = a219 -a219 = a220 -a220 = a221 -a221 = a222 -a222 = a223 -a223 = a224 -a224 = a225 -a225 = a226 -a226 = a227 -a227 = a228 -a228 = a229 -a229 = a230 -a230 = a231 -a231 = a232 -a232 = a233 -a233 = a234 -a234 = a235 -a235 = a236 -a236 = a237 -a237 = a238 -a238 = a239 -a239 = a240 -a240 = a241 -a241 = a242 -a242 = a243 -a243 = a244 -a244 = a245 -a245 = a246 -a246 = a247 -a247 = a248 -a248 = a249 -a249 = a250 -a250 = a251 -a251 = a252 -a252 = a253 -a253 = a254 -a254 = a255 -a255 = a256 -a256 = a257 -a257 = a258 -a258 = a259 -a259 = a260 -a260 = a261 -a261 = a262 -a262 = a263 -a263 = a264 -a264 = a265 -a265 = a266 -a266 = a267 -a267 = a268 -a268 = a269 -a269 = a270 -a270 = a271 -a271 = a272 -a272 = a273 -a273 = a274 -a274 = a275 -a275 = a276 -a276 = a277 -a277 = a278 -a278 = a279 -a279 = a280 -a280 = a281 -a281 = a282 -a282 = a283 -a283 = a284 -a284 = a285 -a285 = a286 -a286 = a287 -a287 = a288 -a288 = a289 -a289 = a290 -a290 = a291 -a291 = a292 -a292 = a293 -a293 = a294 -a294 = a295 -a295 = a296 -a296 = a297 -a297 = a298 -a298 = a299 -a299 = a300 - -a300 = a301 -a301 = a302 -a302 = a303 -a303 = a304 -a304 = a305 -a305 = a306 -a306 = a307 -a307 = a308 -a308 = a309 -a309 = a310 -a310 = a311 -a311 = a312 -a312 = a313 -a313 = a314 -a314 = a315 -a315 = a316 -a316 = a317 -a317 = a318 -a318 = a319 -a319 = a320 -a320 = a321 -a321 = a322 -a322 = a323 -a323 = a324 -a324 = a325 -a325 = a326 -a326 = a327 -a327 = a328 -a328 = a329 -a329 = a330 -a330 = a331 -a331 = a332 -a332 = a333 -a333 = a334 -a334 = a335 -a335 = a336 -a336 = a337 -a337 = a338 -a338 = a339 -a339 = a340 -a340 = a341 -a341 = a342 -a342 = a343 -a343 = a344 -a344 = a345 -a345 = a346 -a346 = a347 -a347 = a348 -a348 = a349 -a349 = a350 -a350 = a351 -a351 = a352 -a352 = a353 -a353 = a354 -a354 = a355 -a355 = a356 -a356 = a357 -a357 = a358 -a358 = a359 -a359 = a360 -a360 = a361 -a361 = a362 -a362 = a363 -a363 = a364 -a364 = a365 -a365 = a366 -a366 = a367 -a367 = a368 -a368 = a369 -a369 = a370 -a370 = a371 -a371 = a372 -a372 = a373 -a373 = a374 -a374 = a375 -a375 = a376 -a376 = a377 -a377 = a378 -a378 = a379 -a379 = a380 -a380 = a381 -a381 = a382 -a382 = a383 -a383 = a384 -a384 = a385 -a385 = a386 -a386 = a387 -a387 = a388 -a388 = a389 -a389 = a390 -a390 = a391 -a391 = a392 -a392 = a393 -a393 = a394 -a394 = a395 -a395 = a396 -a396 = a397 -a397 = a398 -a398 = a399 -a399 = a400 - -a400 = a401 -a401 = a402 -a402 = a403 -a403 = a404 -a404 = a405 -a405 = a406 -a406 = a407 -a407 = a408 -a408 = a409 -a409 = a410 -a410 = a411 -a411 = a412 -a412 = a413 -a413 = a414 -a414 = a415 -a415 = a416 -a416 = a417 -a417 = a418 -a418 = a419 -a419 = a420 -a420 = a421 -a421 = a422 -a422 = a423 -a423 = a424 -a424 = a425 -a425 = a426 -a426 = a427 -a427 = a428 -a428 = a429 -a429 = a430 -a430 = a431 -a431 = a432 -a432 = a433 -a433 = a434 -a434 = a435 -a435 = a436 -a436 = a437 -a437 = a438 -a438 = a439 -a439 = a440 -a440 = a441 -a441 = a442 -a442 = a443 -a443 = a444 -a444 = a445 -a445 = a446 -a446 = a447 -a447 = a448 -a448 = a449 -a449 = a450 -a450 = a451 -a451 = a452 -a452 = a453 -a453 = a454 -a454 = a455 -a455 = a456 -a456 = a457 -a457 = a458 -a458 = a459 -a459 = a460 -a460 = a461 -a461 = a462 -a462 = a463 -a463 = a464 -a464 = a465 -a465 = a466 -a466 = a467 -a467 = a468 -a468 = a469 -a469 = a470 -a470 = a471 -a471 = a472 -a472 = a473 -a473 = a474 -a474 = a475 -a475 = a476 -a476 = a477 -a477 = a478 -a478 = a479 -a479 = a480 -a480 = a481 -a481 = a482 -a482 = a483 -a483 = a484 -a484 = a485 -a485 = a486 -a486 = a487 -a487 = a488 -a488 = a489 -a489 = a490 -a490 = a491 -a491 = a492 -a492 = a493 -a493 = a494 -a494 = a495 -a495 = a496 -a496 = a497 -a497 = a498 -a498 = a499 -a499 = [] -- !!! ta-dah!!! diff --git a/testsuite/tests/ghc-regress/rename/should_compile/timing001.stderr b/testsuite/tests/ghc-regress/rename/should_compile/timing001.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/timing001.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/timing002.hs b/testsuite/tests/ghc-regress/rename/should_compile/timing002.hs deleted file mode 100644 index f81b026a67..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/timing002.hs +++ /dev/null @@ -1,504 +0,0 @@ --- !!! 500 defns chained together with "where"s -module Main(main) where - -main = undefined -a500 = let a000 = [] - a001 = a000 - a002 = a001 - a003 = a002 - a004 = a003 - a005 = a004 - a006 = a005 - a007 = a006 - a008 = a007 - a009 = a008 - a010 = a009 - a011 = a010 - a012 = a011 - a013 = a012 - a014 = a013 - a015 = a014 - a016 = a015 - a017 = a016 - a018 = a017 - a019 = a018 - a020 = a019 - a021 = a020 - a022 = a021 - a023 = a022 - a024 = a023 - a025 = a024 - a026 = a025 - a027 = a026 - a028 = a027 - a029 = a028 - a030 = a029 - a031 = a030 - a032 = a031 - a033 = a032 - a034 = a033 - a035 = a034 - a036 = a035 - a037 = a036 - a038 = a037 - a039 = a038 - a040 = a039 - a041 = a040 - a042 = a041 - a043 = a042 - a044 = a043 - a045 = a044 - a046 = a045 - a047 = a046 - a048 = a047 - a049 = a048 - a050 = a049 - a051 = a050 - a052 = a051 - a053 = a052 - a054 = a053 - a055 = a054 - a056 = a055 - a057 = a056 - a058 = a057 - a059 = a058 - a060 = a059 - a061 = a060 - a062 = a061 - a063 = a062 - a064 = a063 - a065 = a064 - a066 = a065 - a067 = a066 - a068 = a067 - a069 = a068 - a070 = a069 - a071 = a070 - a072 = a071 - a073 = a072 - a074 = a073 - a075 = a074 - a076 = a075 - a077 = a076 - a078 = a077 - a079 = a078 - a080 = a079 - a081 = a080 - a082 = a081 - a083 = a082 - a084 = a083 - a085 = a084 - a086 = a085 - a087 = a086 - a088 = a087 - a089 = a088 - a090 = a089 - a091 = a090 - a092 = a091 - a093 = a092 - a094 = a093 - a095 = a094 - a096 = a095 - a097 = a096 - a098 = a097 - a099 = a098 - a100 = a099 - a101 = a100 - a102 = a101 - a103 = a102 - a104 = a103 - a105 = a104 - a106 = a105 - a107 = a106 - a108 = a107 - a109 = a108 - a110 = a109 - a111 = a110 - a112 = a111 - a113 = a112 - a114 = a113 - a115 = a114 - a116 = a115 - a117 = a116 - a118 = a117 - a119 = a118 - a120 = a119 - a121 = a120 - a122 = a121 - a123 = a122 - a124 = a123 - a125 = a124 - a126 = a125 - a127 = a126 - a128 = a127 - a129 = a128 - a130 = a129 - a131 = a130 - a132 = a131 - a133 = a132 - a134 = a133 - a135 = a134 - a136 = a135 - a137 = a136 - a138 = a137 - a139 = a138 - a140 = a139 - a141 = a140 - a142 = a141 - a143 = a142 - a144 = a143 - a145 = a144 - a146 = a145 - a147 = a146 - a148 = a147 - a149 = a148 - a150 = a149 - a151 = a150 - a152 = a151 - a153 = a152 - a154 = a153 - a155 = a154 - a156 = a155 - a157 = a156 - a158 = a157 - a159 = a158 - a160 = a159 - a161 = a160 - a162 = a161 - a163 = a162 - a164 = a163 - a165 = a164 - a166 = a165 - a167 = a166 - a168 = a167 - a169 = a168 - a170 = a169 - a171 = a170 - a172 = a171 - a173 = a172 - a174 = a173 - a175 = a174 - a176 = a175 - a177 = a176 - a178 = a177 - a179 = a178 - a180 = a179 - a181 = a180 - a182 = a181 - a183 = a182 - a184 = a183 - a185 = a184 - a186 = a185 - a187 = a186 - a188 = a187 - a189 = a188 - a190 = a189 - a191 = a190 - a192 = a191 - a193 = a192 - a194 = a193 - a195 = a194 - a196 = a195 - a197 = a196 - a198 = a197 - a199 = a198 - a200 = a199 - a201 = a200 - a202 = a201 - a203 = a202 - a204 = a203 - a205 = a204 - a206 = a205 - a207 = a206 - a208 = a207 - a209 = a208 - a210 = a209 - a211 = a210 - a212 = a211 - a213 = a212 - a214 = a213 - a215 = a214 - a216 = a215 - a217 = a216 - a218 = a217 - a219 = a218 - a220 = a219 - a221 = a220 - a222 = a221 - a223 = a222 - a224 = a223 - a225 = a224 - a226 = a225 - a227 = a226 - a228 = a227 - a229 = a228 - a230 = a229 - a231 = a230 - a232 = a231 - a233 = a232 - a234 = a233 - a235 = a234 - a236 = a235 - a237 = a236 - a238 = a237 - a239 = a238 - a240 = a239 - a241 = a240 - a242 = a241 - a243 = a242 - a244 = a243 - a245 = a244 - a246 = a245 - a247 = a246 - a248 = a247 - a249 = a248 - a250 = a249 - a251 = a250 - a252 = a251 - a253 = a252 - a254 = a253 - a255 = a254 - a256 = a255 - a257 = a256 - a258 = a257 - a259 = a258 - a260 = a259 - a261 = a260 - a262 = a261 - a263 = a262 - a264 = a263 - a265 = a264 - a266 = a265 - a267 = a266 - a268 = a267 - a269 = a268 - a270 = a269 - a271 = a270 - a272 = a271 - a273 = a272 - a274 = a273 - a275 = a274 - a276 = a275 - a277 = a276 - a278 = a277 - a279 = a278 - a280 = a279 - a281 = a280 - a282 = a281 - a283 = a282 - a284 = a283 - a285 = a284 - a286 = a285 - a287 = a286 - a288 = a287 - a289 = a288 - a290 = a289 - a291 = a290 - a292 = a291 - a293 = a292 - a294 = a293 - a295 = a294 - a296 = a295 - a297 = a296 - a298 = a297 - a299 = a298 - a300 = a299 - a301 = a300 - a302 = a301 - a303 = a302 - a304 = a303 - a305 = a304 - a306 = a305 - a307 = a306 - a308 = a307 - a309 = a308 - a310 = a309 - a311 = a310 - a312 = a311 - a313 = a312 - a314 = a313 - a315 = a314 - a316 = a315 - a317 = a316 - a318 = a317 - a319 = a318 - a320 = a319 - a321 = a320 - a322 = a321 - a323 = a322 - a324 = a323 - a325 = a324 - a326 = a325 - a327 = a326 - a328 = a327 - a329 = a328 - a330 = a329 - a331 = a330 - a332 = a331 - a333 = a332 - a334 = a333 - a335 = a334 - a336 = a335 - a337 = a336 - a338 = a337 - a339 = a338 - a340 = a339 - a341 = a340 - a342 = a341 - a343 = a342 - a344 = a343 - a345 = a344 - a346 = a345 - a347 = a346 - a348 = a347 - a349 = a348 - a350 = a349 - a351 = a350 - a352 = a351 - a353 = a352 - a354 = a353 - a355 = a354 - a356 = a355 - a357 = a356 - a358 = a357 - a359 = a358 - a360 = a359 - a361 = a360 - a362 = a361 - a363 = a362 - a364 = a363 - a365 = a364 - a366 = a365 - a367 = a366 - a368 = a367 - a369 = a368 - a370 = a369 - a371 = a370 - a372 = a371 - a373 = a372 - a374 = a373 - a375 = a374 - a376 = a375 - a377 = a376 - a378 = a377 - a379 = a378 - a380 = a379 - a381 = a380 - a382 = a381 - a383 = a382 - a384 = a383 - a385 = a384 - a386 = a385 - a387 = a386 - a388 = a387 - a389 = a388 - a390 = a389 - a391 = a390 - a392 = a391 - a393 = a392 - a394 = a393 - a395 = a394 - a396 = a395 - a397 = a396 - a398 = a397 - a399 = a398 - a400 = a399 - a401 = a400 - a402 = a401 - a403 = a402 - a404 = a403 - a405 = a404 - a406 = a405 - a407 = a406 - a408 = a407 - a409 = a408 - a410 = a409 - a411 = a410 - a412 = a411 - a413 = a412 - a414 = a413 - a415 = a414 - a416 = a415 - a417 = a416 - a418 = a417 - a419 = a418 - a420 = a419 - a421 = a420 - a422 = a421 - a423 = a422 - a424 = a423 - a425 = a424 - a426 = a425 - a427 = a426 - a428 = a427 - a429 = a428 - a430 = a429 - a431 = a430 - a432 = a431 - a433 = a432 - a434 = a433 - a435 = a434 - a436 = a435 - a437 = a436 - a438 = a437 - a439 = a438 - a440 = a439 - a441 = a440 - a442 = a441 - a443 = a442 - a444 = a443 - a445 = a444 - a446 = a445 - a447 = a446 - a448 = a447 - a449 = a448 - a450 = a449 - a451 = a450 - a452 = a451 - a453 = a452 - a454 = a453 - a455 = a454 - a456 = a455 - a457 = a456 - a458 = a457 - a459 = a458 - a460 = a459 - a461 = a460 - a462 = a461 - a463 = a462 - a464 = a463 - a465 = a464 - a466 = a465 - a467 = a466 - a468 = a467 - a469 = a468 - a470 = a469 - a471 = a470 - a472 = a471 - a473 = a472 - a474 = a473 - a475 = a474 - a476 = a475 - a477 = a476 - a478 = a477 - a479 = a478 - a480 = a479 - a481 = a480 - a482 = a481 - a483 = a482 - a484 = a483 - a485 = a484 - a486 = a485 - a487 = a486 - a488 = a487 - a489 = a488 - a490 = a489 - a491 = a490 - a492 = a491 - a493 = a492 - a494 = a493 - a495 = a494 - a496 = a495 - a497 = a496 - a498 = a497 in - a498 diff --git a/testsuite/tests/ghc-regress/rename/should_compile/timing002.stderr b/testsuite/tests/ghc-regress/rename/should_compile/timing002.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/timing002.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_compile/timing003.hs b/testsuite/tests/ghc-regress/rename/should_compile/timing003.hs deleted file mode 100644 index c268646daf..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/timing003.hs +++ /dev/null @@ -1,508 +0,0 @@ --- !!! 500 defns, not chained together -module Main(main) where - -main = undefined -a000 = [] -a001 = [] -a002 = [] -a003 = [] -a004 = [] -a005 = [] -a006 = [] -a007 = [] -a008 = [] -a009 = [] -a010 = [] -a011 = [] -a012 = [] -a013 = [] -a014 = [] -a015 = [] -a016 = [] -a017 = [] -a018 = [] -a019 = [] -a020 = [] -a021 = [] -a022 = [] -a023 = [] -a024 = [] -a025 = [] -a026 = [] -a027 = [] -a028 = [] -a029 = [] -a030 = [] -a031 = [] -a032 = [] -a033 = [] -a034 = [] -a035 = [] -a036 = [] -a037 = [] -a038 = [] -a039 = [] -a040 = [] -a041 = [] -a042 = [] -a043 = [] -a044 = [] -a045 = [] -a046 = [] -a047 = [] -a048 = [] -a049 = [] -a050 = [] -a051 = [] -a052 = [] -a053 = [] -a054 = [] -a055 = [] -a056 = [] -a057 = [] -a058 = [] -a059 = [] -a060 = [] -a061 = [] -a062 = [] -a063 = [] -a064 = [] -a065 = [] -a066 = [] -a067 = [] -a068 = [] -a069 = [] -a070 = [] -a071 = [] -a072 = [] -a073 = [] -a074 = [] -a075 = [] -a076 = [] -a077 = [] -a078 = [] -a079 = [] -a080 = [] -a081 = [] -a082 = [] -a083 = [] -a084 = [] -a085 = [] -a086 = [] -a087 = [] -a088 = [] -a089 = [] -a090 = [] -a091 = [] -a092 = [] -a093 = [] -a094 = [] -a095 = [] -a096 = [] -a097 = [] -a098 = [] -a099 = [] - -a100 = [] -a101 = [] -a102 = [] -a103 = [] -a104 = [] -a105 = [] -a106 = [] -a107 = [] -a108 = [] -a109 = [] -a110 = [] -a111 = [] -a112 = [] -a113 = [] -a114 = [] -a115 = [] -a116 = [] -a117 = [] -a118 = [] -a119 = [] -a120 = [] -a121 = [] -a122 = [] -a123 = [] -a124 = [] -a125 = [] -a126 = [] -a127 = [] -a128 = [] -a129 = [] -a130 = [] -a131 = [] -a132 = [] -a133 = [] -a134 = [] -a135 = [] -a136 = [] -a137 = [] -a138 = [] -a139 = [] -a140 = [] -a141 = [] -a142 = [] -a143 = [] -a144 = [] -a145 = [] -a146 = [] -a147 = [] -a148 = [] -a149 = [] -a150 = [] -a151 = [] -a152 = [] -a153 = [] -a154 = [] -a155 = [] -a156 = [] -a157 = [] -a158 = [] -a159 = [] -a160 = [] -a161 = [] -a162 = [] -a163 = [] -a164 = [] -a165 = [] -a166 = [] -a167 = [] -a168 = [] -a169 = [] -a170 = [] -a171 = [] -a172 = [] -a173 = [] -a174 = [] -a175 = [] -a176 = [] -a177 = [] -a178 = [] -a179 = [] -a180 = [] -a181 = [] -a182 = [] -a183 = [] -a184 = [] -a185 = [] -a186 = [] -a187 = [] -a188 = [] -a189 = [] -a190 = [] -a191 = [] -a192 = [] -a193 = [] -a194 = [] -a195 = [] -a196 = [] -a197 = [] -a198 = [] -a199 = [] - -a200 = [] -a201 = [] -a202 = [] -a203 = [] -a204 = [] -a205 = [] -a206 = [] -a207 = [] -a208 = [] -a209 = [] -a210 = [] -a211 = [] -a212 = [] -a213 = [] -a214 = [] -a215 = [] -a216 = [] -a217 = [] -a218 = [] -a219 = [] -a220 = [] -a221 = [] -a222 = [] -a223 = [] -a224 = [] -a225 = [] -a226 = [] -a227 = [] -a228 = [] -a229 = [] -a230 = [] -a231 = [] -a232 = [] -a233 = [] -a234 = [] -a235 = [] -a236 = [] -a237 = [] -a238 = [] -a239 = [] -a240 = [] -a241 = [] -a242 = [] -a243 = [] -a244 = [] -a245 = [] -a246 = [] -a247 = [] -a248 = [] -a249 = [] -a250 = [] -a251 = [] -a252 = [] -a253 = [] -a254 = [] -a255 = [] -a256 = [] -a257 = [] -a258 = [] -a259 = [] -a260 = [] -a261 = [] -a262 = [] -a263 = [] -a264 = [] -a265 = [] -a266 = [] -a267 = [] -a268 = [] -a269 = [] -a270 = [] -a271 = [] -a272 = [] -a273 = [] -a274 = [] -a275 = [] -a276 = [] -a277 = [] -a278 = [] -a279 = [] -a280 = [] -a281 = [] -a282 = [] -a283 = [] -a284 = [] -a285 = [] -a286 = [] -a287 = [] -a288 = [] -a289 = [] -a290 = [] -a291 = [] -a292 = [] -a293 = [] -a294 = [] -a295 = [] -a296 = [] -a297 = [] -a298 = [] -a299 = [] - -a300 = [] -a301 = [] -a302 = [] -a303 = [] -a304 = [] -a305 = [] -a306 = [] -a307 = [] -a308 = [] -a309 = [] -a310 = [] -a311 = [] -a312 = [] -a313 = [] -a314 = [] -a315 = [] -a316 = [] -a317 = [] -a318 = [] -a319 = [] -a320 = [] -a321 = [] -a322 = [] -a323 = [] -a324 = [] -a325 = [] -a326 = [] -a327 = [] -a328 = [] -a329 = [] -a330 = [] -a331 = [] -a332 = [] -a333 = [] -a334 = [] -a335 = [] -a336 = [] -a337 = [] -a338 = [] -a339 = [] -a340 = [] -a341 = [] -a342 = [] -a343 = [] -a344 = [] -a345 = [] -a346 = [] -a347 = [] -a348 = [] -a349 = [] -a350 = [] -a351 = [] -a352 = [] -a353 = [] -a354 = [] -a355 = [] -a356 = [] -a357 = [] -a358 = [] -a359 = [] -a360 = [] -a361 = [] -a362 = [] -a363 = [] -a364 = [] -a365 = [] -a366 = [] -a367 = [] -a368 = [] -a369 = [] -a370 = [] -a371 = [] -a372 = [] -a373 = [] -a374 = [] -a375 = [] -a376 = [] -a377 = [] -a378 = [] -a379 = [] -a380 = [] -a381 = [] -a382 = [] -a383 = [] -a384 = [] -a385 = [] -a386 = [] -a387 = [] -a388 = [] -a389 = [] -a390 = [] -a391 = [] -a392 = [] -a393 = [] -a394 = [] -a395 = [] -a396 = [] -a397 = [] -a398 = [] -a399 = [] - -a400 = [] -a401 = [] -a402 = [] -a403 = [] -a404 = [] -a405 = [] -a406 = [] -a407 = [] -a408 = [] -a409 = [] -a410 = [] -a411 = [] -a412 = [] -a413 = [] -a414 = [] -a415 = [] -a416 = [] -a417 = [] -a418 = [] -a419 = [] -a420 = [] -a421 = [] -a422 = [] -a423 = [] -a424 = [] -a425 = [] -a426 = [] -a427 = [] -a428 = [] -a429 = [] -a430 = [] -a431 = [] -a432 = [] -a433 = [] -a434 = [] -a435 = [] -a436 = [] -a437 = [] -a438 = [] -a439 = [] -a440 = [] -a441 = [] -a442 = [] -a443 = [] -a444 = [] -a445 = [] -a446 = [] -a447 = [] -a448 = [] -a449 = [] -a450 = [] -a451 = [] -a452 = [] -a453 = [] -a454 = [] -a455 = [] -a456 = [] -a457 = [] -a458 = [] -a459 = [] -a460 = [] -a461 = [] -a462 = [] -a463 = [] -a464 = [] -a465 = [] -a466 = [] -a467 = [] -a468 = [] -a469 = [] -a470 = [] -a471 = [] -a472 = [] -a473 = [] -a474 = [] -a475 = [] -a476 = [] -a477 = [] -a478 = [] -a479 = [] -a480 = [] -a481 = [] -a482 = [] -a483 = [] -a484 = [] -a485 = [] -a486 = [] -a487 = [] -a488 = [] -a489 = [] -a490 = [] -a491 = [] -a492 = [] -a493 = [] -a494 = [] -a495 = [] -a496 = [] -a497 = [] -a498 = [] -a499 = [] diff --git a/testsuite/tests/ghc-regress/rename/should_compile/timing003.stderr b/testsuite/tests/ghc-regress/rename/should_compile/timing003.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_compile/timing003.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_fail/Makefile b/testsuite/tests/ghc-regress/rename/should_fail/Makefile deleted file mode 100644 index 1c39d1c1fe..0000000000 --- a/testsuite/tests/ghc-regress/rename/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/rename/should_fail/RnFail047_A.hs b/testsuite/tests/ghc-regress/rename/should_fail/RnFail047_A.hs deleted file mode 100644 index dfe63adbaa..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/RnFail047_A.hs +++ /dev/null @@ -1,8 +0,0 @@ - -module RnFail047_A (x) where - -import RnFail047 - -x :: Int -x = 3 - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/RnFail047_A.hs-boot b/testsuite/tests/ghc-regress/rename/should_fail/RnFail047_A.hs-boot deleted file mode 100644 index 5bfff40b96..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/RnFail047_A.hs-boot +++ /dev/null @@ -1,6 +0,0 @@ - -module RnFail047_A (x, y) where - -x::Int -y::Int - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/RnFail055.hs b/testsuite/tests/ghc-regress/rename/should_fail/RnFail055.hs deleted file mode 100644 index bd95add36b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/RnFail055.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE MultiParamTypeClasses,RankNTypes,ExistentialQuantification,DatatypeContexts #-} -module RnFail055 where - -import RnFail055_aux - --- Id with different type -f1 :: Int -> Float -f1 = undefined - --- type synonym with different arity -type S1 a b = (a,b) - --- type synonym with different rhs -type S2 a b = forall a. (a,b) - --- type synonym with alpha-renaming (should be ok) -type S3 a = [a] - --- datatype with different fields -data T1 a b = T1 [b] [a] - --- datatype with different stupid theta -data (Eq b) => T2 a b = T2 a - --- different constructor name -data T3' = T3 -data T3 = T3' - --- check alpha equivalence -data T4 a = T4 (forall b. a -> b) - --- different field labels -data T5 a = T5 { field5 :: a } - --- different strict marks -data T6 = T6 Int - --- different existential quantification -data T7 a = forall a . T7 a - --- extra method in the hs-boot -class C1 a b where {} - --- missing method in the hs-boot -class C2 a b where { m2 :: a -> b; m2' :: a -> b } - --- different superclasses -class (Eq a, Ord a) => C3 a where { } diff --git a/testsuite/tests/ghc-regress/rename/should_fail/RnFail055.hs-boot b/testsuite/tests/ghc-regress/rename/should_fail/RnFail055.hs-boot deleted file mode 100644 index 57a97d3695..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/RnFail055.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -{-# LANGUAGE MultiParamTypeClasses,RankNTypes,ExistentialQuantification,DatatypeContexts #-} -module RnFail055 where - -f1 :: Float -> Int - -type S1 a b c = (a,b) - -type S2 a b = forall b. (a,b) - -type S3 t = [t] - -data T1 a b = T1 [a] [b] - -data (Eq a) => T2 a b = T2 a - -data T3 = T3 -data T3' = T3' - -data T4 b = T4 (forall a. b -> a) - -data T5 a = T5 a - -data T6 = T6 !Int - -data T7 a = forall b . T7 a - -class C1 a b where { m1 :: a -> b } -class C2 a b where { m2 :: a -> b } -class (Ord a, Eq a) => C3 a where { } diff --git a/testsuite/tests/ghc-regress/rename/should_fail/RnFail055_aux.hs b/testsuite/tests/ghc-regress/rename/should_fail/RnFail055_aux.hs deleted file mode 100644 index 4e1f12bf81..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/RnFail055_aux.hs +++ /dev/null @@ -1,3 +0,0 @@ -module RnFail055_aux where - -import {-# SOURCE #-} RnFail055 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/Rnfail040_A.hs b/testsuite/tests/ghc-regress/rename/should_fail/Rnfail040_A.hs deleted file mode 100644 index 6de0f88ac9..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/Rnfail040_A.hs +++ /dev/null @@ -1,2 +0,0 @@ -module Rnfail040_A( nub ) where - nub = True diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T1595a.hs b/testsuite/tests/ghc-regress/rename/should_fail/T1595a.hs deleted file mode 100644 index 5497a7a269..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T1595a.hs +++ /dev/null @@ -1,5 +0,0 @@ -module T1595a where - -a, b :: Integer -> Tpyo -a = undefined -b = undefined diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T1595a.stderr b/testsuite/tests/ghc-regress/rename/should_fail/T1595a.stderr deleted file mode 100644 index 3c9adca7f7..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T1595a.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -T1595a.hs:3:20: Not in scope: type constructor or class `Tpyo' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T2310.hs b/testsuite/tests/ghc-regress/rename/should_fail/T2310.hs deleted file mode 100644 index 6094b8e211..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T2310.hs +++ /dev/null @@ -1,5 +0,0 @@ -{-# OPTIONS_GHC -XScopedTypeVariables #-} - -module Foo where - -foo = let c = \ x :: a -> (x :: a) in co diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T2310.stderr b/testsuite/tests/ghc-regress/rename/should_fail/T2310.stderr deleted file mode 100644 index 6500eef1fc..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T2310.stderr +++ /dev/null @@ -1,10 +0,0 @@ - -T2310.hs:5:22: - Illegal result type signature `a' - Result signatures are no longer supported in pattern matches - In a lambda abstraction: \ x :: a -> (x :: a) - -T2310.hs:5:39: - Not in scope: `co' - Perhaps you meant one of these: - `c' (line 5), `cos' (imported from Prelude) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T2490.hs b/testsuite/tests/ghc-regress/rename/should_fail/T2490.hs deleted file mode 100644 index 31afc0987a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T2490.hs +++ /dev/null @@ -1,10 +0,0 @@ --- Trac #2490 -module ShouldFail where - --- All these sections are illegal - -f x = [ (`head` x, ()) - , (+ x, ()) - , ((), + x) - , ((), + x, ()) - , ((), x +) ] diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T2490.stderr b/testsuite/tests/ghc-regress/rename/should_fail/T2490.stderr deleted file mode 100644 index 15beadab1e..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T2490.stderr +++ /dev/null @@ -1,15 +0,0 @@ - -T2490.hs:6:10: - A section must be enclosed in parentheses thus: (`head` x) - -T2490.hs:7:10: - A section must be enclosed in parentheses thus: (+ x) - -T2490.hs:8:14: - A section must be enclosed in parentheses thus: (+ x) - -T2490.hs:9:14: - A section must be enclosed in parentheses thus: (+ x) - -T2490.hs:10:14: - A section must be enclosed in parentheses thus: (x +) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T2723.hs b/testsuite/tests/ghc-regress/rename/should_fail/T2723.hs deleted file mode 100644 index 74f11af778..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T2723.hs +++ /dev/null @@ -1,16 +0,0 @@ -{-# OPTIONS_GHC -fwarn-name-shadowing -XNamedFieldPuns -XRecordWildCards #-}
-module WildCard where
-
-data Record = Record {field1 :: Int, field2 :: Double}
-
-field3 :: Int
-field3 = 3
-
-test1 (Record {field1, field2}) = let test = 1 in field1
-
-test2 :: (Record, Int)
-test2 = let
- field1 = 10
- field2 = 10.0
- field3 = 8
- in (Record {..}, field3)
diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T2723.stderr b/testsuite/tests/ghc-regress/rename/should_fail/T2723.stderr deleted file mode 100644 index 7ede041658..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T2723.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -T2723.hs:15:5: - Warning: This binding for `field3' shadows the existing binding - defined at T2723.hs:7:1 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T2901.hs b/testsuite/tests/ghc-regress/rename/should_fail/T2901.hs deleted file mode 100644 index a703a5e53d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T2901.hs +++ /dev/null @@ -1,6 +0,0 @@ -{-# LANGUAGE DisambiguateRecordFields #-} --- Trac #2901 - -module T2901 where - -f = F.Foo { F.field = "" } diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T2901.stderr b/testsuite/tests/ghc-regress/rename/should_fail/T2901.stderr deleted file mode 100644 index 7b3e9d5145..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T2901.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -T2901.hs:6:5: Not in scope: data constructor `F.Foo' - -T2901.hs:6:13: - `F.field' is not a (visible) field of constructor `Foo' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T2993.hs b/testsuite/tests/ghc-regress/rename/should_fail/T2993.hs deleted file mode 100644 index 99f2a89ca1..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T2993.hs +++ /dev/null @@ -1,8 +0,0 @@ -{-# LANGUAGE TypeOperators #-} - --- Trac #2993 - -module T2993 where - -foo b a = a <$> b . b - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T2993.stderr b/testsuite/tests/ghc-regress/rename/should_fail/T2993.stderr deleted file mode 100644 index 0ba55ddd36..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T2993.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -T2993.hs:7:13: Not in scope: `<$>' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T3265.hs b/testsuite/tests/ghc-regress/rename/should_fail/T3265.hs deleted file mode 100644 index e938bbc34d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T3265.hs +++ /dev/null @@ -1,9 +0,0 @@ -{-# LANGUAGE MultiParamTypeClasses #-} - --- Test Trac #3265 - -module T3265 where - -data a :+: b = Left a | Right b - -class a :*: b where {} diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T3265.stderr b/testsuite/tests/ghc-regress/rename/should_fail/T3265.stderr deleted file mode 100644 index 37642ff16b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T3265.stderr +++ /dev/null @@ -1,8 +0,0 @@ - -T3265.hs:7:8: - Illegal declaration of a type or class operator `:+:' - Use -XTypeOperators to declare operators in type and declarations - -T3265.hs:9:9: - Illegal declaration of a type or class operator `:*:' - Use -XTypeOperators to declare operators in type and declarations diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T3792.hs b/testsuite/tests/ghc-regress/rename/should_fail/T3792.hs deleted file mode 100644 index e01efb9418..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T3792.hs +++ /dev/null @@ -1,4 +0,0 @@ -module T3792 where
-
-import Prelude( Prelude.map ) -- Illegal
-
diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T3792.stderr b/testsuite/tests/ghc-regress/rename/should_fail/T3792.stderr deleted file mode 100644 index 892fb11083..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T3792.stderr +++ /dev/null @@ -1,2 +0,0 @@ -
-T3792.hs:3:17: Illegal qualified name in import item: Prelude.map
diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T4042.hs b/testsuite/tests/ghc-regress/rename/should_fail/T4042.hs deleted file mode 100644 index 221b5519ef..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T4042.hs +++ /dev/null @@ -1,12 +0,0 @@ --- Test Trac #4042 - -module T4042 where - -f :: A -> A -f --- The above line is a naked Template Haskell splice --- When compiling without -XTemplateHaskell we don't --- want a confusing error messsage saying "A is not in scope" - -data A = A - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T4042.stderr b/testsuite/tests/ghc-regress/rename/should_fail/T4042.stderr deleted file mode 100644 index f8c7e433a6..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T4042.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -T4042.hs:6:1: Parse error: naked expression at top level diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T5211.hs b/testsuite/tests/ghc-regress/rename/should_fail/T5211.hs deleted file mode 100644 index 2d0e69af7b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T5211.hs +++ /dev/null @@ -1,16 +0,0 @@ -{-# OPTIONS_GHC -fwarn-unused-imports #-}
-module RedundantImport where
-
--- this import is redundant, but GHC does not spot it
-import qualified Foreign.Storable
-
-import Foreign.Storable (Storable, sizeOf, alignment, peek, poke, )
-import Foreign.Ptr (castPtr, )
-
-newtype T a = Cons a
-
-instance Storable a => Storable (T a) where
- sizeOf (Cons a) = sizeOf a
- alignment (Cons a) = alignment a
- peek = fmap Cons . peek . castPtr
- poke p (Cons a) = poke (castPtr p) a
diff --git a/testsuite/tests/ghc-regress/rename/should_fail/T5211.stderr b/testsuite/tests/ghc-regress/rename/should_fail/T5211.stderr deleted file mode 100644 index a33a02750c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/T5211.stderr +++ /dev/null @@ -1,5 +0,0 @@ -
-T5211.hs:5:1:
- Warning: The import of `Foreign.Storable' is redundant
- except perhaps to import instances from `Foreign.Storable'
- To import instances alone, use: import Foreign.Storable()
diff --git a/testsuite/tests/ghc-regress/rename/should_fail/all.T b/testsuite/tests/ghc-regress/rename/should_fail/all.T deleted file mode 100644 index 78d35ce37c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/all.T +++ /dev/null @@ -1,83 +0,0 @@ - -test('rnfail001', normal, compile_fail, ['']) -test('rnfail002', normal, compile_fail, ['']) -test('rnfail003', normal, compile_fail, ['']) -test('rnfail004', normal, compile_fail, ['']) -test('rnfail007', normal, compile_fail, ['']) -test('rnfail008', normal, compile_fail, ['']) -test('rnfail009', normal, compile_fail, ['']) -test('rnfail010', normal, compile_fail, ['']) -test('rnfail011', normal, compile_fail, ['']) -test('rnfail012', normal, compile_fail, ['']) -test('rnfail013', normal, compile_fail, ['']) - -test('rnfail015', normal, compile_fail, ['']) -test('rnfail016', normal, compile_fail, ['']) -test('rnfail017', normal, compile_fail, ['']) -test('rnfail018', normal, compile_fail, ['']) -test('rnfail019', normal, compile_fail, ['']) -test('rnfail020', normal, compile, ['']) # Succeeds now (Jan07) -test('rnfail021', normal, compile_fail, ['']) -test('rnfail022', normal, compile_fail, ['']) -test('rnfail023', normal, compile_fail, ['']) -test('rnfail024', normal, compile_fail, ['']) -test('rnfail025', normal, compile_fail, ['']) -test('rnfail026', normal, compile_fail, ['']) -test('rnfail027', normal, compile_fail, ['']) -test('rnfail028', normal, compile_fail, ['']) -test('rnfail029', normal, compile_fail, ['']) -test('rnfail030', normal, compile_fail, ['']) -test('rnfail031', normal, compile_fail, ['']) -test('rnfail032', normal, compile_fail, ['']) -test('rnfail033', normal, compile_fail, ['']) -test('rnfail034', normal, compile_fail, ['']) -test('rnfail035', normal, compile_fail, ['']) - -# Missing: -# test('rnfail037', normal, compile_fail, ['']) - -test('rnfail038', normal, compile_fail, ['']) -test('rnfail039', normal, compile_fail, ['']) - -test('rnfail040', - extra_clean(['Rnfail040_A.hi', 'Rnfail040_A.o']), - multimod_compile_fail, ['rnfail040', '-v0']) -test('rnfail041', normal, compile_fail, ['']) -test('rnfail042', normal, compile_fail, ['']) - -test('rnfail043', skip_if_no_ghci, compile_fail, ['-v0']) -test('rnfail044', normal, compile_fail, ['']) -test('rnfail045', normal, compile_fail, ['']) -test('rnfail046', normal, compile_fail, ['']) -test('rnfail047', - extra_clean(['RnFail047_A.hi-boot', 'RnFail047_A.o-boot']), - multimod_compile_fail, - ['rnfail047', '-v0']) -test('rnfail048', normal, compile_fail, ['']) -test('rnfail049', normal, compile_fail, ['']) -test('rnfail050', normal, compile_fail, ['']) -test('rnfail051', normal, compile_fail, ['']) -test('rnfail052', normal, compile_fail, ['']) -test('rnfail053', normal, compile_fail, ['']) -test('rnfail054', normal, compile_fail, ['']) -test('rnfail055', - extra_clean(['RnFail055.hi-boot', 'RnFail055.o-boot', - 'RnFail055_aux.hi', 'RnFail055_aux.o']), - multimod_compile_fail, - ['RnFail055','-v0']) -test('rnfail056', normal, compile_fail, ['']) - -test('rn_dup', normal, compile_fail, ['']) -test('T2310', normal, compile_fail, ['']) -test('T2490', normal, compile_fail, ['']) -test('T2901', normal, compile_fail, ['']) -test('T2723', normal, compile, ['']) # Warnings only -test('T2993', normal, compile_fail, ['']) -test('T3265', normal, compile_fail, ['']) -test('T3792', normal, compile_fail, ['']) -test('T4042', normal, compile_fail, ['']) - -test('mc13', normal, compile_fail, ['']) -test('mc14', normal, compile_fail, ['']) -test('T5211', normal, compile, ['']) # Warnings only -test('T1595a', normal, compile_fail, ['']) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/mc13.hs b/testsuite/tests/ghc-regress/rename/should_fail/mc13.hs deleted file mode 100644 index 2686005f7f..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/mc13.hs +++ /dev/null @@ -1,14 +0,0 @@ --- Test for transform list comp which should work for monad comp aswell: --- --- Test trying to use a function bound in the list comprehension as the transform function - -{-# OPTIONS_GHC -XRank2Types -XMonadComprehensions -XTransformListComp #-} - -module RnFail048 where - -functions :: [forall a. [a] -> [a]] -functions = [take 4, take 5] - -output = [() | f <- functions, then f] - - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/mc13.stderr b/testsuite/tests/ghc-regress/rename/should_fail/mc13.stderr deleted file mode 100644 index 82f8dd5f18..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/mc13.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -mc13.hs:12:37: Not in scope: `f' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/mc14.hs b/testsuite/tests/ghc-regress/rename/should_fail/mc14.hs deleted file mode 100644 index e2cf74cbf5..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/mc14.hs +++ /dev/null @@ -1,16 +0,0 @@ --- Test for transform list comp which should work for monad comp aswell: --- --- Test trying to use a function bound in the list comprehension as the group function - -{-# OPTIONS_GHC -XRank2Types -XMonadComprehensions -XTransformListComp #-} - -module RnFail049 where - -import Data.List(inits, tails) - -functions :: [forall a. [a] -> [[a]]] -functions = [inits, tails] - -output = [() | f <- functions, then group using f] - - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/mc14.stderr b/testsuite/tests/ghc-regress/rename/should_fail/mc14.stderr deleted file mode 100644 index 1eadb9d4b7..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/mc14.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -mc14.hs:14:49: Not in scope: `f' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rn_dup.hs b/testsuite/tests/ghc-regress/rename/should_fail/rn_dup.hs deleted file mode 100644 index 927e15ff32..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rn_dup.hs +++ /dev/null @@ -1,19 +0,0 @@ - - --- Test for top-level duplicates - -module Dup where - -data T = MkT | MkT - -data S = MkT - -data P = MkP { rf :: Int, rf :: Int } -data Q = MkQ { rf :: Int } - -class C a where - data CT a - f :: CT a -> a - data CT a - f :: CT a -> a - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rn_dup.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rn_dup.stderr deleted file mode 100644 index 88e2f86413..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rn_dup.stderr +++ /dev/null @@ -1,22 +0,0 @@ - -rn_dup.hs:9:10: - Multiple declarations of `Dup.MkT' - Declared at: rn_dup.hs:7:10 - rn_dup.hs:7:16 - rn_dup.hs:9:10 - -rn_dup.hs:12:16: - Multiple declarations of `Dup.rf' - Declared at: rn_dup.hs:11:16 - rn_dup.hs:11:27 - rn_dup.hs:12:16 - -rn_dup.hs:17:8: - Multiple declarations of `Dup.CT' - Declared at: rn_dup.hs:15:8 - rn_dup.hs:17:8 - -rn_dup.hs:18:3: - Multiple declarations of `Dup.f' - Declared at: rn_dup.hs:16:3 - rn_dup.hs:18:3 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail001.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail001.hs deleted file mode 100644 index f6758a1b2b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail001.hs +++ /dev/null @@ -1,3 +0,0 @@ -module ShouldFail where - -f x x = 2 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail001.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail001.stderr deleted file mode 100644 index 5414f93f27..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail001.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -rnfail001.hs:3:3: - Conflicting definitions for `x' - Bound at: rnfail001.hs:3:3 - rnfail001.hs:3:5 - In an equation for `f' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail001.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail001.stderr-hugs deleted file mode 100644 index 9103ec5b64..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail001.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail001.hs":3 - Repeated variable "x" in pattern diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail002.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail002.hs deleted file mode 100644 index ab387223fc..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail002.hs +++ /dev/null @@ -1,10 +0,0 @@ --- !!! rn001: super-simple set of bindings, --- !!! incl wildcard pattern-bindings and *duplicates* - -x = [] -y = [] -y = [] -_ = [] -_ = 1 -z = [] -_ = [] diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail002.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail002.stderr deleted file mode 100644 index db236f3073..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail002.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail002.hs:6:1: - Multiple declarations of `Main.y' - Declared at: rnfail002.hs:5:1 - rnfail002.hs:6:1 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail002.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail002.stderr-hugs deleted file mode 100644 index 46f18320e9..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail002.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail002.hs":5 - "y" multiply defined diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail003.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail003.hs deleted file mode 100644 index fb62bac074..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail003.hs +++ /dev/null @@ -1,4 +0,0 @@ --- !!! split definition of f (error) -f [] = [] -g x = x -f (x:xs) = [] diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail003.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail003.stderr deleted file mode 100644 index 0398a4d9c7..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail003.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail003.hs:4:1: - Multiple declarations of `Main.f' - Declared at: rnfail003.hs:2:1 - rnfail003.hs:4:1 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail003.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail003.stderr-hugs deleted file mode 100644 index 9ebafc363e..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail003.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail003.hs":2 - "f" multiply defined diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail004.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail004.hs deleted file mode 100644 index 90a97f894c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail004.hs +++ /dev/null @@ -1,8 +0,0 @@ --- !!! multiple definitions, but hidden in patterns -module Foo where - -f x = x - where - a = [] - (b,c,a) = ([],[],d) - [d,b,_] = ([],a,[]) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail004.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail004.stderr deleted file mode 100644 index edff58cf6f..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail004.stderr +++ /dev/null @@ -1,10 +0,0 @@ - -rnfail004.hs:6:5: - Conflicting definitions for `a' - Bound at: rnfail004.hs:6:5 - rnfail004.hs:7:10 - -rnfail004.hs:7:6: - Conflicting definitions for `b' - Bound at: rnfail004.hs:7:6 - rnfail004.hs:8:8 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail004.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail004.stderr-hugs deleted file mode 100644 index 3ad3a13469..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail004.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail004.hs":7 - "b" multiply defined diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail005.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail005.stderr deleted file mode 100644 index 9ad30e8755..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail005.stderr +++ /dev/null @@ -1,8 +0,0 @@ - -rnfail005.hs:4: - Conflicting definitions for: `v' - Defined at rnfail005.hs:20 - Defined at rnfail005.hs:19 - - -Compilation had errors diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail007.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail007.hs deleted file mode 100644 index 272abcf9fb..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail007.hs +++ /dev/null @@ -1,5 +0,0 @@ --- !!! Main module with no definition of main - -module Main where - -f x = x diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail007.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail007.stderr deleted file mode 100644 index a00dc892d5..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail007.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -rnfail007.hs:1:1: - The function `main' is not defined in module `Main' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail008.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail008.hs deleted file mode 100644 index 196214a840..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail008.hs +++ /dev/null @@ -1,19 +0,0 @@ --- !!! Class and instance decl - -module Test where - -class K a where - op1 :: a -> a -> a - op2 :: Int -> a - -instance K Int where - op1 a b = a+b - op2 x = x - -instance K Bool where - op1 a b = a - -- Pick up the default decl for op2 - -instance K [a] where - op3 a = a -- Oops! Isn't a class op of K - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail008.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail008.stderr deleted file mode 100644 index 91818fc656..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail008.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail008.hs:18:9: `op3' is not a (visible) method of class `K' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail008.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail008.stderr-hugs deleted file mode 100644 index cd6711a842..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail008.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail008.hs":18 - No member "op3" in class "K" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail009.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail009.hs deleted file mode 100644 index 1557f48c7b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail009.hs +++ /dev/null @@ -1,5 +0,0 @@ -module Foo where - -data F = A | B - -data G = A | C diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail009.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail009.stderr deleted file mode 100644 index 9cddc115d6..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail009.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail009.hs:5:10: - Multiple declarations of `Foo.A' - Declared at: rnfail009.hs:3:10 - rnfail009.hs:5:10 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail009.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail009.stderr-hugs deleted file mode 100644 index 2775982760..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail009.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail009.hs":3 - Multiple declarations for data constructor "A" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail010.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail010.hs deleted file mode 100644 index d5e51ed4fd..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail010.hs +++ /dev/null @@ -1,6 +0,0 @@ - -f x = 2 - -g x = 6 - -f x = 3 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail010.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail010.stderr deleted file mode 100644 index 0855b4b731..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail010.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail010.hs:6:1: - Multiple declarations of `Main.f' - Declared at: rnfail010.hs:2:1 - rnfail010.hs:6:1 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail010.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail010.stderr-hugs deleted file mode 100644 index 1a35934d4c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail010.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail010.hs":2 - "f" multiply defined diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail011.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail011.hs deleted file mode 100644 index b342618e15..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail011.hs +++ /dev/null @@ -1,6 +0,0 @@ - -type A = Int - -type B = Bool - -type A = [Bool] diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail011.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail011.stderr deleted file mode 100644 index d76a63a410..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail011.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail011.hs:6:6: - Multiple declarations of `Main.A' - Declared at: rnfail011.hs:2:6 - rnfail011.hs:6:6 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail011.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail011.stderr-hugs deleted file mode 100644 index 3ed800c263..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail011.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail011.hs":6 - Multiple declarations of type constructor "A" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail012.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail012.hs deleted file mode 100644 index 725b0d1632..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail012.hs +++ /dev/null @@ -1,9 +0,0 @@ - -class A a where - op1 :: a - -class B a where - op2 :: b -> b - -class A a where - op3 :: a diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail012.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail012.stderr deleted file mode 100644 index 93bfec9346..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail012.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail012.hs:8:7: - Multiple declarations of `Main.A' - Declared at: rnfail012.hs:2:7 - rnfail012.hs:8:7 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail012.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail012.stderr-hugs deleted file mode 100644 index 5908cb6f67..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail012.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail012.hs":8 - Multiple declarations of class "A" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail013.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail013.hs deleted file mode 100644 index 4d30ded185..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail013.hs +++ /dev/null @@ -1,9 +0,0 @@ --- !!! Conflicting constructors from two data type decls - -module Foo where - -data T1 = MkT Int - -data T2 = MkT Bool - -f (MkT x) = x diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail013.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail013.stderr deleted file mode 100644 index 761f2f0a0e..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail013.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail013.hs:7:11: - Multiple declarations of `Foo.MkT' - Declared at: rnfail013.hs:5:11 - rnfail013.hs:7:11 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail013.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail013.stderr-hugs deleted file mode 100644 index 3342f19b3c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail013.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail013.hs":5 - Multiple declarations for data constructor "MkT" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail015.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail015.hs deleted file mode 100644 index 20f9934f4b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail015.hs +++ /dev/null @@ -1,20 +0,0 @@ -module ShouldFail where - --- !!! duplicate constructors in datatype --- (bug report from Alex Ferguson, c. 2.06) - -data Token - = TokNewline - | TokLiteral - | TokCount - | TokCheck - | TokIs - | TokDeref - | TokFind - | TokLiteral -- Duplicated! - | TokThe - - deriving Show - -main = print TokCount - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail015.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail015.stderr deleted file mode 100644 index bf1e382f6c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail015.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail015.hs:14:9: - Multiple declarations of `ShouldFail.TokLiteral' - Declared at: rnfail015.hs:8:9 - rnfail015.hs:14:9 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail015.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail015.stderr-hugs deleted file mode 100644 index a91ae7cb04..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail015.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail015.hs":7 - Multiple declarations for data constructor "TokLiteral" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail016.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail016.hs deleted file mode 100644 index 1fa71c583a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail016.hs +++ /dev/null @@ -1,8 +0,0 @@ -module ShouldFail where - --- !!! Pattern syntax in expressions - -f x = x @ x -g x = ~ x -h x = _ - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail016.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail016.stderr deleted file mode 100644 index ed9debda77..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail016.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -rnfail016.hs:5:7: Pattern syntax in expression context: x@x - -rnfail016.hs:6:7: Pattern syntax in expression context: ~x - -rnfail016.hs:7:7: Pattern syntax in expression context: _ diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail016.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail016.stderr-hugs deleted file mode 100644 index 76c2827039..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail016.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail016.hs":5 - Illegal `@' in expression diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail017.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail017.hs deleted file mode 100644 index 327a9d6abd..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail017.hs +++ /dev/null @@ -1,17 +0,0 @@ -module ShouldFail where - --- !!! Precedence of unary negation - -f1 x y = x + -y -- Fails -f2 x y = x * -y -- Fails - - -f3 x y = -x + y -- OK: means (-x) + y - -- since - is left associative - -f4 x y = - x*y -- OK: means -(x*y) - -- since - binds less tightly than * - -f5 x y = x >= -y -- OK means x >= (-y) - - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail017.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail017.stderr deleted file mode 100644 index f04b1d0990..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail017.stderr +++ /dev/null @@ -1,8 +0,0 @@ - -rnfail017.hs:5:10: - Precedence parsing error - cannot mix `+' [infixl 6] and prefix `-' [infixl 6] in the same infix expression - -rnfail017.hs:6:10: - Precedence parsing error - cannot mix `*' [infixl 7] and prefix `-' [infixl 6] in the same infix expression diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail018.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail018.hs deleted file mode 100644 index 1b3ad82762..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail018.hs +++ /dev/null @@ -1,15 +0,0 @@ -{-# LANGUAGE MultiParamTypeClasses, ExplicitForAll #-} - -module ShouldFail where - --- !!! For-all with parens - --- This one crashed ghc-4.04proto; the parens after the for-all fooled it - -class Monad m => StateMonad s m where - getState :: m s - -setState0 :: forall b. (StateMonad (a,b) m => m a) -setState0 = getState >>= \ (l,_r) -> return l - - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail018.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail018.stderr deleted file mode 100644 index 3bae3eb527..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail018.stderr +++ /dev/null @@ -1,8 +0,0 @@ - -rnfail018.hs:12:37: Not in scope: type variable `a' - -rnfail018.hs:12:42: Not in scope: type variable `m' - -rnfail018.hs:12:47: Not in scope: type variable `m' - -rnfail018.hs:12:49: Not in scope: type variable `a' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail019.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail019.hs deleted file mode 100644 index ec97efe1cf..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail019.hs +++ /dev/null @@ -1,7 +0,0 @@ -module ShouldFail where - --- !!! Section with with a bad precedence - -f x y = (x:y:) - --- GHC 4.04 (as released) let this by, but it's a precedence error. diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail019.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail019.stderr deleted file mode 100644 index f990e2d2cd..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail019.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -rnfail019.hs:5:9: - The operator `:' [infixr 5] of a section - must have lower precedence than that of the operand, - namely `:' [infixr 5] - in the section: `x : y :' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail019.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail019.stderr-hugs deleted file mode 100644 index 1e09963ae1..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail019.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail019.hs":5 - Syntax error in expression (unexpected `)') diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail020.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail020.hs deleted file mode 100644 index decd2e80ad..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail020.hs +++ /dev/null @@ -1,21 +0,0 @@ -{-# LANGUAGE ScopedTypeVariables #-} - --- !!! Error messages with scoped type variables - -module Foo where - -data Set a = Set a - -unionSetB :: Eq a => Set a -> Set a -> Set a -unionSetB (s1 :: Set a) s2 = unionSets s1 s2 - where - unionSets :: Eq a => Set a -> Set a -> Set a - unionSets a b = a - - -{- In GHC 4.04 this gave the terrible message: - - None of the type variable(s) in the constraint `Eq a' - appears in the type `Set a -> Set a -> Set a' - In the type signature for `unionSets' --} diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail020.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail020.stderr deleted file mode 100644 index e69de29bb2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail020.stderr +++ /dev/null diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail021.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail021.hs deleted file mode 100644 index a8062967e1..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail021.hs +++ /dev/null @@ -1,6 +0,0 @@ --- !!! Qualified names in binding positions are rejected - -module Foo where - -(Baz.f, x) = True - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail021.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail021.stderr deleted file mode 100644 index 1cf26eca36..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail021.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail021.hs:5:2: Qualified name in binding position: Baz.f diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail021.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail021.stderr-hugs deleted file mode 100644 index cb4c6c422a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail021.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail021.hs":5 - Syntax error in declaration (unexpected symbol "Baz.f") diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail022.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail022.hs deleted file mode 100644 index 05c842e770..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail022.hs +++ /dev/null @@ -1,9 +0,0 @@ --- !!! Check that 'qualified' doesn't bring the unqual'ed name into scope. -module ShouldFail where - -import qualified Data.List as L ( intersperse ) - -x = L.intersperse - -y = intersperse - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail022.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail022.stderr deleted file mode 100644 index 011d6790d7..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail022.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -rnfail022.hs:8:5: - Not in scope: `intersperse' - Perhaps you meant `L.intersperse' (imported from Data.List) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail022.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail022.stderr-hugs deleted file mode 100644 index b58124c912..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail022.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail022.hs":8 - Undefined variable "intersperse" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail023.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail023.hs deleted file mode 100644 index bf7c4a2f20..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail023.hs +++ /dev/null @@ -1,15 +0,0 @@ --- !!! Check that type signatures and pragmas that --- !!! don't have a "parent" are correctly reported - -module ShouldFail where - --- Top level test -f :: Int -> Int -{-# INLINE f #-} - --- Nested test -h :: Int -> Int -- This one is ok -h x = x - where - g :: Int -> Int -- Bogus - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail023.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail023.stderr deleted file mode 100644 index ec9d81ab76..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail023.stderr +++ /dev/null @@ -1,9 +0,0 @@ - -rnfail023.hs:7:1: - The type signature for `f' lacks an accompanying binding - -rnfail023.hs:8:12: - The INLINE pragma for `f' lacks an accompanying binding - -rnfail023.hs:14:7: - The type signature for `g' lacks an accompanying binding diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail023.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail023.stderr-hugs deleted file mode 100644 index 1f8191015d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail023.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail023.hs":7 - Missing binding for variable "f" in type signature diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail024.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail024.hs deleted file mode 100644 index 4663319ce9..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail024.hs +++ /dev/null @@ -1,6 +0,0 @@ -module ShouldFail where - -sig_without_a_defn :: a -> b - -f :: a -> b -f = sig_without_a_defn diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail024.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail024.stderr deleted file mode 100644 index 19b9f33921..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail024.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -rnfail024.hs:3:1: - The type signature for `sig_without_a_defn' - lacks an accompanying binding - -rnfail024.hs:6:5: Not in scope: `sig_without_a_defn' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail024.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail024.stderr-hugs deleted file mode 100644 index 1b89d6825a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail024.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail024.hs":3 - Missing binding for variable "sig_without_a_defn" in type signature diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail025.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail025.hs deleted file mode 100644 index 42cf3d76f5..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail025.hs +++ /dev/null @@ -1,6 +0,0 @@ -module ShouldFail where - -sig_without_a_defn :: a -> b - --- We don't even refer to the variable. This compiled without error --- in ghc-4.08. diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail025.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail025.stderr deleted file mode 100644 index 4c2e25a07c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail025.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -rnfail025.hs:3:1: - The type signature for `sig_without_a_defn' - lacks an accompanying binding diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail025.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail025.stderr-hugs deleted file mode 100644 index 7a2bcb5945..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail025.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail025.hs":3 - Missing binding for variable "sig_without_a_defn" in type signature diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail026.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail026.hs deleted file mode 100644 index 3256876e68..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail026.hs +++ /dev/null @@ -1,19 +0,0 @@ -{-# LANGUAGE Rank2Types, FlexibleInstances #-} - --- This one made ghc-4.08 crash --- rename/RnEnv.lhs:239: Non-exhaustive patterns in function get_tycon_key --- The type in the Monad instance is utterly bogus, of course - -module ShouldCompile ( Set ) where - - -data Set a = Set [a] - deriving (Eq, Ord, Read, Show) - -instance Functor Set where - f `fmap` (Set xs) = Set $ f `fmap` xs - -instance Monad (forall a. Eq a => Set a) where - return x = Set [x] - -instance Eq (forall a. [a]) where diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail026.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail026.stderr deleted file mode 100644 index 6aa899b36d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail026.stderr +++ /dev/null @@ -1,10 +0,0 @@ -
-rnfail026.hs:16:17:
- Kind mis-match
- The first argument of `Monad' should have kind `* -> *',
- but `Set a' has kind `*'
- In the instance declaration for `Monad (forall a. Eq a => Set a)'
-
-rnfail026.hs:19:10:
- Illegal polymorphic or qualified type: forall a. [a]
- In the instance declaration for `Eq (forall a. [a])'
diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail026.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail026.stderr-hugs deleted file mode 100644 index 245ba83337..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail026.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail026.hs":16 - Syntax error in type expression (unexpected keyword "forall") diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail027.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail027.hs deleted file mode 100644 index fc6d8c87d4..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail027.hs +++ /dev/null @@ -1,5 +0,0 @@ --- !!! infix declarations for unknown identifiers aren't allowed - -module ShouldFail where - -infixl 9 `wibble` diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail027.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail027.stderr deleted file mode 100644 index 31214a1a42..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail027.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -rnfail027.hs:5:10: - The fixity signature for `wibble' lacks an accompanying binding diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail027.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail027.stderr-hugs deleted file mode 100644 index df1f912339..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail027.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail027.hs":5 - Cannot find binding for operator "wibble" in fixity declaration diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail028.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail028.hs deleted file mode 100644 index 13e2237aba..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail028.hs +++ /dev/null @@ -1,2 +0,0 @@ --- !!! illegal to export a module we haven't imported. -module ShouldFail ( module List ) where diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail028.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail028.stderr deleted file mode 100644 index f09cda3f33..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail028.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail028.hs:2:21: The export item `module List' is not imported diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail028.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail028.stderr-hugs deleted file mode 100644 index d1aa3d5903..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail028.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail028.hs" - Unknown module "List" exported from module "ShouldFail" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail029.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail029.hs deleted file mode 100644 index 8d8608e41f..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail029.hs +++ /dev/null @@ -1,4 +0,0 @@ --- !!! conflicting exports for a function name -module ShouldFail ( Data.List.map, module ShouldFail ) where -import qualified Data.List -map = undefined diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail029.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail029.stderr deleted file mode 100644 index e22f4c33ae..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail029.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail029.hs:2:36: - Conflicting exports for `map': - `Data.List.map' exports `Data.List.map' imported from Data.List at rnfail029.hs:3:1-26 - `module ShouldFail' exports `ShouldFail.map' defined at rnfail029.hs:4:1 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail029.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail029.stderr-hugs deleted file mode 100644 index a2f0265916..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail029.stderr-hugs +++ /dev/null @@ -1,2 +0,0 @@ -ERROR "rnfail029.hs" - Conflicting exports of entity "map" -*** Could refer to Hugs.Prelude.map or ShouldFail.map diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail030.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail030.hs deleted file mode 100644 index 23c54c8feb..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail030.hs +++ /dev/null @@ -1,3 +0,0 @@ --- !!! check that unqualified imports don't bring qualified names into scope -module ShouldFail ( Data.List.map ) where -import Data.List () diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail030.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail030.stderr deleted file mode 100644 index 749206a814..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail030.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail030.hs:2:21: Not in scope: `Data.List.map' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail030.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail030.stderr-hugs deleted file mode 100644 index eb846ddfac..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail030.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail030.hs" - Unknown entity "List.map" exported from module "ShouldFail" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail031.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail031.hs deleted file mode 100644 index ce86cf935a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail031.hs +++ /dev/null @@ -1,3 +0,0 @@ --- !!! check that qualified imports can be restricted to certain names -module ShouldFail ( Data.List.map ) where -import qualified Data.List ( foldr ) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail031.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail031.stderr deleted file mode 100644 index ad04461dc3..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail031.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail031.hs:2:21: Not in scope: `Data.List.map' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail031.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail031.stderr-hugs deleted file mode 100644 index 2036937995..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail031.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail031.hs" - Unknown entity "List.map" exported from module "ShouldFail" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail032.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail032.hs deleted file mode 100644 index 2970030ab0..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail032.hs +++ /dev/null @@ -1,3 +0,0 @@ --- !!! check that hiding works with qualified imports -module ShouldFail ( Data.List.map ) where -import qualified Data.List hiding ( map ) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail032.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail032.stderr deleted file mode 100644 index ea80202dd0..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail032.stderr +++ /dev/null @@ -1,7 +0,0 @@ - -rnfail032.hs:2:21: - Not in scope: `Data.List.map' - Perhaps you meant one of these: - `Data.List.zip' (imported from Data.List), - `Data.List.sum' (imported from Data.List), - `Data.List.all' (imported from Data.List) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail032.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail032.stderr-hugs deleted file mode 100644 index fef6e8e210..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail032.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail032.hs" - Unknown entity "List.map" exported from module "ShouldFail" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail033.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail033.hs deleted file mode 100644 index 7d8b4c4fdc..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail033.hs +++ /dev/null @@ -1,3 +0,0 @@ --- !!! check that hiding on an unqualified import also hides the qualified name -module ShouldFail ( Data.List.map ) where -import Data.List hiding ( map ) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail033.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail033.stderr deleted file mode 100644 index c9abd0f87a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail033.stderr +++ /dev/null @@ -1,7 +0,0 @@ - -rnfail033.hs:2:21: - Not in scope: `Data.List.map' - Perhaps you meant one of these: - `Data.List.zip' (imported from Data.List), - `Data.List.sum' (imported from Data.List), - `Data.List.all' (imported from Data.List) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail033.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail033.stderr-hugs deleted file mode 100644 index d651e56ebe..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail033.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail033.hs" - Unknown entity "List.map" exported from module "ShouldFail" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail034.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail034.hs deleted file mode 100644 index 25d9189472..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail034.hs +++ /dev/null @@ -1,4 +0,0 @@ --- !!! qualified names aren't allowed in local binds either --- (Haskell 98 (revised) section 5.5.1) -module M where -g x = let M.y = x + 1 in M.y diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail034.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail034.stderr deleted file mode 100644 index 2ec0a3b8e5..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail034.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -rnfail034.hs:4:11: Qualified name in binding position: M.y - -rnfail034.hs:4:26: - Not in scope: `M.y' - Perhaps you meant `M.g' (line 4) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail034.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail034.stderr-hugs deleted file mode 100644 index e1e0a9a566..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail034.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail034.hs":4 - Syntax error in expression (unexpected symbol "M.y") diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail035.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail035.hs deleted file mode 100644 index 4f57c06374..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail035.hs +++ /dev/null @@ -1,3 +0,0 @@ --- !!! can't name a constructor in an export list -module ShouldFail ( C ) where -data T = C diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail035.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail035.stderr deleted file mode 100644 index 83eb2d85e3..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail035.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail035.hs:2:21: Not in scope: type constructor or class `C' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail035.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail035.stderr-hugs deleted file mode 100644 index 105e56f36c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail035.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail035.hs" - Illegal export of a lone data constructor "C" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail038.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail038.hs deleted file mode 100644 index b96000a873..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail038.hs +++ /dev/null @@ -1,4 +0,0 @@ --- !!! It is now illegal to import a module hiding --- !!! an entity that it doesn't export -module ShouldCompile where -import Data.List hiding ( wibble ) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail038.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail038.stderr deleted file mode 100644 index 71c31d6d1b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail038.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail038.hs:4:27: Module `Data.List' does not export `wibble' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail038.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail038.stderr-hugs deleted file mode 100644 index ee3487e0d4..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail038.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail038.hs" - Unknown entity "wibble" hidden from module "List" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail039.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail039.hs deleted file mode 100644 index 428d8d9716..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail039.hs +++ /dev/null @@ -1,12 +0,0 @@ --- !!! Checking that qualified method names are ILLEGAL --- in the binding position instance body. -module ShouldFail where - -import Prelude hiding (Eq, (==)) -import Prelude as P (Eq,(==)) - -data Foo = Foo Int Integer - -instance P.Eq Foo where - (Foo a1 b1) P.== (Foo a2 b2) = a1 P.== a2 && b1 P.== b2 - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail039.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail039.stderr deleted file mode 100644 index 6283dccd33..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail039.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail039.hs:11:15: Qualified name in binding position: P.== diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail039.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail039.stderr-hugs deleted file mode 100644 index 43c760998e..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail039.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail039.hs":11 - Syntax error in declaration (unexpected symbol "P.==") diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail040.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail040.hs deleted file mode 100644 index 5ba4d41bec..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail040.hs +++ /dev/null @@ -1,11 +0,0 @@ --- This one should fail, because it exports --- both Data.List:nub and Rnfail040_A:nub --- --- Data.List:nub is in scope as M.nub and nub --- Rnfail040_A:nub is in scope as T.nub, M.nub, and nub - -module M1 (module M) where - - import qualified Rnfail040_A as M -- M.nub - import Data.List as M -- M.nub nub - import Rnfail040_A as T -- T.nub nub diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail040.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail040.stderr deleted file mode 100644 index 25e3c1153f..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail040.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -rnfail040.hs:7:12: - Conflicting exports for `nub': - `module M' exports `M.nub' imported from Data.List at rnfail040.hs:10:2-22 - `module M' exports `T.nub' imported from Rnfail040_A at rnfail040.hs:11:2-24 - (defined at Rnfail040_A.hs:2:3) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail040.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail040.stderr-hugs deleted file mode 100644 index 913c1b455c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail040.stderr-hugs +++ /dev/null @@ -1,2 +0,0 @@ -ERROR "rnfail040.hs" - Conflicting exports of entity "nub" -*** Could refer to Data.List.nub or Rnfail040_A.nub diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail041.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail041.hs deleted file mode 100644 index 57f79705b5..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail041.hs +++ /dev/null @@ -1,7 +0,0 @@ -f = 3 -g = 3 - -h :: Int -j :: Int - - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail041.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail041.stderr deleted file mode 100644 index 0c5c60d4d2..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail041.stderr +++ /dev/null @@ -1,6 +0,0 @@ - -rnfail041.hs:4:1: - The type signature for `h' lacks an accompanying binding - -rnfail041.hs:5:1: - The type signature for `j' lacks an accompanying binding diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail041.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail041.stderr-hugs deleted file mode 100644 index 2b8745ec9b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail041.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail041.hs":4 - Missing binding for variable "h" in type signature diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail042.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail042.hs deleted file mode 100644 index 16c01f3450..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail042.hs +++ /dev/null @@ -1,9 +0,0 @@ --- Uses of built-in syntax should provoke a decent error message - -module ShouldFail where - -data T0 = () -data T3= (,,,) -data Nil = [] -data List = Int : Bool - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail042.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail042.stderr deleted file mode 100644 index 9e030d7bf8..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail042.stderr +++ /dev/null @@ -1,8 +0,0 @@ - -rnfail042.hs:5:11: Illegal binding of built-in syntax: () - -rnfail042.hs:6:10: Illegal binding of built-in syntax: (,,,) - -rnfail042.hs:7:12: Illegal binding of built-in syntax: [] - -rnfail042.hs:8:17: Illegal binding of built-in syntax: : diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail042.stderr-hugs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail042.stderr-hugs deleted file mode 100644 index 66c517d13c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail042.stderr-hugs +++ /dev/null @@ -1 +0,0 @@ -ERROR "rnfail042.hs":6 - Syntax error in data type declaration (unexpected `;', possibly due to bad layout) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail043.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail043.hs deleted file mode 100644 index 492cebb516..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail043.hs +++ /dev/null @@ -1,10 +0,0 @@ -{-# LANGUAGE TemplateHaskell #-}
-
--- Duplicate bindings introduced one at a time with TH
-module ShouldFail where
-
-f x = x
-
-$([d| h x = x |])
-
-f x = x
diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail043.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail043.stderr deleted file mode 100644 index 428c1944dc..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail043.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail043.hs:10:1: - Multiple declarations of `f' - Declared at: rnfail043.hs:6:1 - rnfail043.hs:10:1 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail044.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail044.hs deleted file mode 100644 index ed72b9abae..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail044.hs +++ /dev/null @@ -1,8 +0,0 @@ --- Renamer test --- The ambiguity is between the Prelude import and the defn --- of splitAt. The import of Data.List has nothing to do with it. - -module A ( splitAt ) where - - import qualified Data.List - splitAt = undefined diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail044.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail044.stderr deleted file mode 100644 index 2b27ad4fea..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail044.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail044.hs:5:12: - Ambiguous occurrence `splitAt' - It could refer to either `A.splitAt', defined at rnfail044.hs:8:3 - or `Data.List.splitAt', imported from Prelude diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail045.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail045.hs deleted file mode 100644 index 641bec0a6a..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail045.hs +++ /dev/null @@ -1,9 +0,0 @@ --- These crashed GHC 6.4.2 - -module ShouldFail where - -x `op1` y = True -op1 x = False - -op2 x = False -x `op2` y = True diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail045.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail045.stderr deleted file mode 100644 index d8c80008c0..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail045.stderr +++ /dev/null @@ -1,10 +0,0 @@ - -rnfail045.hs:5:1: - Equations for `op1' have different numbers of arguments - rnfail045.hs:5:1-16 - rnfail045.hs:6:1-13 - -rnfail045.hs:8:1: - Equations for `op2' have different numbers of arguments - rnfail045.hs:8:1-13 - rnfail045.hs:9:1-16 diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail046.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail046.hs deleted file mode 100644 index f8aa7a734c..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail046.hs +++ /dev/null @@ -1,4 +0,0 @@ --- Qualified name in binding position
-module ShouldFail where
-
-data Test = Map.Map Int Int
diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail046.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail046.stderr deleted file mode 100644 index 49cfe356f4..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail046.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail046.hs:4:13: Qualified name in binding position: Map.Map diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail047.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail047.hs deleted file mode 100644 index 55bd0b8d68..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail047.hs +++ /dev/null @@ -1,9 +0,0 @@ - --- trac #924: RnFail047_A.hs-boot exports more than RnFail047_A.hs - -module RnFail047 where - -import {-# SOURCE #-} RnFail047_A - -v = x - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail047.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail047.stderr deleted file mode 100644 index 380bbd906b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail047.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -RnFail047_A.hs-boot:5:1: - RnFail047_A.y is exported by the hs-boot file, but not exported by the module diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail048.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail048.hs deleted file mode 100644 index d1c8d73eb0..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail048.hs +++ /dev/null @@ -1,13 +0,0 @@ --- Trac #1888 --- Pretty printing for pragmas - -module ShouldFail where - -{-# NOINLINE[1] foo #-} -{-# NOINLINE[~2] foo #-} -{-# NOINLINE foo #-} -{-# INLINE[1] foo #-} -{-# INLINE[~2] foo #-} -{-# INLINE foo #-} - -foo n = foo (n+1) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail048.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail048.stderr deleted file mode 100644 index 885229d745..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail048.stderr +++ /dev/null @@ -1,9 +0,0 @@ - -rnfail048.hs:11:1: - Duplicate INLINE pragma: - rnfail048.hs:11:1-18: {-# INLINE foo #-} - rnfail048.hs:10:1-22: {-# INLINE[~2] foo #-} - rnfail048.hs:9:1-21: {-# INLINE[1] foo #-} - rnfail048.hs:8:1-20: {-# NOINLINE foo #-} - rnfail048.hs:7:1-24: {-# NOINLINE[~2] foo #-} - rnfail048.hs:6:1-23: {-# NOINLINE[1] foo #-} diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail049.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail049.hs deleted file mode 100644 index 7f4b6c7842..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail049.hs +++ /dev/null @@ -1,14 +0,0 @@ --- Test trying to use a function bound in the list comprehension as the group function
-
-{-# OPTIONS_GHC -XRank2Types -XTransformListComp #-}
-
-module RnFail049 where
-
-import Data.List(inits, tails)
-
-functions :: [forall a. [a] -> [[a]]]
-functions = [inits, tails]
-
-output = [() | f <- functions, then group using f]
-
-
diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail049.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail049.stderr deleted file mode 100644 index 6b753fbf2d..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail049.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail049.hs:12:49: Not in scope: `f' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail050.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail050.hs deleted file mode 100644 index 0c3b262a0f..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail050.hs +++ /dev/null @@ -1,12 +0,0 @@ --- Test trying to use a function bound in the list comprehension as the transform function - -{-# OPTIONS_GHC -XRank2Types -XTransformListComp #-} - -module RnFail048 where - -functions :: [forall a. [a] -> [a]] -functions = [take 4, take 5] - -output = [() | f <- functions, then f] - - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail050.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail050.stderr deleted file mode 100644 index d097fc5b44..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail050.stderr +++ /dev/null @@ -1,2 +0,0 @@ - -rnfail050.hs:10:37: Not in scope: `f' diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail051.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail051.hs deleted file mode 100644 index 227e040033..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail051.hs +++ /dev/null @@ -1,11 +0,0 @@ --- trac #2033: This used to fail when the renamer didn't check for a view --- /pattern/ being used in an /expression/ context - -module RnFail051 where - -main :: IO () -main = wrapper (_ -> putStrLn "_") - -wrapper :: (String -> IO ()) -> IO () -wrapper f = f "" - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail051.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail051.stderr deleted file mode 100644 index 36eccc5724..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail051.stderr +++ /dev/null @@ -1,3 +0,0 @@ - -rnfail051.hs:7:17: - Pattern syntax in expression context: _ -> putStrLn "_" diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail052.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail052.hs deleted file mode 100644 index 63a0dfd6d1..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail052.hs +++ /dev/null @@ -1,15 +0,0 @@ --- Error messages when you use 'forall' *without* the RankN flags --- Test cases similar to Trac #2114 - -module ShouldFail where - -f :: forall a. a->a -f = error "ur" - -g :: Int -> (forall a. a-> a) -> Int -g = error "ur" - -data S = MkS (forall a. a->a) - -- This one complains about 'a' and 'forall' not in scope - -- because they aren't implicitly quantified, - -- whereas implicit quantification deals with the first two diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail052.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail052.stderr deleted file mode 100644 index f6d0929bca..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail052.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail052.hs:6:14: - 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/rename/should_fail/rnfail053.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail053.hs deleted file mode 100644 index dbc219271b..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail053.hs +++ /dev/null @@ -1,6 +0,0 @@ --- Test Trac #2114 (error message) - -module ShouldFail where - -data T = forall a. MkT a - diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail053.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail053.stderr deleted file mode 100644 index 47f44c4464..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail053.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -rnfail053.hs:5:10: - Not a data constructor: `forall' - Perhaps you intended to use -XExistentialQuantification diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail054.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail054.hs deleted file mode 100644 index f83a0f9970..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail054.hs +++ /dev/null @@ -1,6 +0,0 @@ --- Test for trac #2141 - -module Foo where - -foo :: () -> () -foo x = x { foo = 1 } diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail054.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail054.stderr deleted file mode 100644 index ab952aadeb..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail054.stderr +++ /dev/null @@ -1,5 +0,0 @@ - -rnfail054.hs:6:13: - `foo' is not a record selector - In the expression: x {foo = 1} - In an equation for `foo': foo x = x {foo = 1} diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail055.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail055.stderr deleted file mode 100644 index 7c30e7828e..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail055.stderr +++ /dev/null @@ -1,107 +0,0 @@ - -RnFail055.hs:1:73: - Warning: -XDatatypeContexts is deprecated: It was widely considered a misfeature, and has been removed from the Haskell language. - -RnFail055.hs-boot:1:73: - Warning: -XDatatypeContexts is deprecated: It was widely considered a misfeature, and has been removed from the Haskell language. - -RnFail055.hs-boot:4:1: - Identifier `f1' has conflicting definitions in the module and its hs-boot file - Main module: f1 :: Int -> Float - Boot file: f1 :: Float -> Int - -RnFail055.hs-boot:6:6: - Type constructor `S1' has conflicting definitions in the module and its hs-boot file - Main module: type S1 a b - = (a, b) - FamilyInstance: none - Boot file: type S1 a b c - = (a, b) - FamilyInstance: none - -RnFail055.hs-boot:8:6: - Type constructor `S2' has conflicting definitions in the module and its hs-boot file - Main module: type S2 a b - = forall a. (a, b) - FamilyInstance: none - Boot file: type S2 a b - = forall b. (a, b) - FamilyInstance: none - -RnFail055.hs-boot:12:6: - Type constructor `T1' has conflicting definitions in the module and its hs-boot file - Main module: data T1 a b - RecFlag Recursive - = T1 :: forall a b. [b] -> [a] -> T1 a b Stricts: _ _ - FamilyInstance: none - Boot file: data T1 a b - RecFlag NonRecursive - = T1 :: forall a b. [a] -> [b] -> T1 a b Stricts: _ _ - FamilyInstance: none - -RnFail055.hs-boot:14:16: - Type constructor `T2' has conflicting definitions in the module and its hs-boot file - Main module: data Eq b => T2 a b - RecFlag Recursive - = T2 :: forall a b. a -> T2 a b Stricts: _ - FamilyInstance: none - Boot file: data Eq a => T2 a b - RecFlag NonRecursive - = T2 :: forall a b. a -> T2 a b Stricts: _ - FamilyInstance: none - -RnFail055.hs-boot:16:11: - T3 is exported by the hs-boot file, but not exported by the module - -RnFail055.hs-boot:17:12: - T3' is exported by the hs-boot file, but not exported by the module - -RnFail055.hs-boot:21:6: - Type constructor `T5' has conflicting definitions in the module and its hs-boot file - Main module: data T5 a - RecFlag Recursive - = T5 :: forall a. a -> T5 a Stricts: _ Fields: field5 - FamilyInstance: none - Boot file: data T5 a - RecFlag NonRecursive - = T5 :: forall a. a -> T5 a Stricts: _ - FamilyInstance: none - -RnFail055.hs-boot:23:6: - Type constructor `T6' has conflicting definitions in the module and its hs-boot file - Main module: data T6 - RecFlag Recursive - = T6 :: Int -> T6 Stricts: _ - FamilyInstance: none - Boot file: data T6 - RecFlag NonRecursive - = T6 :: Int -> T6 HasWrapper Stricts: ! - FamilyInstance: none - -RnFail055.hs-boot:25:6: - Type constructor `T7' has conflicting definitions in the module and its hs-boot file - Main module: data T7 a - RecFlag Recursive - = T7 :: forall a a. a -> T7 a Stricts: _ - FamilyInstance: none - Boot file: data T7 a - RecFlag NonRecursive - = T7 :: forall a b. a -> T7 a Stricts: _ - FamilyInstance: none - -RnFail055.hs-boot:27:22: - RnFail055.m1 is exported by the hs-boot file, but not exported by the module - -RnFail055.hs-boot:28:7: - Class `C2' has conflicting definitions in the module and its hs-boot file - Main module: class C2 a b - RecFlag NonRecursive - m2 :: a -> b m2' :: a -> b - Boot file: class C2 a b - RecFlag NonRecursive - m2 :: a -> b - -RnFail055.hs-boot:29:24: - Class `C3' has conflicting definitions in the module and its hs-boot file - Main module: class (Eq a, Ord a) => C3 a RecFlag NonRecursive - Boot file: class (Ord a, Eq a) => C3 a RecFlag NonRecursive diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail056.hs b/testsuite/tests/ghc-regress/rename/should_fail/rnfail056.hs deleted file mode 100644 index 23ec008dc6..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail056.hs +++ /dev/null @@ -1,8 +0,0 @@ --- TupleSections not enabled -{-# LANGUAGE UnboxedTuples #-} - -module Foo where - -foo = (1,) - -bar = (# 1, #) diff --git a/testsuite/tests/ghc-regress/rename/should_fail/rnfail056.stderr b/testsuite/tests/ghc-regress/rename/should_fail/rnfail056.stderr deleted file mode 100644 index 3ddf502dee..0000000000 --- a/testsuite/tests/ghc-regress/rename/should_fail/rnfail056.stderr +++ /dev/null @@ -1,4 +0,0 @@ - -rnfail056.hs:6:7: Illegal tuple section: use -XTupleSections - -rnfail056.hs:8:7: Illegal tuple section: use -XTupleSections |