From e3b67289ad773d37576e763704baaca6b83d74db Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 31 Jul 1997 00:19:07 +0000
Subject: [PATCH] [project @ 1997-07-31 00:05:10 by sof] Moved to main compiler
regression test directory
---
ghc/compiler/tests/typecheck/Makefile | 6 -
.../tests/typecheck/should_fail/Digraph.hs | 56 --
.../typecheck/should_fail/Digraph.stderr | 58 ---
.../tests/typecheck/should_fail/Makefile | 34 --
.../tests/typecheck/should_fail/tcfail001.hs | 9 -
.../typecheck/should_fail/tcfail001.stderr | 21 -
.../tests/typecheck/should_fail/tcfail002.hs | 4 -
.../typecheck/should_fail/tcfail002.stderr | 10 -
.../tests/typecheck/should_fail/tcfail003.hs | 3 -
.../typecheck/should_fail/tcfail003.stderr | 8 -
.../tests/typecheck/should_fail/tcfail004.hs | 3 -
.../typecheck/should_fail/tcfail004.stderr | 11 -
.../tests/typecheck/should_fail/tcfail005.hs | 3 -
.../typecheck/should_fail/tcfail005.stderr | 11 -
.../tests/typecheck/should_fail/tcfail006.hs | 5 -
.../typecheck/should_fail/tcfail006.stderr | 8 -
.../tests/typecheck/should_fail/tcfail007.hs | 4 -
.../typecheck/should_fail/tcfail007.stderr | 8 -
.../tests/typecheck/should_fail/tcfail008.hs | 3 -
.../typecheck/should_fail/tcfail008.stderr | 18 -
.../tests/typecheck/should_fail/tcfail009.hs | 3 -
.../typecheck/should_fail/tcfail009.stderr | 12 -
.../tests/typecheck/should_fail/tcfail010.hs | 3 -
.../typecheck/should_fail/tcfail010.stderr | 13 -
.../tests/typecheck/should_fail/tcfail011.hs | 3 -
.../typecheck/should_fail/tcfail011.stderr | 6 -
.../tests/typecheck/should_fail/tcfail012.hs | 3 -
.../typecheck/should_fail/tcfail012.stderr | 11 -
.../tests/typecheck/should_fail/tcfail013.hs | 4 -
.../typecheck/should_fail/tcfail013.stderr | 11 -
.../tests/typecheck/should_fail/tcfail014.hs | 5 -
.../typecheck/should_fail/tcfail014.stderr | 21 -
.../tests/typecheck/should_fail/tcfail015.hs | 9 -
.../typecheck/should_fail/tcfail015.stderr | 8 -
.../tests/typecheck/should_fail/tcfail016.hs | 9 -
.../typecheck/should_fail/tcfail016.stderr | 15 -
.../tests/typecheck/should_fail/tcfail017.hs | 13 -
.../typecheck/should_fail/tcfail017.stderr | 9 -
.../tests/typecheck/should_fail/tcfail018.hs | 5 -
.../typecheck/should_fail/tcfail018.stderr | 13 -
.../tests/typecheck/should_fail/tcfail019.hs | 21 -
.../typecheck/should_fail/tcfail019.stderr | 27 -
.../tests/typecheck/should_fail/tcfail020.hs | 17 -
.../typecheck/should_fail/tcfail020.stderr | 9 -
.../tests/typecheck/should_fail/tcfail021.hs | 3 -
.../typecheck/should_fail/tcfail021.stderr | 17 -
.../tests/typecheck/should_fail/tcfail022.hs | 6 -
.../typecheck/should_fail/tcfail022.stderr | 8 -
.../tests/typecheck/should_fail/tcfail023.hs | 13 -
.../typecheck/should_fail/tcfail023.stderr | 27 -
.../tests/typecheck/should_fail/tcfail024.hs | 4 -
.../typecheck/should_fail/tcfail024.stderr | 5 -
.../tests/typecheck/should_fail/tcfail025.hs | 6 -
.../typecheck/should_fail/tcfail025.stderr | 8 -
.../tests/typecheck/should_fail/tcfail026.hs | 9 -
.../typecheck/should_fail/tcfail026.stderr | 13 -
.../tests/typecheck/should_fail/tcfail027.hs | 7 -
.../typecheck/should_fail/tcfail027.stderr | 7 -
.../tests/typecheck/should_fail/tcfail028.hs | 3 -
.../typecheck/should_fail/tcfail028.stderr | 9 -
.../tests/typecheck/should_fail/tcfail029.hs | 6 -
.../typecheck/should_fail/tcfail029.stderr | 8 -
.../tests/typecheck/should_fail/tcfail030.hs | 1 -
.../typecheck/should_fail/tcfail030.stderr | 5 -
.../tests/typecheck/should_fail/tcfail031.hs | 3 -
.../typecheck/should_fail/tcfail031.stderr | 12 -
.../tests/typecheck/should_fail/tcfail032.hs | 16 -
.../typecheck/should_fail/tcfail032.stderr | 11 -
.../tests/typecheck/should_fail/tcfail033.hs | 4 -
.../typecheck/should_fail/tcfail033.stderr | 12 -
.../tests/typecheck/should_fail/tcfail034.hs | 39 --
.../typecheck/should_fail/tcfail034.stderr | 8 -
.../tests/typecheck/should_fail/tcfail035.hs | 9 -
.../typecheck/should_fail/tcfail035.stderr | 11 -
.../tests/typecheck/should_fail/tcfail036.hs | 10 -
.../typecheck/should_fail/tcfail036.stderr | 61 ---
.../tests/typecheck/should_fail/tcfail037.hs | 11 -
.../typecheck/should_fail/tcfail037.stderr | 8 -
.../tests/typecheck/should_fail/tcfail038.hs | 11 -
.../typecheck/should_fail/tcfail038.stderr | 9 -
.../tests/typecheck/should_fail/tcfail039.hs | 12 -
.../typecheck/should_fail/tcfail039.stderr | 8 -
.../tests/typecheck/should_fail/tcfail040.hs | 29 --
.../typecheck/should_fail/tcfail040.stderr | 7 -
.../tests/typecheck/should_fail/tcfail041.hs | 61 ---
.../typecheck/should_fail/tcfail041.stderr | 87 ----
.../tests/typecheck/should_fail/tcfail042.hs | 28 -
.../typecheck/should_fail/tcfail042.stderr | 10 -
.../tests/typecheck/should_fail/tcfail043.hs | 222 --------
.../typecheck/should_fail/tcfail043.stderr | 13 -
.../tests/typecheck/should_fail/tcfail044.hs | 22 -
.../typecheck/should_fail/tcfail044.stderr | 14 -
.../tests/typecheck/should_fail/tcfail045.hs | 10 -
.../typecheck/should_fail/tcfail045.stderr | 6 -
.../tests/typecheck/should_fail/tcfail046.hs | 32 --
.../typecheck/should_fail/tcfail046.stderr | 35 --
.../tests/typecheck/should_fail/tcfail047.hs | 6 -
.../typecheck/should_fail/tcfail047.stderr | 7 -
.../tests/typecheck/should_fail/tcfail048.hs | 4 -
.../typecheck/should_fail/tcfail048.stderr | 6 -
.../tests/typecheck/should_fail/tcfail049.hs | 3 -
.../typecheck/should_fail/tcfail049.stderr | 6 -
.../tests/typecheck/should_fail/tcfail050.hs | 3 -
.../typecheck/should_fail/tcfail050.stderr | 6 -
.../tests/typecheck/should_fail/tcfail051.hs | 4 -
.../typecheck/should_fail/tcfail051.stderr | 6 -
.../tests/typecheck/should_fail/tcfail052.hs | 3 -
.../typecheck/should_fail/tcfail052.stderr | 6 -
.../tests/typecheck/should_fail/tcfail053.hs | 2 -
.../typecheck/should_fail/tcfail053.stderr | 6 -
.../tests/typecheck/should_fail/tcfail054.hs | 3 -
.../typecheck/should_fail/tcfail054.stderr | 6 -
.../tests/typecheck/should_fail/tcfail055.hs | 3 -
.../typecheck/should_fail/tcfail055.stderr | 12 -
.../tests/typecheck/should_fail/tcfail056.hs | 11 -
.../typecheck/should_fail/tcfail056.stderr | 13 -
.../tests/typecheck/should_fail/tcfail057.hs | 6 -
.../typecheck/should_fail/tcfail057.stderr | 5 -
.../tests/typecheck/should_fail/tcfail058.hs | 7 -
.../typecheck/should_fail/tcfail058.stderr | 5 -
.../tests/typecheck/should_fail/tcfail059.hs | 3 -
.../typecheck/should_fail/tcfail059.stderr | 15 -
.../tests/typecheck/should_fail/tcfail060.hs | 9 -
.../typecheck/should_fail/tcfail060.stderr | 24 -
.../tests/typecheck/should_fail/tcfail061.hs | 11 -
.../typecheck/should_fail/tcfail061.stderr | 15 -
.../tests/typecheck/should_fail/tcfail062.hs | 37 --
.../typecheck/should_fail/tcfail062.stderr | 9 -
.../tests/typecheck/should_fail/tcfail063.hs | 5 -
.../typecheck/should_fail/tcfail063.stderr | 1 -
.../tests/typecheck/should_fail/tcfail064.hs | 0
.../typecheck/should_fail/tcfail064.stderr | 5 -
.../tests/typecheck/should_fail/tcfail065.hs | 37 --
.../typecheck/should_fail/tcfail065.stderr | 9 -
.../tests/typecheck/should_fail/tcfail066.hs | 42 --
.../typecheck/should_fail/tcfail066.stderr | 74 ---
.../tests/typecheck/should_fail/tcfail067.hs | 98 ----
.../typecheck/should_fail/tcfail067.stderr | 13 -
.../tests/typecheck/should_fail/tcfail068.hs | 92 ----
.../typecheck/should_fail/tcfail068.stderr | 69 ---
.../tests/typecheck/should_fail/tcfail069.hs | 48 --
.../typecheck/should_fail/tcfail069.stderr | 28 -
.../tests/typecheck/should_fail/tcfail070.hs | 14 -
.../typecheck/should_fail/tcfail070.stderr | 9 -
.../tests/typecheck/should_fail/tcfail071.hs | 10 -
.../typecheck/should_fail/tcfail071.stderr | 0
.../tests/typecheck/should_fail/tcfail072.hs | 24 -
.../typecheck/should_succeed/ClassFoo.hi | 5 -
.../tests/typecheck/should_succeed/M.hi | 4 -
.../tests/typecheck/should_succeed/Makefile | 25 -
.../typecheck/should_succeed/ShouldSucceed.hi | 7 -
.../typecheck/should_succeed/TheUtils.hi | 68 ---
.../tests/typecheck/should_succeed/tc001.hs | 3 -
.../typecheck/should_succeed/tc001.stderr | 45 --
.../tests/typecheck/should_succeed/tc002.hs | 3 -
.../typecheck/should_succeed/tc002.stderr | 33 --
.../tests/typecheck/should_succeed/tc003.hs | 12 -
.../typecheck/should_succeed/tc003.stderr | 50 --
.../tests/typecheck/should_succeed/tc004.hs | 5 -
.../typecheck/should_succeed/tc004.stderr | 22 -
.../tests/typecheck/should_succeed/tc005.hs | 4 -
.../typecheck/should_succeed/tc005.stderr | 35 --
.../tests/typecheck/should_succeed/tc006.hs | 3 -
.../typecheck/should_succeed/tc006.stderr | 31 --
.../tests/typecheck/should_succeed/tc007.hs | 9 -
.../typecheck/should_succeed/tc007.stderr | 65 ---
.../tests/typecheck/should_succeed/tc008.hs | 4 -
.../typecheck/should_succeed/tc008.stderr | 35 --
.../tests/typecheck/should_succeed/tc009.hs | 4 -
.../typecheck/should_succeed/tc009.stderr | 38 --
.../tests/typecheck/should_succeed/tc010.hs | 3 -
.../typecheck/should_succeed/tc010.stderr | 55 --
.../tests/typecheck/should_succeed/tc011.hs | 3 -
.../typecheck/should_succeed/tc011.stderr | 18 -
.../tests/typecheck/should_succeed/tc012.hs | 3 -
.../typecheck/should_succeed/tc012.stderr | 18 -
.../tests/typecheck/should_succeed/tc013.hs | 3 -
.../typecheck/should_succeed/tc013.stderr | 31 --
.../tests/typecheck/should_succeed/tc014.hs | 3 -
.../typecheck/should_succeed/tc014.stderr | 35 --
.../tests/typecheck/should_succeed/tc015.hs | 3 -
.../typecheck/should_succeed/tc015.stderr | 22 -
.../tests/typecheck/should_succeed/tc016.hs | 3 -
.../typecheck/should_succeed/tc016.stderr | 22 -
.../tests/typecheck/should_succeed/tc017.hs | 4 -
.../typecheck/should_succeed/tc017.stderr | 38 --
.../tests/typecheck/should_succeed/tc018.hs | 4 -
.../typecheck/should_succeed/tc018.stderr | 40 --
.../tests/typecheck/should_succeed/tc019.hs | 3 -
.../typecheck/should_succeed/tc019.stderr | 61 ---
.../tests/typecheck/should_succeed/tc020.hs | 3 -
.../typecheck/should_succeed/tc020.stderr | 26 -
.../tests/typecheck/should_succeed/tc021.hs | 7 -
.../typecheck/should_succeed/tc021.stderr | 40 --
.../tests/typecheck/should_succeed/tc022.hs | 5 -
.../typecheck/should_succeed/tc022.stderr | 26 -
.../tests/typecheck/should_succeed/tc023.hs | 7 -
.../typecheck/should_succeed/tc023.stderr | 43 --
.../tests/typecheck/should_succeed/tc024.hs | 7 -
.../typecheck/should_succeed/tc024.stderr | 44 --
.../tests/typecheck/should_succeed/tc025.hs | 3 -
.../typecheck/should_succeed/tc025.stderr | 29 --
.../tests/typecheck/should_succeed/tc026.hs | 4 -
.../typecheck/should_succeed/tc026.stderr | 29 --
.../tests/typecheck/should_succeed/tc027.hs | 5 -
.../typecheck/should_succeed/tc027.stderr | 38 --
.../tests/typecheck/should_succeed/tc028.hs | 3 -
.../typecheck/should_succeed/tc028.stderr | 13 -
.../tests/typecheck/should_succeed/tc029.hs | 6 -
.../typecheck/should_succeed/tc029.stderr | 32 --
.../tests/typecheck/should_succeed/tc030.hs | 5 -
.../typecheck/should_succeed/tc030.stderr | 14 -
.../tests/typecheck/should_succeed/tc031.hs | 3 -
.../typecheck/should_succeed/tc031.stderr | 27 -
.../tests/typecheck/should_succeed/tc032.hs | 3 -
.../typecheck/should_succeed/tc032.stderr | 32 --
.../tests/typecheck/should_succeed/tc033.hs | 7 -
.../typecheck/should_succeed/tc033.stderr | 40 --
.../tests/typecheck/should_succeed/tc034.hs | 11 -
.../typecheck/should_succeed/tc034.stderr | 63 ---
.../tests/typecheck/should_succeed/tc035.hs | 9 -
.../typecheck/should_succeed/tc035.stderr | 51 --
.../tests/typecheck/should_succeed/tc036.hs | 4 -
.../typecheck/should_succeed/tc036.stderr | 33 --
.../tests/typecheck/should_succeed/tc037.hi | 6 -
.../tests/typecheck/should_succeed/tc037.hs | 9 -
.../typecheck/should_succeed/tc037.stderr | 67 ---
.../tests/typecheck/should_succeed/tc038.hs | 3 -
.../typecheck/should_succeed/tc038.stderr | 49 --
.../tests/typecheck/should_succeed/tc039.hs | 4 -
.../typecheck/should_succeed/tc039.stderr | 33 --
.../tests/typecheck/should_succeed/tc040.hi | 4 -
.../tests/typecheck/should_succeed/tc040.hs | 9 -
.../typecheck/should_succeed/tc040.stderr | 41 --
.../tests/typecheck/should_succeed/tc041.hs | 12 -
.../typecheck/should_succeed/tc041.stderr | 51 --
.../tests/typecheck/should_succeed/tc042.hs | 73 ---
.../typecheck/should_succeed/tc042.stderr | 255 ---------
.../tests/typecheck/should_succeed/tc043.hs | 18 -
.../typecheck/should_succeed/tc043.stderr | 105 ----
.../tests/typecheck/should_succeed/tc044.hs | 6 -
.../typecheck/should_succeed/tc044.stderr | 21 -
.../tests/typecheck/should_succeed/tc045.hs | 19 -
.../typecheck/should_succeed/tc045.stderr | 70 ---
.../tests/typecheck/should_succeed/tc046.hs | 9 -
.../typecheck/should_succeed/tc046.stderr | 45 --
.../tests/typecheck/should_succeed/tc047.hs | 23 -
.../typecheck/should_succeed/tc047.stderr | 61 ---
.../tests/typecheck/should_succeed/tc048.hs | 21 -
.../typecheck/should_succeed/tc048.stderr | 108 ----
.../tests/typecheck/should_succeed/tc049.hs | 39 --
.../typecheck/should_succeed/tc049.stderr | 239 ---------
.../tests/typecheck/should_succeed/tc050.hs | 23 -
.../typecheck/should_succeed/tc050.stderr | 133 -----
.../tests/typecheck/should_succeed/tc051.hs | 30 --
.../typecheck/should_succeed/tc051.stderr | 85 ---
.../tests/typecheck/should_succeed/tc052.hs | 8 -
.../typecheck/should_succeed/tc052.stderr | 15 -
.../tests/typecheck/should_succeed/tc053.hs | 12 -
.../typecheck/should_succeed/tc053.stderr | 94 ----
.../tests/typecheck/should_succeed/tc054.hs | 16 -
.../typecheck/should_succeed/tc054.stderr | 98 ----
.../tests/typecheck/should_succeed/tc055.hs | 3 -
.../typecheck/should_succeed/tc055.stderr | 26 -
.../tests/typecheck/should_succeed/tc056.hs | 15 -
.../typecheck/should_succeed/tc056.stderr | 112 ----
.../tests/typecheck/should_succeed/tc057.hi | 7 -
.../tests/typecheck/should_succeed/tc057.hs | 18 -
.../typecheck/should_succeed/tc057.stderr | 126 -----
.../tests/typecheck/should_succeed/tc058.hs | 18 -
.../typecheck/should_succeed/tc058.stderr | 116 -----
.../tests/typecheck/should_succeed/tc059.hs | 15 -
.../typecheck/should_succeed/tc059.stderr | 120 -----
.../tests/typecheck/should_succeed/tc060.hs | 12 -
.../typecheck/should_succeed/tc060.stderr | 68 ---
.../tests/typecheck/should_succeed/tc061.hs | 11 -
.../typecheck/should_succeed/tc061.stderr | 63 ---
.../tests/typecheck/should_succeed/tc062.hs | 12 -
.../typecheck/should_succeed/tc062.stderr | 86 ----
.../tests/typecheck/should_succeed/tc063.hs | 18 -
.../typecheck/should_succeed/tc063.stderr | 75 ---
.../tests/typecheck/should_succeed/tc064.hs | 7 -
.../typecheck/should_succeed/tc064.stderr | 35 --
.../tests/typecheck/should_succeed/tc065.hs | 107 ----
.../typecheck/should_succeed/tc065.stderr | 486 ------------------
.../tests/typecheck/should_succeed/tc066.hs | 4 -
.../typecheck/should_succeed/tc066.stderr | 50 --
.../tests/typecheck/should_succeed/tc067.hs | 4 -
.../typecheck/should_succeed/tc067.stderr | 25 -
.../tests/typecheck/should_succeed/tc068.hs | 18 -
.../typecheck/should_succeed/tc068.stderr | 114 ----
.../tests/typecheck/should_succeed/tc069.hs | 4 -
.../typecheck/should_succeed/tc069.stderr | 31 --
.../tests/typecheck/should_succeed/tc070.hs | 9 -
.../typecheck/should_succeed/tc070.stderr | 35 --
.../tests/typecheck/should_succeed/tc073.hs | 5 -
.../typecheck/should_succeed/tc073.stderr | 25 -
.../tests/typecheck/should_succeed/tc074.hs | 18 -
.../typecheck/should_succeed/tc074.stderr | 114 ----
.../tests/typecheck/should_succeed/tc075.hs | 8 -
.../typecheck/should_succeed/tc075.stderr | 9 -
.../tests/typecheck/should_succeed/tc076.hs | 8 -
.../typecheck/should_succeed/tc076.stderr | 39 --
.../tests/typecheck/should_succeed/tc077.hs | 9 -
.../typecheck/should_succeed/tc077.stderr | 62 ---
.../tests/typecheck/should_succeed/tc078.hs | 8 -
.../typecheck/should_succeed/tc078.stderr | 132 -----
.../tests/typecheck/should_succeed/tc079.hs | 16 -
.../typecheck/should_succeed/tc079.stderr | 122 -----
.../tests/typecheck/should_succeed/tc080.hs | 53 --
.../typecheck/should_succeed/tc080.stderr | 1 -
.../tests/typecheck/should_succeed/tc081.hs | 28 -
.../typecheck/should_succeed/tc081.stderr | 179 -------
.../tests/typecheck/should_succeed/tc082.hs | 12 -
.../typecheck/should_succeed/tc082.stderr | 56 --
.../tests/typecheck/should_succeed/tc083.hs | 10 -
.../typecheck/should_succeed/tc083.stderr | 65 ---
.../tests/typecheck/should_succeed/tc084.hs | 23 -
.../typecheck/should_succeed/tc084.stderr | 57 --
.../tests/typecheck/should_succeed/tc085.hs | 9 -
.../typecheck/should_succeed/tc085.stderr | 38 --
.../tests/typecheck/should_succeed/tc086.hs | 60 ---
.../tests/typecheck/should_succeed/tc087.hs | 32 --
.../tests/typecheck/should_succeed/tc088.hs | 18 -
ghc/compiler/tests/typecheck/stress/Makefile | 16 -
.../tests/typecheck/stress/tcstress001.hs | 73 ---
.../tests/typecheck/stress/tcstress001.stderr | 0
327 files changed, 8992 deletions(-)
delete mode 100644 ghc/compiler/tests/typecheck/Makefile
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/Digraph.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/Digraph.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/Makefile
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail001.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail001.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail002.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail002.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail003.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail003.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail004.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail004.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail005.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail005.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail006.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail006.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail007.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail007.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail008.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail008.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail009.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail009.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail010.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail010.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail011.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail011.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail012.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail012.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail013.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail013.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail014.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail014.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail015.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail015.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail016.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail016.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail017.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail017.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail018.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail018.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail019.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail019.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail020.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail020.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail021.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail021.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail022.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail022.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail023.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail023.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail024.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail024.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail025.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail025.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail026.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail026.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail027.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail027.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail028.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail028.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail029.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail029.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail030.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail030.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail031.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail031.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail032.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail032.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail033.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail033.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail034.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail034.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail035.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail035.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail036.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail036.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail037.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail037.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail038.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail038.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail039.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail039.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail040.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail040.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail041.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail041.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail042.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail042.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail043.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail043.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail044.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail044.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail045.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail045.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail046.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail046.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail047.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail047.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail048.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail048.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail049.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail049.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail050.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail050.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail051.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail051.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail052.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail052.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail053.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail053.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail054.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail054.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail055.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail055.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail056.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail056.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail057.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail057.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail058.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail058.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail059.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail059.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail060.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail060.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail061.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail061.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail062.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail062.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail063.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail063.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail064.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail064.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail065.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail065.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail066.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail066.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail067.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail067.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail068.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail068.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail069.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail069.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail070.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail070.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail071.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail071.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_fail/tcfail072.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/ClassFoo.hi
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/M.hi
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/Makefile
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/ShouldSucceed.hi
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/TheUtils.hi
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc001.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc001.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc002.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc002.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc003.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc003.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc004.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc004.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc005.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc005.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc006.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc006.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc007.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc007.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc008.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc008.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc009.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc009.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc010.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc010.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc011.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc011.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc012.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc012.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc013.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc013.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc014.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc014.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc015.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc015.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc016.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc016.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc017.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc017.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc018.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc018.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc019.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc019.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc020.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc020.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc021.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc021.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc022.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc022.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc023.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc023.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc024.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc024.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc025.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc025.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc026.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc026.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc027.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc027.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc028.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc028.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc029.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc029.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc030.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc030.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc031.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc031.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc032.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc032.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc033.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc033.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc034.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc034.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc035.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc035.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc036.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc036.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc037.hi
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc037.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc037.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc038.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc038.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc039.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc039.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc040.hi
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc040.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc040.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc041.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc041.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc042.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc042.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc043.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc043.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc044.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc044.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc045.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc045.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc046.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc046.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc047.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc047.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc048.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc048.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc049.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc049.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc050.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc050.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc051.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc051.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc052.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc052.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc053.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc053.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc054.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc054.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc055.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc055.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc056.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc056.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc057.hi
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc057.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc057.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc058.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc058.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc059.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc059.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc060.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc060.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc061.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc061.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc062.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc062.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc063.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc063.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc064.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc064.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc065.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc065.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc066.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc066.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc067.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc067.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc068.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc068.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc069.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc069.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc070.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc070.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc073.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc073.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc074.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc074.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc075.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc075.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc076.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc076.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc077.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc077.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc078.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc078.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc079.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc079.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc080.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc080.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc081.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc081.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc082.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc082.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc083.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc083.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc084.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc084.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc085.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc085.stderr
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc086.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc087.hs
delete mode 100644 ghc/compiler/tests/typecheck/should_succeed/tc088.hs
delete mode 100644 ghc/compiler/tests/typecheck/stress/Makefile
delete mode 100644 ghc/compiler/tests/typecheck/stress/tcstress001.hs
delete mode 100644 ghc/compiler/tests/typecheck/stress/tcstress001.stderr
diff --git a/ghc/compiler/tests/typecheck/Makefile b/ghc/compiler/tests/typecheck/Makefile
deleted file mode 100644
index 56331779c656..000000000000
--- a/ghc/compiler/tests/typecheck/Makefile
+++ /dev/null
@@ -1,6 +0,0 @@
-TOP = ../../..
-include $(TOP)/mk/boilerplate.mk
-
-SUBDIRS = should_fail should_succeed stress
-
-include $(TOP)/mk/target.mk
diff --git a/ghc/compiler/tests/typecheck/should_fail/Digraph.hs b/ghc/compiler/tests/typecheck/should_fail/Digraph.hs
deleted file mode 100644
index a52d489b2c0b..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/Digraph.hs
+++ /dev/null
@@ -1,56 +0,0 @@
---!!! trying to have a polymorphic type sig where inappropriate
---
-module Digraph where
-
-data MaybeErr val err = Succeeded val | Failed err deriving ()
-
-type Edge vertex = (vertex, vertex)
-type Cycle vertex = [vertex]
-
-stronglyConnComp :: Eq vertex => [Edge vertex] -> [vertex] -> [[vertex]]
-
-stronglyConnComp es vs
- = snd (span_tree (new_range reversed_edges)
- ([],[])
- ( snd (dfs (new_range es) ([],[]) vs) )
- )
- where
- -- *********** the offending type signature **************
- reversed_edges :: Eq v => [Edge v]
- reversed_edges = map swap es
-
- -- WRONGOLA: swap :: Eq v => Edge v -> Edge v
- swap (x,y) = (y, x)
-
- -- WRONGOLA?: new_range :: Eq v => [Edge v] -> v -> [v]
-
- new_range [] w = []
- new_range ((x,y):xys) w
- = if x==w
- then (y : (new_range xys w))
- else (new_range xys w)
-
- {- WRONGOLA?:
- span_tree :: Eq v => (v -> [v])
- -> ([v], [[v]])
- -> [v]
- -> ([v], [[v]])
- -}
-
- span_tree r (vs,ns) [] = (vs,ns)
- span_tree r (vs,ns) (x:xs)
- | x `elem` vs = span_tree r (vs,ns) xs
- | otherwise = span_tree r (vs',(x:ns'):ns) xs
- where
- (vs',ns') = dfs r (x:vs,[]) (r x)
-
-dfs :: Eq v => (v -> [v])
- -> ([v], [v])
- -> [v]
- -> ([v], [v])
-
-dfs r (vs,ns) [] = (vs,ns)
-dfs r (vs,ns) (x:xs) | x `elem` vs = dfs r (vs,ns) xs
- | otherwise = dfs r (vs',(x:ns')++ns) xs
- where
- (vs',ns') = dfs r (x:vs,[]) (r x)
diff --git a/ghc/compiler/tests/typecheck/should_fail/Digraph.stderr b/ghc/compiler/tests/typecheck/should_fail/Digraph.stderr
deleted file mode 100644
index 03ae28a44cb6..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/Digraph.stderr
+++ /dev/null
@@ -1,58 +0,0 @@
-
-Digraph.hs:19: A type signature is more polymorphic than the inferred type
- Some type variables in the inferred type can't be forall'd, namely:
- `v{-a13W-}'
- Possible cause: the RHS mentions something subject to the monomorphism restriction
- When checking signature for `reversed_edges'
- In an equation for function `stronglyConnComp':
- `stronglyConnComp es vs = PrelTup.snd
- (span_tree
- (new_range
- reversed_edges)
- (PrelBase.[], (PrelBase.[]))
- (PrelTup.snd
- (dfs (new_range
- es)
- (PrelBase.[], (PrelBase.[]))
- vs)))
- where
- span_tree
- r (vs, ns) PrelBase.[]
- = (vs, (ns))
- span_tree
- r (vs, ns) (x PrelBase.: xs)
- | [x PrelList.elem vs] =
- span_tree
- r (vs, (ns)) xs
- | [PrelBase.otherwise] =
- span_tree
- r
- (vs', ((x PrelBase.: ns') PrelBase.: ns))
- xs
- where
- (vs', ns')
- = dfs r
- (x PrelBase.: vs, (PrelBase.[]))
- (r x)
- new_range
- PrelBase.[] w
- = PrelBase.[]
- new_range
- ((x, y) PrelBase.: xys) w
- = if x PrelBase.== w then
- (y
- PrelBase.: (new_range
- xys w))
- else
- (new_range
- xys w)
- swap
- (x, y) = (y, (x))
- reversed_edges ::
- _forall_ [v] {PrelBase.Eq v} => [Edge v]
- reversed_edges
- = PrelBase.map
- swap es'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/Makefile b/ghc/compiler/tests/typecheck/should_fail/Makefile
deleted file mode 100644
index accc024441fd..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/Makefile
+++ /dev/null
@@ -1,34 +0,0 @@
-TOP = ../../../..
-include $(TOP)/mk/boilerplate.mk
-
-HS_SRCS = $(wildcard *.hs)
-
-SRC_RUNTEST_OPTS += -o1 $*.stdout -o2 $*.stderr -x 1
-HC_OPTS += -noC -ddump-tc -dppr-user
-
-%.o : %.hs
-
-%.o : %.hs
- $(RUNTEST) $(HC) $(RUNTEST_OPTS) -- $(HC_OPTS) -c $< -o $@ -osuf $(subst .,,$(suffix $@))
-
-all :: $(HS_OBJS)
-
-# Not all of them fail, allthough they're advertised as doing so..
-tcfail021_RUNTEST_OPTS = -x 0
-tcfail041_RUNTEST_OPTS = -x 0
-tcfail045_HC_OPTS = -fglasgow-exts
-tcfail059_HC_OPTS = -hi
-tcfail059_RUNTEST_OPTS = -x 0
-tcfail060_HC_OPTS = -hi
-tcfail060_RUNTEST_OPTS = -x 0
-tcfail061_HC_OPTS = -hi
-tcfail062_HC_OPTS = -hi
-tcfail063_HC_OPTS = -hi
-tcfail064_HC_OPTS = -hi
-tcfail065_HC_OPTS = -hi
-tcfail066_HC_OPTS = -hi
-tcfail066_RUNTEST_OPTS = -x 0
-tcfail067_HC_OPTS = -hi
-tcfail068_HC_OPTS = -fglasgow-exts
-
-include $(TOP)/mk/target.mk
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail001.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail001.hs
deleted file mode 100644
index dafb83af1e76..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail001.hs
+++ /dev/null
@@ -1,9 +0,0 @@
---!!! This should fail with a type error: the instance method
---!!! has a function type when it should have the type [a].
-module Test where
-
-class A a where
- op :: a
-
-instance (A a, A a) => A [a] where
- op [] = []
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail001.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail001.stderr
deleted file mode 100644
index 3a60d3776ce0..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail001.stderr
+++ /dev/null
@@ -1,21 +0,0 @@
-
-tcfail001.hs:9:warning:
- Duplicate class assertion `[(`A',
- `a'),
- (`A',
- `a')]' in context:
- [(`A',
- `a'),
- (`A',
- `a')]
-
-tcfail001.hs:9: Couldn't match the type
- `PrelBase.[]' against `GHC.-> [t{-anj-}]'
- Expected: `[a{-ani-}]'
- Inferred: `[t{-anj-}] -> [t{-ank-}]'
- In an equation for function `op':
- `op PrelBase.[]
- = PrelBase.[]'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail002.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail002.hs
deleted file mode 100644
index b1fdd165b432..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail002.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldFail where
-
-c (x:y) = x
-c z = z
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail002.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail002.stderr
deleted file mode 100644
index 2848f77726c9..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail002.stderr
+++ /dev/null
@@ -1,10 +0,0 @@
-
-tcfail002.hs:4: Cannot construct the infinite type (occur check)
- `t{-amM-}' = `[t{-amM-}]'
- Expected: `[t{-amM-}] -> t{-amM-}'
- Inferred: `[t{-amM-}] -> [t{-amM-}]'
- In an equation for function `c':
- `c z = z'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail003.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail003.hs
deleted file mode 100644
index 8458014c1bff..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail003.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-(d:e) = [1,'a']
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail003.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail003.stderr
deleted file mode 100644
index cdec675bec60..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail003.stderr
+++ /dev/null
@@ -1,8 +0,0 @@
-
-tcfail003.hs:3: No instance for:
- `PrelBase.Num PrelBase.Char'
- tcfail003.hs:3:
- at an overloaded literal: 1
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail004.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail004.hs
deleted file mode 100644
index 513680bd1226..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail004.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-(f,g) = (1,2,3)
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail004.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail004.stderr
deleted file mode 100644
index b5ea7517ea6a..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail004.stderr
+++ /dev/null
@@ -1,11 +0,0 @@
-
-tcfail004.hs:3: Couldn't match the type
- `PrelTup.(,)' against `PrelTup.(,,) t{-aXz-}'
- Expected: `(t{-aXt-}, t{-aXw-})'
- Inferred: `(t{-aXz-}, t{-aXC-}, t{-aXF-})'
- In a pattern binding:
- (`f', `g')
- = `(1, 2, 3)'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail005.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail005.hs
deleted file mode 100644
index ca211e12165b..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail005.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-(h:i) = (1,'a')
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail005.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail005.stderr
deleted file mode 100644
index ebce13fa45a7..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail005.stderr
+++ /dev/null
@@ -1,11 +0,0 @@
-
-tcfail005.hs:3: Couldn't match the type
- `PrelBase.[]' against `PrelTup.(,) t{-aWN-}'
- Expected: `[t{-aWJ-}]'
- Inferred: `(t{-aWN-}, PrelBase.Char)'
- In a pattern binding:
- (`h' `PrelBase.:' `i')
- = `(1, ('a'))'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail006.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail006.hs
deleted file mode 100644
index 37fd1f9c358f..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail006.hs
+++ /dev/null
@@ -1,5 +0,0 @@
-module ShouldFail where
-
-(j,k) = case (if True then True else False) of
- True -> (True,1)
- False -> (1,True)
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail006.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail006.stderr
deleted file mode 100644
index 02d96f4464ca..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail006.stderr
+++ /dev/null
@@ -1,8 +0,0 @@
-
-tcfail006.hs:4: No instance for:
- `PrelBase.Num PrelBase.Bool'
- tcfail006.hs:4:
- at an overloaded literal: 1
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail007.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail007.hs
deleted file mode 100644
index ee24983aff05..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail007.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldFail where
-
-n x | True = x+1
- | False = True
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail007.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail007.stderr
deleted file mode 100644
index cbf5b51eeb94..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail007.stderr
+++ /dev/null
@@ -1,8 +0,0 @@
-
-tcfail007.hs:4: No instance for:
- `PrelBase.Num PrelBase.Bool'
- tcfail007.hs:4:
- at a use of an overloaded identifier: `PrelBase.+'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail008.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail008.hs
deleted file mode 100644
index dbc9d0c911f2..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail008.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-o = 1:2
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail008.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail008.stderr
deleted file mode 100644
index ce2d768fe936..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail008.stderr
+++ /dev/null
@@ -1,18 +0,0 @@
-
-tcfail008.hs:3: No instance for:
- `PrelBase.Num [t{-aHf-}]'
- tcfail008.hs:3:
- at an overloaded literal: 2
-
-tcfail008.hs:3: No instance for:
- `PrelBase.Num [t{-aHf-}]'
- tcfail008.hs:3:
- at an overloaded literal: 2
-
-tcfail008.hs:3: No instance for:
- `PrelBase.Num [PrelBase.Int]'
- tcfail008.hs:3:
- at an overloaded literal: 2
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail009.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail009.hs
deleted file mode 100644
index e8afa0fbf7ef..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail009.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-p = [(1::Int)..(2::Integer)]
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail009.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail009.stderr
deleted file mode 100644
index b293ca4dff4e..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail009.stderr
+++ /dev/null
@@ -1,12 +0,0 @@
-
-tcfail009.hs:3: Couldn't match the type
- `PrelBase.Integer' against `PrelBase.Int'
- Expected: `PrelBase.Int'
- Inferred: `PrelBase.Integer'
- In an arithmetic sequence:
- `[(1 ::
- PrelBase.Int) .. (2 ::
- PrelBase.Integer)]'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail010.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail010.hs
deleted file mode 100644
index 8b793355da2f..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail010.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-q = \ (y:z) -> z+2
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail010.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail010.stderr
deleted file mode 100644
index 986ac2a21b32..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail010.stderr
+++ /dev/null
@@ -1,13 +0,0 @@
-
-tcfail010.hs:3: No instance for:
- `PrelBase.Num [t{-aHi-}]'
- tcfail010.hs:3:
- at a use of an overloaded identifier: `PrelBase.+'
-
-tcfail010.hs:3: No instance for:
- `PrelBase.Num [t{-aHi-}]'
- tcfail010.hs:3:
- at a use of an overloaded identifier: `PrelBase.+'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail011.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail011.hs
deleted file mode 100644
index 89f5c4bcd1eb..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail011.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-z = \y -> x x where x = y
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail011.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail011.stderr
deleted file mode 100644
index 5cd8c3edb7be..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail011.stderr
+++ /dev/null
@@ -1,6 +0,0 @@
-
-tcfail011.hs:3:
- Value not in scope: `y'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail012.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail012.hs
deleted file mode 100644
index 67e5fa025687..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail012.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-True = []
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail012.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail012.stderr
deleted file mode 100644
index 2e525ce2fbee..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail012.stderr
+++ /dev/null
@@ -1,11 +0,0 @@
-
-tcfail012.hs:3: Couldn't match the type
- `PrelBase.Bool' against `[t{-amB-}]'
- Expected: `PrelBase.Bool'
- Inferred: `[t{-amB-}]'
- In a pattern binding:
- `PrelBase.True'
- = `PrelBase.[]'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail013.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail013.hs
deleted file mode 100644
index c9ccc52a6474..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail013.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldFail where
-
-f [] = 1
-f True = 2
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail013.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail013.stderr
deleted file mode 100644
index 45fefc8b1ac2..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail013.stderr
+++ /dev/null
@@ -1,11 +0,0 @@
-
-tcfail013.hs:4: Couldn't match the type
- `[t{-aHg-}]' against `PrelBase.Bool'
- Expected: `[t{-aHg-}] -> t{-aHi-}'
- Inferred: `PrelBase.Bool -> t{-aHl-}'
- In an equation for function `f':
- `f PrelBase.True
- = 2'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail014.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail014.hs
deleted file mode 100644
index 7d9169936d6d..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail014.hs
+++ /dev/null
@@ -1,5 +0,0 @@
-module ShouldFail where
-
-f x = g+1
- where g y = h+2
- where h z = z z
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail014.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail014.stderr
deleted file mode 100644
index 2515260d895e..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail014.stderr
+++ /dev/null
@@ -1,21 +0,0 @@
-
-tcfail014.hs:5: Cannot construct the infinite type (occur check)
- `o{-aHw-}' = `o{-aHw-} -> o{-aIe-}'
- Expected: `o{-aHw-}'
- Inferred: `o{-aHw-} -> o{-aIe-}'
- In the first argument of `z', namely
- `z'
- In an equation for function `h':
- `h z = z z'
- In an equation for function `g':
- `g y = h PrelBase.+ 2
- where
- h z = z z'
-
-tcfail014.hs:5: No instance for:
- `PrelBase.Num (t{-aHZ-} -> t{-aI0-})'
- tcfail014.hs:5:
- at a use of an overloaded identifier: `PrelBase.+'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail015.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail015.hs
deleted file mode 100644
index ae929e397379..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail015.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-module ShouldFail where
-
-data AList a = ANull | ANode a (AList a)
-
-type IntList = AList Int
-
-g (ANull) = 2
-g (ANode b (ANode c d)) | b = c+1
- | otherwise = 4
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail015.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail015.stderr
deleted file mode 100644
index 5ae8866d5cb4..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail015.stderr
+++ /dev/null
@@ -1,8 +0,0 @@
-
-tcfail015.hs:7: No instance for:
- `PrelBase.Num PrelBase.Bool'
- tcfail015.hs:7:
- at an overloaded literal: 2
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail016.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail016.hs
deleted file mode 100644
index 2dfd4a50e0a5..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail016.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-module ShouldFail where
-
-type AnnExpr a = (a,Expr a)
-
-data Expr a = Var [Char]
- | App (AnnExpr a) (AnnExpr a)
-
-g (Var name) = [name]
-g (App e1 e2) = (g e1)++(g e2)
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail016.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail016.stderr
deleted file mode 100644
index 56889997069d..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail016.stderr
+++ /dev/null
@@ -1,15 +0,0 @@
-
-tcfail016.hs:9: Couldn't match the type
- `PrelTup.(,) a{-aX1-}' against `Expr'
- Expected: `Expr a{-aWV-}'
- Inferred: `AnnExpr a{-aX1-}'
- In the first argument of `g', namely
- `e1'
- In the first argument of `PrelBase.++', namely
- (`g' `e1')
- In an equation for function `g':
- `g (App e1 e2)
- = (g e1) PrelBase.++ (g e2)'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail017.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail017.hs
deleted file mode 100644
index db3215dc196a..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail017.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-
-module ShouldFail where
-
-class C a where
- op1 :: a -> a
-
-class (C a) => B a where
- op2 :: a -> a -> a
-
-instance (B a) => B [a] where
- op2 xs ys = xs
-
-
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail017.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail017.stderr
deleted file mode 100644
index 4d854ce72a8f..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail017.stderr
+++ /dev/null
@@ -1,9 +0,0 @@
-
-tcfail017.hs:11: No instance for:
- `C [a{-anj-}]'
- tcfail017.hs:11:
- in an instance declaration
- When checking superclass constraints of an instance declaration
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail018.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail018.hs
deleted file mode 100644
index d91306ac553b..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail018.hs
+++ /dev/null
@@ -1,5 +0,0 @@
-
-
-module ShouldSucc where
-
-(a:[]) = 1
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail018.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail018.stderr
deleted file mode 100644
index df711e5e067b..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail018.stderr
+++ /dev/null
@@ -1,13 +0,0 @@
-
-tcfail018.hs:5: No instance for:
- `PrelBase.Num [t{-aHg-}]'
- tcfail018.hs:5:
- at an overloaded literal: 1
-
-tcfail018.hs:5: No instance for:
- `PrelBase.Num [t{-aHg-}]'
- tcfail018.hs:5:
- at an overloaded literal: 1
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail019.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail019.hs
deleted file mode 100644
index b3da9cdebcba..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail019.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-
-module P where
-
-class A a where
- p1 :: a -> a
- p2 :: a -> a -> a
-
-class (A b) => B b where
- p3 :: b
- p4 :: b -> b
-
-class (A c) => C c where
- p5 :: c -> c
- p6 :: c -> Int
-
-class (B d,C d) => D d where
- p7 :: d -> d
-
-instance D [a] where
- p7 l = []
-
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail019.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail019.stderr
deleted file mode 100644
index 58cae59b350d..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail019.stderr
+++ /dev/null
@@ -1,27 +0,0 @@
-
-tcfail019.hs:20: No instance for:
- `B [a{-anU-}]'
- tcfail019.hs:20:
- in an instance declaration
- When checking methods of an instance declaration
-
-tcfail019.hs:20: No instance for:
- `C [a{-anU-}]'
- tcfail019.hs:20:
- in an instance declaration
- When checking methods of an instance declaration
-
-tcfail019.hs:20: No instance for:
- `B [a{-anU-}]'
- tcfail019.hs:20:
- in an instance declaration
- When checking superclass constraints of an instance declaration
-
-tcfail019.hs:20: No instance for:
- `C [a{-anU-}]'
- tcfail019.hs:20:
- in an instance declaration
- When checking superclass constraints of an instance declaration
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail020.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail020.hs
deleted file mode 100644
index 9697838fb1c2..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail020.hs
+++ /dev/null
@@ -1,17 +0,0 @@
-
-module P where
-
-class A a where
- p1 :: a -> a
- p2 :: a -> a -> a
-
-class (A b) => B b where
- p3 :: b
-
-instance (A a) => B [a] where
- p3 = []
-
-data X = XC --, causes stack dump
-
---instance B Bool where
--- p3 = True
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail020.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail020.stderr
deleted file mode 100644
index ef738f036a6b..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail020.stderr
+++ /dev/null
@@ -1,9 +0,0 @@
-
-tcfail020.hs:12: No instance for:
- `A [a{-aGH-}]'
- tcfail020.hs:12:
- in an instance declaration
- When checking superclass constraints of an instance declaration
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail021.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail021.hs
deleted file mode 100644
index f6758a1b2beb..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail021.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-f x x = 2
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail021.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail021.stderr
deleted file mode 100644
index 1e8c603b17ed..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail021.stderr
+++ /dev/null
@@ -1,17 +0,0 @@
-
-
---================================================================================
-Typechecked:
-AbsBinds
-[`t{-aHp-}', `t{-aHr-}', `t{-aHm-}']
-[`d.Num']
-[([`t{-aHp-}', `t{-aHr-}', `t{-aHm-}'], `f', `f')]
- `fromInt' =
- `PrelBase.fromInt'
- `t{-aHm-}'
- `d.Num'
- `lit' =
- `fromInt'
- `PrelBase.I#'
- 2#
- `f' `x' `x' = `lit'
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail022.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail022.hs
deleted file mode 100644
index d5e51ed4fdc6..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail022.hs
+++ /dev/null
@@ -1,6 +0,0 @@
-
-f x = 2
-
-g x = 6
-
-f x = 3
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail022.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail022.stderr
deleted file mode 100644
index 43d06b7c23dc..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail022.stderr
+++ /dev/null
@@ -1,8 +0,0 @@
-
-tcfail022.hs:2:
- Conflicting exports for local name: f
- module Main
- module Main
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail023.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail023.hs
deleted file mode 100644
index ae2a3564610a..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail023.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-
-data B = C
-
-class A a where
- op :: a -> a
-
-instance A B where
- op C = True
-
-instance A B where
- op C = True
-
-
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail023.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail023.stderr
deleted file mode 100644
index 1626fb7129ae..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail023.stderr
+++ /dev/null
@@ -1,27 +0,0 @@
-
-tcfail023.hs:2: Duplicate or overlapping instance declarations
- Class `A' type `B'
- at tcfail023.hs:8 and tcfail023.hs:11
-
-tcfail023.hs:2: Duplicate or overlapping instance declarations
- Class `A' type `B'
- at tcfail023.hs:8 and tcfail023.hs:11
-
-tcfail023.hs:11: Couldn't match the type
- `B' against `PrelBase.Bool'
- Expected: `B'
- Inferred: `PrelBase.Bool'
- In an equation for function `op':
- `op C = PrelBase.True'
-
-tcfail023.hs:8: Couldn't match the type
- `B' against `PrelBase.Bool'
- Expected: `B'
- Inferred: `PrelBase.Bool'
- In an equation for function `op':
- `op C = PrelBase.True'
-
-tcfail023.hs:2: Module Main must include a definition for `Main.main'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail024.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail024.hs
deleted file mode 100644
index 3dc567811b69..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail024.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-
-data F = A | B
-
-data G = A | C
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail024.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail024.stderr
deleted file mode 100644
index a48311261c07..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail024.stderr
+++ /dev/null
@@ -1,5 +0,0 @@
-
-tcfail024.hs:2: Module Main must include a definition for `Main.main'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail025.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail025.hs
deleted file mode 100644
index b342618e1551..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail025.hs
+++ /dev/null
@@ -1,6 +0,0 @@
-
-type A = Int
-
-type B = Bool
-
-type A = [Bool]
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail025.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail025.stderr
deleted file mode 100644
index 6a0f830cc4c1..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail025.stderr
+++ /dev/null
@@ -1,8 +0,0 @@
-
-tcfail025.hs:2:
- Conflicting exports for local name: A
- module Main
- module Main
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail026.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail026.hs
deleted file mode 100644
index 725b0d163299..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail026.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/ghc/compiler/tests/typecheck/should_fail/tcfail026.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail026.stderr
deleted file mode 100644
index 23e90f7ae429..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail026.stderr
+++ /dev/null
@@ -1,13 +0,0 @@
-
-tcfail026.hs:2:
- Conflicting exports for local name: A
- module Main
- module Main
-
-tcfail026.hs:6:
- Class type variable ``a'' does not appear in method signature:
- op2 ::
- `b' -> `b'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail027.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail027.hs
deleted file mode 100644
index b80430ba26e7..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail027.hs
+++ /dev/null
@@ -1,7 +0,0 @@
---!!! tests for CycleErr in classes
-
-class (B a) => A a where
- op1 :: a -> a
-
-class (A a) => B a where
- op2 :: a -> a -> a
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail027.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail027.stderr
deleted file mode 100644
index 617dd4b68b21..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail027.stderr
+++ /dev/null
@@ -1,7 +0,0 @@
-
-tcfail027.hs:3: Cycle in class declarations ...
- `A' tcfail027.hs:4
- `B' tcfail027.hs:7
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail028.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail028.hs
deleted file mode 100644
index 8e8c2946a084..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail028.hs
+++ /dev/null
@@ -1,3 +0,0 @@
---!!! tests for ArityErr
-
-data A a b = B (A a)
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail028.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail028.stderr
deleted file mode 100644
index d61467c6b341..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail028.stderr
+++ /dev/null
@@ -1,9 +0,0 @@
-
-tcfail028.hs:4: Couldn't match the kind
- ka2865 -> * against *
- When unifying two kinds
- ka2865 -> * and *
- In the data declaration for `A'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail029.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail029.hs
deleted file mode 100644
index 4b8f2c6c891b..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail029.hs
+++ /dev/null
@@ -1,6 +0,0 @@
---!!! tests for InstOpErr
-module ShouldFail where
-
-data Foo = Bar | Baz
-
-f x = x > Bar
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail029.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail029.stderr
deleted file mode 100644
index 26cac09bbcb3..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail029.stderr
+++ /dev/null
@@ -1,8 +0,0 @@
-
-tcfail029.hs:6: No instance for:
- `PrelBase.Ord Foo'
- tcfail029.hs:6:
- at a use of an overloaded identifier: `PrelBase.>'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail030.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail030.hs
deleted file mode 100644
index 2aa8659940a0..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail030.hs
+++ /dev/null
@@ -1 +0,0 @@
---!!! empty file
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail030.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail030.stderr
deleted file mode 100644
index 3dbe460a581c..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail030.stderr
+++ /dev/null
@@ -1,5 +0,0 @@
-
-tcfail030.hs:0: Module Main must include a definition for `Main.main'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail031.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail031.hs
deleted file mode 100644
index 6b9a0de12b89..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail031.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-f x = if 'a' then 1 else 2
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail031.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail031.stderr
deleted file mode 100644
index a50843e3c9f4..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail031.stderr
+++ /dev/null
@@ -1,12 +0,0 @@
-
-tcfail031.hs:3: Couldn't match the type
- `PrelBase.Bool' against `PrelBase.Char'
- Expected: `PrelBase.Bool'
- Inferred: `PrelBase.Char'
- In a predicate expression:
- `'a''
- In an equation for function `f':
- `f x = if 'a' then 1 else 2'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail032.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail032.hs
deleted file mode 100644
index 0e8884da3fe7..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail032.hs
+++ /dev/null
@@ -1,16 +0,0 @@
-{- This test gives the following not-very-wonderful error message.
-
- "tc_sig.hs", line 3: Type signature does not match the inferred type:
- Signature: t76 -> Int
- Inferred type: t75
-
-It *is* an error, because x does not have the polytype
- forall a. Eq a => a -> Int
-becuase it is monomorphic, but the error message isn't very illuminating.
--}
-
-module TcSig where
-
-f x = (x :: (Eq a) => a -> Int)
-
-
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail032.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail032.stderr
deleted file mode 100644
index 7229913fa8ae..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail032.stderr
+++ /dev/null
@@ -1,11 +0,0 @@
-
-tcfail032.hs:14: A type signature is more polymorphic than the inferred type
- Some type variables in the inferred type can't be forall'd, namely:
- `a{-aG1-}'
- Possible cause: the RHS mentions something subject to the monomorphism restriction
- In an expression with a type signature:
- `x ::
- _forall_ [a] {PrelBase.Eq a} => a -> PrelBase.Int'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail033.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail033.hs
deleted file mode 100644
index fdc0aff8ed5a..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail033.hs
+++ /dev/null
@@ -1,4 +0,0 @@
--- from Jon Hill
-module ShouldFail where
-
-buglet = [ x | (x,y) <- buglet ]
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail033.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail033.stderr
deleted file mode 100644
index 72b2c88befa1..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail033.stderr
+++ /dev/null
@@ -1,12 +0,0 @@
-
-tcfail033.hs:4: Cannot construct the infinite type (occur check)
- `t{-aKn-}' = `(t{-aKn-}, t{-aKq-})'
- Expected: `a{-aKs-} (t{-aKn-}, t{-aKq-})'
- Inferred: `a{-aKs-} t{-aKn-}'
- In a pattern binding:
- `buglet'
- = `[ x |
- (x, y) <- buglet ]'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail034.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail034.hs
deleted file mode 100644
index 82aa18b41872..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail034.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-{-
-From: Jon Hill <hilly@dcs.qmw.ac.uk@jess.gla.ac.uk@pp.dcs.glasgow.ac.uk>
-To: glasgow-haskell-bugs
-Subject: Unfriendly error message
-Date: Thu, 25 Jun 1992 09:22:55 +0100
-
-Hello again,
-
-I came across a rather nasty error message when I gave a function an
-incorrect type signature (the context is wrong). I can remember reading
-in the source about this problem - I just thought I'd let you know anyway :-)
--}
-module ShouldSucceed where
-
-
-test::(Num a, Eq a) => a -> Bool
-test x = (x `mod` 3) == 0
-
-{-
-granite> ndph bug002.ldh
-Data Parallel Haskell Compiler, version 0.01 (Glasgow 0.07)
-
-
-"<unknown>", line <unknown>: Cannot express dicts in terms of dictionaries available:
-dicts_encl:
- "<built-in>", line : dict.87 :: <Num a>
- "<built-in>", line : dict.88 :: <Eq a>
-dicts_encl':
- "<built-in>", line : dict.87 :: <Num a>
- "<built-in>", line : dict.88 :: <Eq a>
-dicts:
- "<built-in>", line : dict.87 :: <Num a>
- "<built-in>", line : dict.88 :: <Eq a>
-super_class_dict: "<built-in>", line : dict.80 :: <Integral a>
-Fail: Compilation errors found
-
-dph: execution of the Haskell compiler had trouble
-
--}
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail034.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail034.stderr
deleted file mode 100644
index ec4adbd32a49..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail034.stderr
+++ /dev/null
@@ -1,8 +0,0 @@
-
-tcfail034.hs:13: tcfail034.hs:17: Context required by inferred type, but missing on a type signature:
- at a use of an overloaded identifier: `PrelNum.mod'
- `PrelNum.Integral' `a{-aZO-}'
- When checking signature(s) for: `test'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail035.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail035.hs
deleted file mode 100644
index a12908ee5a24..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail035.hs
+++ /dev/null
@@ -1,9 +0,0 @@
---!!! instances with empty where parts: duplicate
---
-module M where
-
-data NUM = ONE | TWO
-instance Num NUM
-instance Num NUM
-instance Eq NUM
-instance Show NUM
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail035.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail035.stderr
deleted file mode 100644
index e94c4d02298d..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail035.stderr
+++ /dev/null
@@ -1,11 +0,0 @@
-
-tcfail035.hs:3: Duplicate or overlapping instance declarations
- Class `PrelBase.Num' type `NUM'
- at tcfail035.hs:6 and tcfail035.hs:7
-
-tcfail035.hs:3: Duplicate or overlapping instance declarations
- Class `PrelBase.Num' type `NUM'
- at tcfail035.hs:6 and tcfail035.hs:7
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail036.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail036.hs
deleted file mode 100644
index eb9f9aff85b8..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail036.hs
+++ /dev/null
@@ -1,10 +0,0 @@
---!!! prelude class name in an instance-tycon position
---
-module M where
-
-data NUM = ONE | TWO
-instance Num NUM
- where ONE + ONE = TWO
-instance Num NUM
-instance Eq Num
---instance Text Num
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail036.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail036.stderr
deleted file mode 100644
index f374fcb96713..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail036.stderr
+++ /dev/null
@@ -1,61 +0,0 @@
-
-tcfail036.hs:9: Class used as a type constructor: `PrelBase.Num'
-
-tcfail036.hs:3: Duplicate or overlapping instance declarations
- Class `PrelBase.Num' type `NUM'
- at tcfail036.hs:7 and tcfail036.hs:8
-
-tcfail036.hs:3: Duplicate or overlapping instance declarations
- Class `PrelBase.Num' type `NUM'
- at tcfail036.hs:7 and tcfail036.hs:8
-
-tcfail036.hs:8: No instance for:
- `PrelBase.Eq NUM'
- tcfail036.hs:8:
- in an instance declaration
- When checking methods of an instance declaration
-
-tcfail036.hs:8: No instance for:
- `PrelBase.Show NUM'
- tcfail036.hs:8:
- in an instance declaration
- When checking methods of an instance declaration
-
-tcfail036.hs:8: No instance for:
- `PrelBase.Eq NUM'
- tcfail036.hs:8:
- in an instance declaration
- When checking superclass constraints of an instance declaration
-
-tcfail036.hs:8: No instance for:
- `PrelBase.Show NUM'
- tcfail036.hs:8:
- in an instance declaration
- When checking superclass constraints of an instance declaration
-
-tcfail036.hs:7: No instance for:
- `PrelBase.Eq NUM'
- tcfail036.hs:7:
- in an instance declaration
- When checking methods of an instance declaration
-
-tcfail036.hs:7: No instance for:
- `PrelBase.Show NUM'
- tcfail036.hs:7:
- in an instance declaration
- When checking methods of an instance declaration
-
-tcfail036.hs:7: No instance for:
- `PrelBase.Eq NUM'
- tcfail036.hs:7:
- in an instance declaration
- When checking superclass constraints of an instance declaration
-
-tcfail036.hs:7: No instance for:
- `PrelBase.Show NUM'
- tcfail036.hs:7:
- in an instance declaration
- When checking superclass constraints of an instance declaration
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail037.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail037.hs
deleted file mode 100644
index 07b308b98cc3..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail037.hs
+++ /dev/null
@@ -1,11 +0,0 @@
---!!! PreludeCore entities cannot be redefined at the top-level
---
-module M where
-
-data NUM = ONE | TWO
-
-f a b = a + b
-f :: NUM -> NUM -> NUM
-
-ONE + ONE = TWO
-
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail037.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail037.stderr
deleted file mode 100644
index b18a95d9985b..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail037.stderr
+++ /dev/null
@@ -1,8 +0,0 @@
-
-tcfail037.hs:3:
- Conflicting definitions for: `+'
- Defined at tcfail037.hs:10
- Imported from Prelude at tcfail037.hs:3
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail038.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail038.hs
deleted file mode 100644
index 7d03529a4e78..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail038.hs
+++ /dev/null
@@ -1,11 +0,0 @@
---!!! duplicate class-method declarations
-
-module M where
-
-data NUM = ONE | TWO
-instance Eq NUM where
- a == b = True
- a /= b = False
- a == b = False
- a /= b = True
-
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail038.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail038.stderr
deleted file mode 100644
index 84e74e123d47..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail038.stderr
+++ /dev/null
@@ -1,9 +0,0 @@
-
-tcfail038.hs:8:
- Conflicting definitions for `/=' in the bindings in an instance declaration
-
-tcfail038.hs:7:
- Conflicting definitions for `==' in the bindings in an instance declaration
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail039.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail039.hs
deleted file mode 100644
index f0df10c28712..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail039.hs
+++ /dev/null
@@ -1,12 +0,0 @@
---!!! bogus re-use of prelude class-method name (==)
---
-module M where
-
-data NUM = ONE | TWO
-class EQ a where
- (==) :: a -> a -> Bool
-
-instance EQ NUM
--- a /= b = False
--- a == b = True
--- a /= b = False
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail039.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail039.stderr
deleted file mode 100644
index 574b8888b330..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail039.stderr
+++ /dev/null
@@ -1,8 +0,0 @@
-
-tcfail039.hs:3:
- Conflicting definitions for: `=='
- Defined at tcfail039.hs:7
- Imported from Prelude at tcfail039.hs:3
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail040.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail040.hs
deleted file mode 100644
index c611518ee4ab..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail040.hs
+++ /dev/null
@@ -1,29 +0,0 @@
---!!! instances of functions
---
-module M where
-
-data NUM = ONE | TWO
-
-class EQ a where
- (===) :: a -> a -> Bool
-
-class ORD a where
- (<<) :: a -> a -> Bool
- a << b = True
-
-instance EQ (a -> b) where
- f === g = True
-
-instance ORD (a -> b)
-
-f = (<<) === (<<)
---f :: (EQ a,Num a) => a -> a -> Bool
-
-
-{-
-instance EQ NUM where
--- a /= b = False
- a === b = True
--- a /= b = False
-
--}
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail040.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail040.stderr
deleted file mode 100644
index 51d6bfd51a6b..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail040.stderr
+++ /dev/null
@@ -1,7 +0,0 @@
-
-tcfail040.hs:3: tcfail040.hs:19: Ambiguous overloading:
- at a use of an overloaded identifier: `<<'
- `ORD' `a{-aGQ-}'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail041.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail041.hs
deleted file mode 100644
index 542c400a8653..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail041.hs
+++ /dev/null
@@ -1,61 +0,0 @@
-{-
-To: Lennart Augustsson <augustss@cs.chalmers.se>
-Cc: partain@dcs.gla.ac.uk, John Peterson (Yale) <peterson-john@cs.yale.edu>,
- simonpj@dcs.gla.ac.uk
-Subject: Type checking matter
-Date: Fri, 23 Oct 92 15:28:38 +0100
-From: Simon L Peyton Jones <simonpj@dcs.gla.ac.uk>
-
-
-I've looked at the enclosed again. It seems to me that
-since "s" includes a recursive call to "sort", inside the body
-of "sort", then "sort" is monomorphic, and hence so is "s";
-hence the type signature (which claims full polymorphism) is
-wrong.
-
-[Lennart says he can't see any free variables inside "s", but there
-is one, namely "sort"!]
-
-Will: one for the should-fail suite?
-
-Simon
-
-
-------- Forwarded Message
-
-
-From: Lennart Augustsson <augustss@cs.chalmers.se>
-To: partain
-Subject: Re: just to show you I'm a nice guy...
-Date: Tue, 26 May 92 17:30:12 +0200
-
-> Here's a fairly simple module from our compiler, which includes what
-> we claim is an illegal type signature (grep ILLEGAL ...).
-> Last time I checked, hbc accepted this module.
-
-Not that I don't believe you, but why is this illegal?
-As far as I can see there are no free variables in the function s,
-which makes me believe that it can typechecked like a top level
-definition. And for a top level defn the signature should be
-all right.
-
- -- Lennart
-- ------- End of forwarded message -------
--}
-module ShouldFail where
-
-sort :: Ord a => [a] -> [a]
-sort xs = s xs (length xs)
- where
- s :: Ord b => [b] -> Int -> [b] -- This signature is WRONG
- s xs k = if k <= 1 then xs
- else merge (sort ys) (sort zs)
- where (ys,zs) = init_last xs (k `div` (2::Int))
-
--- Defns of merge and init_last are just dummies with the correct types
-merge :: Ord a => [a] -> [a] -> [a]
-merge xs ys = xs
-
-init_last :: [a] -> Int -> ([a],[a])
-init_last a b = (a,a)
-
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail041.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail041.stderr
deleted file mode 100644
index c2e2b69fc2e8..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail041.stderr
+++ /dev/null
@@ -1,87 +0,0 @@
-
-
---================================================================================
-Typechecked:
-`d.Ord' =
- `PrelBase.$d6'
-`<=' =
- `PrelBase.<='
- `PrelBase.Int'
- `d.Ord'
-`d.Num' =
- `PrelBase.$d3'
-`fromInt' =
- `PrelBase.fromInt'
- `PrelBase.Int'
- `d.Num'
-`lit' =
- `fromInt'
- `PrelBase.I#'
- 1#
-`d.Integral' =
- `PrelNum.$d36'
-`div' =
- `PrelNum.div'
- `PrelBase.Int'
- `d.Integral'
-`fromInt' =
- `fromInt'
-`lit' =
- `fromInt'
- `PrelBase.I#'
- 2#
-AbsBinds
-[`a{-a121-}']
-[]
-[([`a{-a121-}'], `init_last', `init_last')]
- `init_last'
- `a' `b' = `(a, a)'
-AbsBinds
-[`a{-a12a-}']
-[`d.Ord']
-[([`a{-a12a-}'], `merge', `merge')]
- `merge'
- `xs' `ys'
- = `xs'
-AbsBinds [`a{-a12l-}'] [`d.Ord'] [([`a{-a12l-}'], `sort', `sort')]
- `d.Ord' =
- `d.Ord'
- `sort'
- `xs' = `s xs
- PrelList.length
- a{-a12l-}
- xs'
- where
- AbsBinds [`b{-a12s-}'] [`d.Ord'] [([`b{-a12s-}'], `s', `s')]
- `d.Ord' =
- `d.Ord'
- `merge' =
- `merge'
- `b{-a12s-}'
- `d.Ord'
- `d.Ord' =
- `d.Ord'
- `sort' =
- `sort'
- `b{-a12s-}'
- `d.Ord'
- `sort' =
- `sort'
- `s' `xs' `k'
- = `if k <= lit then
- xs
- else
- merge
- sort
- ys
- sort
- zs'
- where
- AbsBinds [] [] [([], `ys', `ys'), ([], `zs', `zs')]
- (`ys', `zs')
- = `init_last
- b{-a12s-}
- xs k div lit'
- `s' =
- `s' `a{-a12l-}'
- `d.Ord'
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail042.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail042.hs
deleted file mode 100644
index 37c24936a996..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail042.hs
+++ /dev/null
@@ -1,28 +0,0 @@
---!!! weird class/instance examples off the haskell list
---
-
-class Foo a where foo :: a -> a
-class Foo a => Bar a where bar :: a -> a
-
-
-instance Num a => Foo [a] where
- foo [] = []
- foo (x:xs) = map (x+) xs
-
-
-instance (Eq a, Show a) => Bar [a] where
- bar [] = []
- bar (x:xs) = foo xs where u = x==x
- v = show x
-
-------------------------------------------
-
-{-
-class Foo a => Bar2 a where bar2 :: a -> a
-
-instance (Eq a, Show a) => Foo [a]
-
-instance Num a => Bar2 [a]
-
-data X a = X a
--}
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail042.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail042.stderr
deleted file mode 100644
index 6bc85529f2de..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail042.stderr
+++ /dev/null
@@ -1,10 +0,0 @@
-
-tcfail042.hs:16: tcfail042.hs:16: Context required by inferred type, but missing on a type signature:
- in an instance declaration
- `PrelBase.Num' `a{-aN7-}'
- When checking superclass constraints of an instance declaration
-
-tcfail042.hs:4: Module Main must include a definition for `Main.main'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail043.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail043.hs
deleted file mode 100644
index cc1983be5bad..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail043.hs
+++ /dev/null
@@ -1,222 +0,0 @@
--- The translation of this program should assign only one dictionary to
--- the function search (an Ord dictionary). Instead, it assigns two.
--- The output produced currently displays this.
-
--- 10/12/92: This program is actually erroneous. The pattern-binding for
--- search falls under the monomorphism restriction, and there is no
--- call to search which might fix its type. So there should be a complaint.
--- But the actual error message is horrible:
---
--- "bug001.hs", line 26: Ambiguous overloading:
--- class "Ord_", type "a" (at a use of an overloaded identifier: gt)
--- class "Eq_", type "a" (at a use of an overloaded identifier: eq)
-
-
-
-class Eq_ a where
- eq :: a -> a -> Bool
-
-instance Eq_ Int where
- eq = eqIntEq
-
-instance (Eq_ a) => Eq_ [a] where
- eq = \ xs ys ->
- if (null xs)
- then (null ys)
- else if (null ys)
- then False
- else and (eq (hd xs) (hd ys)) (eq (tl xs) (tl ys))
-
-class (Eq_ a) => Ord_ a where
- gt :: a -> a -> Bool
-
-instance Ord_ Int where
- gt = ordIntGt
-
-search
- = \ a bs -> if gt (hd bs) a
- then False
- else if eq a (hd bs) then True else search a (tl bs)
-
-and :: Bool -> Bool -> Bool
-and True True = True
-
-hd :: [a] -> a
-hd (a:as) = a
-
-tl :: [a] -> [a]
-tl (a:as) = as
-
-ordIntGt :: Int -> Int -> Bool
-ordIntGt 2 3 = True
-
-eqIntEq :: Int -> Int -> Bool
-eqIntEq 2 3 = True
-
-null :: [a] -> Bool
-null [] = True
-
-
-
-{-
-
-===============================================
-Main.Eq__INST_PreludeBuiltin.Int =
- let
- AbsBinds [] [] [(eq, eq)]
- {- nonrec -}
- {-# LINE 2 "test3.hs" -}
-
- eq :: PreludeBuiltin.Int -> PreludeBuiltin.Int -> PreludeCore.Bool
- eq = Main.eqIntEq
- in ({-dict-} [] [eq])
-
-Main.Eq__INST_PreludeBuiltin.List =
- /\ t135 ->
- \{-dict-} _dict138 ->
- let
- {- nonrec -}
- _dict136 = {-singleDict-} _dict138
- {- nonrec -}
- _dict129 = {-singleDict-} _dict136
- AbsBinds [] [] [(eq, eq)]
- {- nonrec -}
-
- _dict133 =
- Main.Eq__INST_PreludeBuiltin.List
- [t135] [{-singleDict-} _dict136]
- {- nonrec -}
- {-# LINE 5 "test3.hs" -}
-
- eq :: [t135] -> [t135] -> PreludeCore.Bool
- eq = \ xs ys ->
-
-if (Main.null t135) xs then
- (Main.null t135) ys
- else
-
- if (Main.null t135) ys then
- PreludeCore.False
- else
-
- Main.and
-
-
- ((Main.Eq_.eq t135 _dict129)
-
-
- ((Main.hd t135) xs)
- ((Main.hd t135) ys))
-
-
-
-
-
-
-(Main.Eq_.eq [t135] _dict133)
-
-
-
- ((Main.tl t135) xs)
- ((Main.tl t135) ys))
- in ({-dict-} [] [eq])
-Main.Ord__INST_PreludeBuiltin.Int =
- let
- {- nonrec -}
- _dict142 = Main.Eq__INST_PreludeBuiltin.Int [] []
- AbsBinds [] [] [(gt, gt)]
- {- nonrec -}
- {-# LINE 16 "test3.hs" -}
-
- gt :: PreludeBuiltin.Int -> PreludeBuiltin.Int -> PreludeCore.Bool
- gt = Main.ordIntGt
- in ({-dict-} [_dict142] [gt])
-
-Main.Eq_.eq = /\ a -> \{-classdict-} [] [eq] -> eq
-
-Main.Ord_.gt = /\ a -> \{-classdict-} [_dict56] [gt] -> gt
-
-Main.Ord__TO_Main.Eq_ = /\ a -> \{-classdict-} [_dict58] [gt] -> ???_dict58???
-
-AbsBinds [t60] [] [(hd, Main.hd)]
- {- nonrec -}
-
-
-
- hd :: [t60] -> t60
- hd (a PreludeBuiltin.: as)
- = a
-
-AbsBinds [t68] [] [(tl, Main.tl)]
- {- nonrec -}
-
-
-
-
- tl :: [t68] -> [t68]
- tl (a PreludeBuiltin.: as)
- = as
-
-
-AbsBinds [t91] [_dict85, _dict88] [(search, Main.search)]
- {- rec -}
- {-# LINE 19 "test3.hs" -}
-
-
- search :: t91 -> [t91] -> PreludeCore.Bool
- search
- = \ a bs ->
-
-
-if (Main.Ord_.gt t91 _dict85) ((Main.hd t91) bs) a then
- PreludeCore.False
- else
-
- if (Main.Eq_.eq t91 _dict88) a ((Main.hd t91) bs) then
- PreludeCore.True
- else
-
- search a ((Main.tl t91) bs)
-AbsBinds [] [] [(and, Main.and)]
- {- nonrec -}
- and :: PreludeCore.Bool -> PreludeCore.Bool -> PreludeCore.Bool
- and PreludeCore.True PreludeCore.True
- = PreludeCore.True
-AbsBinds [] [] [(ordIntGt, Main.ordIntGt)]
- {- nonrec -}
- _dict97 = PreludeCore.Num_INST_PreludeBuiltin.Int [] []
- {- nonrec -}
- _dict98 = PreludeCore.Eq_INST_PreludeBuiltin.Int [] []
- {- nonrec -}
- _dict100 = PreludeCore.Num_INST_PreludeBuiltin.Int [] []
- {- nonrec -}
- _dict101 = PreludeCore.Eq_INST_PreludeBuiltin.Int [] []
- {- nonrec -}
-
-
-
- ordIntGt :: PreludeBuiltin.Int -> PreludeBuiltin.Int -> PreludeCore.Bool
- ordIntGt
- 2 3 = PreludeCore.True
-AbsBinds [] [] [(eqIntEq, Main.eqIntEq)]
- {- nonrec -}
- _dict105 = PreludeCore.Num_INST_PreludeBuiltin.Int [] []
- {- nonrec -}
- _dict106 = PreludeCore.Eq_INST_PreludeBuiltin.Int [] []
- {- nonrec -}
- _dict108 = PreludeCore.Num_INST_PreludeBuiltin.Int [] []
- {- nonrec -}
- _dict109 = PreludeCore.Eq_INST_PreludeBuiltin.Int [] []
- {- nonrec -}
-
- eqIntEq :: PreludeBuiltin.Int -> PreludeBuiltin.Int -> PreludeCore.Bool
- eqIntEq
- 2 3 = PreludeCore.True
-
-
-AbsBinds [t112] [] [(null, Main.null)]
- {- nonrec -}
-
- null :: [t112] -> PreludeCore.Bool
- null [] = PreludeCore.True
--}
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail043.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail043.stderr
deleted file mode 100644
index 5454a6ad39ef..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail043.stderr
+++ /dev/null
@@ -1,13 +0,0 @@
-
-tcfail043.hs:16:
- Conflicting definitions for: `and'
- Defined at tcfail043.hs:42
- Imported from Prelude at tcfail043.hs:16
-
-tcfail043.hs:16:
- Conflicting definitions for: `null'
- Defined at tcfail043.hs:57
- Imported from Prelude at tcfail043.hs:16
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail044.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail044.hs
deleted file mode 100644
index 3f899a6f6b88..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail044.hs
+++ /dev/null
@@ -1,22 +0,0 @@
---!!! tcfail044: duplicated type variable in instance decls
---
-module Main where
-
-instance (Eq a) => Eq (a->a)
-
-
-instance (Num a) => Num (a->a) where
- f + g = \x -> f x + g x
- negate f = \x -> - (f x)
- f * g = \x -> f x * g x
- fromInteger n = \x -> fromInteger n
-
-ss :: Float -> Float
-cc :: Float -> Float
-tt :: Float -> Float
-
-ss = sin * sin
-cc = cos * cos
-tt = ss + cc
-
-main = putStr ((show (tt 0.4))++ " "++(show (tt 1.652)))
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail044.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail044.stderr
deleted file mode 100644
index 6a17c88a6320..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail044.stderr
+++ /dev/null
@@ -1,14 +0,0 @@
-
-tcfail044.hs:12: No instance for:
- `PrelBase.Eval (a{-a19I-} -> a{-a19I-})'
- tcfail044.hs:12:
- in an instance declaration
- When checking superclass constraints of an instance declaration
-
-tcfail044.hs:20: No instance for:
- `PrelBase.Eval (PrelBase.Float -> PrelBase.Float)'
- tcfail044.hs:20:
- at a use of an overloaded identifier: `PrelBase.+'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail045.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail045.hs
deleted file mode 100644
index 83a1daf81cce..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail045.hs
+++ /dev/null
@@ -1,10 +0,0 @@
---!!! a bad _CCallable thing (from a bug from Satnam)
---
-module ShouldSucceed where
-import PreludeGlaST
-
-data Socket = Socket# Addr
-instance CCallable Socket
-
-f :: Socket -> PrimIO ()
-f x = _ccall_ foo x
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail045.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail045.stderr
deleted file mode 100644
index 638a617cc487..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail045.stderr
+++ /dev/null
@@ -1,6 +0,0 @@
-
-tcfail045.hs:4:
- Could not find valid interface file `PreludeGlaST'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail046.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail046.hs
deleted file mode 100644
index 40fad6ba7d4a..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail046.hs
+++ /dev/null
@@ -1,32 +0,0 @@
---!! function types in deriving Eq things
--- From a bug report by Dave Harrison <D.A.Harrison@newcastle.ac.uk>
-
-module Simulation(Process,
- Status,
- Pid,
- Time,
- Continuation,
- Message,
- MessList ) where
-
-type Process a = Pid -> Time -> Message a -> ( MessList a,
- Continuation a)
-
-data Continuation a = Do (Process a) deriving Eq
-
-
-type ProcList a = [ (Pid, Status, Process a) ]
-data Status = Active | Passive | Busy Integer | Terminated
- deriving Eq
-
-
-data Message a = Create (Process a) | Created Pid | Activate Pid |
- Passivate Pid | Terminate Pid | Wait Pid Time |
- Query Pid a | Data Pid a | Event |
- Output Pid String
- deriving Eq
-
-type MessList a = [ Message a ]
-
-type Pid = Integer
-type Time = Integer
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail046.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail046.stderr
deleted file mode 100644
index 858e48e62645..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail046.stderr
+++ /dev/null
@@ -1,35 +0,0 @@
-
-tcfail046.hs:4: No instance for class
- `PrelBase.Eq'
- at type
- `Process a{-r7b-}'
-
-tcfail046.hs:4: No instance for class
- `PrelBase.Eq'
- at type
- `Process a{-r7g-}'
-
-tcfail046.hs:4: No instance for class
- `PrelBase.Eq'
- at type
- `Process a{-r7b-}'
-
-tcfail046.hs:4: No instance for class
- `PrelBase.Eq'
- at type
- `Process a{-r7g-}'
-
-tcfail046.hs:23: No instance for:
- `PrelBase.Eq (Process a{-a11o-})'
- tcfail046.hs:23:
- at a use of an overloaded identifier: `PrelBase.=='
- When checking methods of an instance declaration
-
-tcfail046.hs:15: No instance for:
- `PrelBase.Eq (Process a{-a14I-})'
- tcfail046.hs:15:
- at a use of an overloaded identifier: `PrelBase.=='
- When checking methods of an instance declaration
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail047.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail047.hs
deleted file mode 100644
index 12770a33eb2f..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail047.hs
+++ /dev/null
@@ -1,6 +0,0 @@
-
-class A a where
- op1 :: a -> a
-
-instance A (a,(b,c)) where
- op1 a = a
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail047.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail047.stderr
deleted file mode 100644
index 895309ff49a4..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail047.stderr
+++ /dev/null
@@ -1,7 +0,0 @@
-
-tcfail047.hs:6: The type ``(a{-r3e-}, (b{-r3f-}, c{-r3g-}))'' cannot be used as an instance type.
-
-tcfail047.hs:2: Module Main must include a definition for `Main.main'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail048.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail048.hs
deleted file mode 100644
index f4400e2fa01c..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail048.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldFail where
-
-class (B a) => C a where
- op1 :: a -> a
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail048.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail048.stderr
deleted file mode 100644
index b6fa0673a9d4..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail048.stderr
+++ /dev/null
@@ -1,6 +0,0 @@
-
-tcfail048.hs:4:
- Type constructor or class not in scope: `B'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail049.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail049.hs
deleted file mode 100644
index 64dee54a5c96..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail049.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-f x = g x
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail049.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail049.stderr
deleted file mode 100644
index d74b04512e42..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail049.stderr
+++ /dev/null
@@ -1,6 +0,0 @@
-
-tcfail049.hs:3:
- Value not in scope: `g'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail050.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail050.hs
deleted file mode 100644
index c0cee979f7e4..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail050.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-f x = B x
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail050.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail050.stderr
deleted file mode 100644
index c879f63787fe..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail050.stderr
+++ /dev/null
@@ -1,6 +0,0 @@
-
-tcfail050.hs:3:
- Data constructor not in scope: `B'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail051.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail051.hs
deleted file mode 100644
index 1b8e251c4083..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail051.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldFail where
-
-instance B Bool where
- op1 a = a
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail051.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail051.stderr
deleted file mode 100644
index 9136d3a0e09e..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail051.stderr
+++ /dev/null
@@ -1,6 +0,0 @@
-
-tcfail051.hs:4:
- Type constructor or class not in scope: `B'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail052.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail052.hs
deleted file mode 100644
index e9be21e6f2b2..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail052.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-data C a = B a c
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail052.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail052.stderr
deleted file mode 100644
index e31db7873024..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail052.stderr
+++ /dev/null
@@ -1,6 +0,0 @@
-
-tcfail052.hs:4:
- Type variable not in scope: `c'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail053.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail053.hs
deleted file mode 100644
index 99028ab4c8cb..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail053.hs
+++ /dev/null
@@ -1,2 +0,0 @@
-
-data B = C A
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail053.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail053.stderr
deleted file mode 100644
index 96cd3dda0593..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail053.stderr
+++ /dev/null
@@ -1,6 +0,0 @@
-
-tcfail053.hs:3:
- Type constructor or class not in scope: `A'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail054.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail054.hs
deleted file mode 100644
index a4e724cf18a2..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail054.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-f (B a) = True
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail054.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail054.stderr
deleted file mode 100644
index 6b7e65f8158a..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail054.stderr
+++ /dev/null
@@ -1,6 +0,0 @@
-
-tcfail054.hs:3:
- Data constructor not in scope: `B'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail055.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail055.hs
deleted file mode 100644
index f61c5a81be72..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail055.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldFail where
-
-f x = (x + 1 :: Int) :: Float
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail055.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail055.stderr
deleted file mode 100644
index 3e6317cefaab..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail055.stderr
+++ /dev/null
@@ -1,12 +0,0 @@
-
-tcfail055.hs:3: Couldn't match the type
- `PrelBase.Int' against `PrelBase.Float'
- Expected: `PrelBase.Float'
- Inferred: `PrelBase.Int'
- In an expression with a type signature:
- `(x PrelBase.+ 1 ::
- PrelBase.Int) ::
- PrelBase.Float'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail056.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail056.hs
deleted file mode 100644
index a8a1315be781..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail056.hs
+++ /dev/null
@@ -1,11 +0,0 @@
-module ShouldFail where
-
-data Foo = MkFoo Bool
-
-instance Eq Foo where
- (MkFoo x) == (MkFoo y) = x == y
-
-instance Eq Foo where
- -- forgot to type "Ord" above
- (MkFoo x) <= (MkFoo y) = x <= y
-
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail056.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail056.stderr
deleted file mode 100644
index e7afc4dff4cb..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail056.stderr
+++ /dev/null
@@ -1,13 +0,0 @@
-
-tcfail056.hs:1: Duplicate or overlapping instance declarations
- Class `PrelBase.Eq' type `Foo'
- at tcfail056.hs:6 and tcfail056.hs:10
-
-tcfail056.hs:1: Duplicate or overlapping instance declarations
- Class `PrelBase.Eq' type `Foo'
- at tcfail056.hs:6 and tcfail056.hs:10
-
-tcfail056.hs:10: Class `PrelBase.Eq' does not have a method `<='
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail057.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail057.hs
deleted file mode 100644
index bef0085fe542..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail057.hs
+++ /dev/null
@@ -1,6 +0,0 @@
-module ShouldFail where
-
---!!! inadvertently using -> instead of =>
-
-f :: (RealFrac a) -> a -> a
-f x = x
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail057.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail057.stderr
deleted file mode 100644
index 96199e7f1357..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail057.stderr
+++ /dev/null
@@ -1,5 +0,0 @@
-
-tcfail057.hs:5: Class used as a type constructor: `PrelNum.RealFrac'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail058.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail058.hs
deleted file mode 100644
index c05c85972f96..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail058.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-module ShouldFail where
-import Array
-
---!!! inadvertently using => instead of ->
-
-f :: (Array a) => a -> b
-f x = x
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail058.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail058.stderr
deleted file mode 100644
index d771e0e3cf90..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail058.stderr
+++ /dev/null
@@ -1,5 +0,0 @@
-
-tcfail058.hs:6: Type constructor used as a class: `ArrBase.Array'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail059.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail059.hs
deleted file mode 100644
index 8f80a6973880..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail059.hs
+++ /dev/null
@@ -1,3 +0,0 @@
---!! The tycon export shouldn't be allowed to succeed
---
-module Foo ( Bar(..) ) where { data Bar = Bar X; data X = Y }
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail059.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail059.stderr
deleted file mode 100644
index 89ffb6577047..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail059.stderr
+++ /dev/null
@@ -1,15 +0,0 @@
-
-
---================================================================================
-Typechecked:
-`Bar' =
- `\ tpl ->
- Bar {tpl}'
-`Y' =
- `Y {}'
-AbsBinds [] [] [([], `$d1', `d.Eval')]
- `d.Eval' =
- ({-dict-} [] [])
-AbsBinds [] [] [([], `$d2', `d.Eval')]
- `d.Eval' =
- ({-dict-} [] [])
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail060.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail060.hs
deleted file mode 100644
index 1d859923c421..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail060.hs
+++ /dev/null
@@ -1,9 +0,0 @@
---!! The class export shouldn't be allowed to succeed
---
-module Foo ( Baz(..) ) where
-
-class Baz a where
- opx :: Int -> Bar -> a -> a
-
-data Bar = Bar X
-data X = Y
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail060.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail060.stderr
deleted file mode 100644
index 9694aee5b0a7..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail060.stderr
+++ /dev/null
@@ -1,24 +0,0 @@
-
-
---================================================================================
-Typechecked:
-`Y' =
- `Y {}'
-`Bar' =
- `\ tpl ->
- Bar {tpl}'
-`opx' =
- `_/\_ a{-r6B-} -> \ tpl ->
- tpl'
-AbsBinds [`a{-aHH-}'] [`d.Baz'] [([`a{-aHH-}'], `$mopx', `opx')]
- AbsBinds [] [] [([], `opx', `opx')]
- `opx'
- = `GHCerr.noDefaultMethodError
- (PrelBase.Int -> Bar -> a{-aHH-} -> a{-aHH-})
- "Class Baz Method opx"'
-AbsBinds [] [] [([], `$d1', `d.Eval')]
- `d.Eval' =
- ({-dict-} [] [])
-AbsBinds [] [] [([], `$d2', `d.Eval')]
- `d.Eval' =
- ({-dict-} [] [])
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail061.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail061.hs
deleted file mode 100644
index 2957e800d5d3..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail061.hs
+++ /dev/null
@@ -1,11 +0,0 @@
---!! signature bugs exposed by Sigbjorne Finne
---
-module ShouldFail where
-
-type Flarp a = (b,b)
-
---More fun can be had if we change the signature slightly
-
-type Bob a = a
-
-type Flarp2 a = Bob (b,b)
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail061.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail061.stderr
deleted file mode 100644
index e9c3c39f1efe..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail061.stderr
+++ /dev/null
@@ -1,15 +0,0 @@
-
-tcfail061.hs:11:
- Type variable not in scope: `b'
-
-tcfail061.hs:11:
- Type variable not in scope: `b'
-
-tcfail061.hs:5:
- Type variable not in scope: `b'
-
-tcfail061.hs:5:
- Type variable not in scope: `b'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail062.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail062.hs
deleted file mode 100644
index 5c9b0ea2156b..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail062.hs
+++ /dev/null
@@ -1,37 +0,0 @@
---!!! bug report from Satnam
---
-module RubyAST
-where
-
-type Module = (String,[Declaration])
-
-data Declaration
- = Architecture String StructuralExpression |
- Behaviour String Parameter Parameter BehaviouralExpression
- deriving (Eq, Show)
-
-data Parameter = ParameterVariable String | ParameterList [Parameter]
- deriving (Eq, Show)
-
-nameOfModule :: Module -> String
-nameOfModule (name, _) = name
-
-data StructuralExpression
- = Variable String |
- Serial StructuralExpression StructuralExpression |
- Par [StructuralExpression]
- deriving (Eq, Show)
-
-data BehaviouralExpression
- = BehaviouralVariable String
- | AndExpr BehaviouralExpression BehaviouralExpression
- | OrExpr BehaviouralExpression BehaviouralExpression
- | NotExpr BehaviouralExpression
- deriving (Eq, Show)
-
-
-type BehaviouralRelation
- = (behaviouralExpression, behaviouralExpression)
------^ typo ----------------^ typo (but so what?)
-
-type BehaviouralRelationList = [BehaviouralRelation]
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail062.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail062.stderr
deleted file mode 100644
index 7cffa7b5e3b5..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail062.stderr
+++ /dev/null
@@ -1,9 +0,0 @@
-
-tcfail062.hs:33:
- Type variable not in scope: `behaviouralExpression'
-
-tcfail062.hs:33:
- Type variable not in scope: `behaviouralExpression'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail063.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail063.hs
deleted file mode 100644
index 562cdf4400cf..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail063.hs
+++ /dev/null
@@ -1,5 +0,0 @@
---!!! no type variable on a context
---!!! reported by Sigbjorn Finne
-
-moby :: Num => Int -> a -> Int
-moby x y = x+y
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail063.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail063.stderr
deleted file mode 100644
index bdec0c873ca5..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail063.stderr
+++ /dev/null
@@ -1 +0,0 @@
-tcfail063.hs:5:1: is_context_format: variable missing after class name on input: "moby"
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail064.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail064.hs
deleted file mode 100644
index e69de29bb2d1..000000000000
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail064.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail064.stderr
deleted file mode 100644
index 1709a477307b..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail064.stderr
+++ /dev/null
@@ -1,5 +0,0 @@
-
-tcfail064.hs:0: Module Main must include a definition for `Main.main'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail065.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail065.hs
deleted file mode 100644
index 3029b1978c46..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail065.hs
+++ /dev/null
@@ -1,37 +0,0 @@
-{-
-
-------- Forwarded Message
-
-Date: Wed, 30 Nov 1994 16:34:18 +0100
-From: John Hughes <rjmh@cs.chalmers.se>
-To: augustss@cs.chalmers.se, simonpj@dcs.gla.ac.uk
-Subject: Nice little program
-
-
-Lennart, Simon,
-
-You might like to look at the fun little program below.
-
-THUMBS DOWN to hbc for compiling it (it prints [72, 101, 108, 108, 111])
-THUMBS UP to ghc for rejecting it --- but what an error message!
-nhc and gofer both reject it with the right error message.
-I haven't tried Yale Haskell.
-
-Enjoy!
-- ----------------------------
--}
-
-class HasX a where
- setX :: x->a->a
-
-data X x = X x
-instance HasX (X x) where
- setX x (X _) = X x
-
-changetype x = case setX x (X (error "change type!")) of X y->y
-
-main = print (changetype "Hello" :: [Int])
-
-{-
-------- End of Forwarded Message
--}
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail065.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail065.stderr
deleted file mode 100644
index c579c2ea84e8..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail065.stderr
+++ /dev/null
@@ -1,9 +0,0 @@
-
-<NoSrcLoc>: A type signature is more polymorphic than the inferred type
- Some type variables in the inferred type can't be forall'd, namely:
- `x{-aNe-}'
- Possible cause: the RHS mentions something subject to the monomorphism restriction
- When checking signature for `setX'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail066.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail066.hs
deleted file mode 100644
index 2d2e9bafd8b3..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail066.hs
+++ /dev/null
@@ -1,42 +0,0 @@
---!! INLINE on recursive functions.
-{-
-Date: Thu, 8 Dec 94 11:38:24 GMT
-From: Julian Seward (DRL PhD) <sewardj@computer-science.manchester.ac.uk>
-Message-Id: <9412081138.AA16652@rdf009.cs.man.ac.uk>
-To: partain@dcs.gla.ac.uk
--}
-module ShouldFail where
-
-type IMonad a
- = IMonadState -> IMonadReturn a
-
-data IMonadReturn a
- = IMonadOk IMonadState a
- | IMonadFail IMonadState String
-
-type IMonadState
- = Int
-
-
-returnI r = \s0 -> IMonadOk s0 r
-
-failI msg = \s0 -> IMonadFail s0 msg
-
-thenI m k
- = \s0 -> case m s0 of
- IMonadFail s1 msg -> IMonadFail s1 msg
- IMonadOk s1 r1 -> k r1 s1
-
-tickI n = \s0 -> IMonadOk (s0+n) ()
-
-mapI f [] = returnI []
-mapI f (x:xs) = f x `thenI` ( \ fx ->
- mapI f xs `thenI` ( \ fxs ->
- returnI (fx:fxs)
- ))
-
-{-# INLINE returnI #-}
-{-# INLINE failI #-}
-{-# INLINE thenI #-}
-{-# INLINE tickI #-}
-{-# INLINE mapI #-}
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail066.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail066.stderr
deleted file mode 100644
index 9d8a6a1d8c98..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail066.stderr
+++ /dev/null
@@ -1,74 +0,0 @@
-
-
---================================================================================
-Typechecked:
-`IMonadOk' =
- `_/\_ a{-r44-} -> \ tpl tpl ->
- IMonadOk
- {_@_ a{-r44-} tpl tpl}'
-`IMonadFail' =
- `_/\_ a{-r44-} -> \ tpl tpl ->
- IMonadFail
- {_@_ a{-r44-} tpl tpl}'
-AbsBinds [`a{-aKg-}'] [] [([`a{-aKg-}'], `$d1', `d.Eval')]
- `d.Eval' =
- ({-dict-} [] [])
-`d.Num' =
- `PrelBase.$d3'
-`+' =
- `PrelBase.+'
- `IMonadState'
- `d.Num'
-AbsBinds [] [] [([], `tickI', `tickI')]
- `tickI'
- `n' = `\ s0 -> IMonadOk
- PrelBase.()
- s0 + n PrelBase.()'
-AbsBinds
-[`t{-aJ6-}', `a{-aIN-}', `a{-aIR-}']
-[]
-[([`t{-aJ6-}', `a{-aIN-}', `a{-aIR-}'], `thenI', `thenI')]
- `thenI'
- `m' `k' = `\ s0 -> case m s0 of
- (IMonadFail s1 msg)
- -> IMonadFail
- a{-aIN-}
- s1 msg
- (IMonadOk s1 r1)
- -> k r1 s1'
-AbsBinds [`a{-aJg-}'] [] [([`a{-aJg-}'], `failI', `failI')]
- `failI'
- `msg' = `\ s0 -> IMonadFail
- a{-aJg-}
- s0 msg'
-AbsBinds [`a{-aJn-}'] [] [([`a{-aJn-}'], `returnI', `returnI')]
- `returnI'
- `r' = `\ s0 -> IMonadOk
- a{-aJn-}
- s0 r'
-AbsBinds
-[`t{-aJz-}', `t{-aJC-}']
-[]
-[([`t{-aJz-}', `t{-aJC-}'], `mapI', `mapI')]
- `mapI'
- `f' `PrelBase.[]'
- = `returnI
- [t{-aJz-}]
- PrelBase.[]
- t{-aJz-}'
- `mapI'
- `f' (`x' `PrelBase.:' `xs')
- = `thenI
- [IMonadState, [t{-aJz-}], t{-aJz-}]
- (f x)
- (\ fx -> thenI
- [IMonadState, [t{-aJz-}], [t{-aJz-}]]
- (mapI
- f xs)
- (\ fxs -> returnI
- [t{-aJz-}]
- PrelBase.:
- t{-aJz-}
- fx fxs))'
-
-NOTE: Simplifier still going after 4 iterations; bailing out.
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail067.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail067.hs
deleted file mode 100644
index 99d4c648c06a..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail067.hs
+++ /dev/null
@@ -1,98 +0,0 @@
-module SubRange where
-
-infixr 1 `rangeOf`
-
-
-data Ord a => SubRange a = SubRange (a, a) a
-
-type IntSubRange = SubRange Int
-
-
-subRangeValue :: SubRange a -> a
-subRangeValue (SubRange (lower, upper) value) = value
-
-subRange :: SubRange a -> (a, a)
-subRange (SubRange r value) = r
-
-newRange :: (Ord a, Show a) => (a, a) -> a -> SubRange a
-newRange r value = checkRange (SubRange r value)
-
-
-checkRange :: (Ord a, Show a) => SubRange a -> SubRange a
-checkRange (SubRange (lower, upper) value)
- = if (value < lower) || (value > upper) then
- error ("### sub range error. range = " ++ show lower ++
- ".." ++ show upper ++ " value = " ++ show value ++ "\n")
- else
- SubRange (lower, upper) value
-
-
-instance Eq a => Eq (SubRange a) where
- (==) a b = subRangeValue a == subRangeValue b
-
-instance (Ord a) => Ord (SubRange a) where
- (<) = relOp (<)
- (<=) = relOp (<=)
- (>=) = relOp (>=)
- (>) = relOp (>)
-
-relOp :: Ord a => (a->a->Bool) -> SubRange a -> SubRange a -> Bool
-relOp op a b = (subRangeValue a) `op` (subRangeValue b)
-
-rangeOf :: (Ord a, Show a) => SubRange a -> SubRange a -> SubRange a
-rangeOf a b = checkRange (SubRange (subRange b) (subRangeValue a))
-
-showRange :: Show a => SubRange a -> String
-showRange (SubRange (lower, upper) value)
- = show value ++ " :" ++ show lower ++ ".." ++ show upper
-
-showRangePair :: (Show a, Show b) => (SubRange a, SubRange b) -> String
-showRangePair (a, b)
- = "(" ++ showRange a ++ ", " ++ showRange b ++ ")"
-
-showRangeTriple :: (Show a, Show b, Show c) =>
- (SubRange a, SubRange b, SubRange c) -> String
-showRangeTriple (a, b, c)
- = "(" ++ showRange a ++ ", " ++ showRange b ++ ", " ++ showRange c ++ ")"
-
-
-
-instance Num a => Num (SubRange a) where
- negate = numSubRangeNegate
- (+) = numSubRangeAdd
- (-) = numSubRangeSubtract
- (*) = numSubRangeMultiply
- fromInteger a = SubRange (fromInteger a, fromInteger a) (fromInteger a)
-
-numSubRangeNegate :: (Ord a, Num a) => SubRange a -> SubRange a
-numSubRangeNegate (SubRange (lower, upper) value)
- = checkRange (SubRange (lower, upper) (-value))
-
-numSubRangeBinOp :: Num a => (a -> a -> a) ->
- SubRange a -> SubRange a -> SubRange a
-numSubRangeBinOp op a b
- = SubRange (result, result) result
- where
- result = (subRangeValue a) `op` (subRangeValue b)
-
--- partain:
-numSubRangeAdd, numSubRangeSubtract, numSubRangeMultiply :: Num a => SubRange a -> SubRange a -> SubRange a
-
-numSubRangeAdd = numSubRangeBinOp (+)
-numSubRangeSubtract = numSubRangeBinOp (-)
-numSubRangeMultiply = numSubRangeBinOp (*)
-
-unsignedBits :: Int -> (Int, Int)
-unsignedBits n = (0, 2^n-1)
-
-signedBits :: Int -> (Int, Int)
-signedBits n = (-2^(n-1), 2^(n-1)-1)
-
-
-si_n :: Int -> Int -> IntSubRange
-si_n bits value = SubRange (signedBits bits) value
-
-si8, si10, si16 :: Int -> IntSubRange
-si8 = si_n 8
-si10 = si_n 10
-si16 = si_n 16
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail067.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail067.stderr
deleted file mode 100644
index 724cb4875fbe..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail067.stderr
+++ /dev/null
@@ -1,13 +0,0 @@
-
-tcfail067.hs:1: tcfail067.hs:76: Context required by inferred type, but missing on a type signature:
- at a use of an overloaded identifier: `SubRange'
- `PrelBase.Ord' `a{-a1dZ-}'
- When checking signature(s) for: `numSubRangeBinOp'
-
-tcfail067.hs:65: tcfail067.hs:61: Context required by inferred type, but missing on a type signature:
- at a use of an overloaded identifier: `numSubRangeNegate'
- `PrelBase.Ord' `a{-a1fx-}'
- When checking methods of an instance declaration
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail068.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail068.hs
deleted file mode 100644
index 0d081b9d261e..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail068.hs
+++ /dev/null
@@ -1,92 +0,0 @@
---!! Make sure that state threads don't escape
---!! (example from Neil Ashton at York)
---
-module IndTree(IndTree(..), itgen, itiap, itrap, itrapstate) where
-
---partain: import Auxiliary
-import GlaExts
-
-type IndTree s t = MutableArray s (Int,Int) t
-
-itgen :: Constructed a => (Int,Int) -> a -> IndTree s a
-itgen n x =
- runST (
- newArray ((1,1),n) x)
-
-itiap :: Constructed a => (Int,Int) -> (a->a) -> IndTree s a -> IndTree s a
-itiap i f arr =
- runST (
- readArray arr i `thenStrictlyST` \val ->
- writeArray arr i (f val) `seqStrictlyST`
- returnStrictlyST arr)
-
-itrap :: Constructed a => ((Int,Int),(Int,Int)) -> (a->a) -> IndTree s a -> IndTree s a
-itrap ((i,k),(j,l)) f arr = runST(itrap' i k)
- where
- itrap' i k = if k > l then returnStrictlyST arr
- else (itrapsnd i k `seqStrictlyST`
- itrap' i (k+1))
- itrapsnd i k = if i > j then returnStrictlyST arr
- else (readArray arr (i,k) `thenStrictlyST` \val ->
- writeArray arr (i,k) (f val) `seqStrictlyST`
- itrapsnd (i+1) k)
-
-itrapstate :: Constructed b => ((Int,Int),(Int,Int)) -> (a->b->(a,b)) -> ((Int,Int)->c->a) ->
- (a->c) -> c -> IndTree s b -> (c, IndTree s b)
-itrapstate ((i,k),(j,l)) f c d s arr = runST(itrapstate' i k s)
- where
- itrapstate' i k s = if k > l then returnStrictlyST (s,arr)
- else (itrapstatesnd i k s `thenStrictlyST` \(s,arr) ->
- itrapstate' i (k+1) s)
- itrapstatesnd i k s = if i > j then returnStrictlyST (s,arr)
- else (readArray arr (i,k) `thenStrictlyST` \val ->
- let (newstate, newval) = f (c (i,k) s) val
- in writeArray arr (i,k) newval `seqStrictlyST`
- itrapstatesnd (i+1) k (d newstate))
-
--- stuff from Auxiliary: copied here (partain)
-
-sap :: (a->b) -> (c,a) -> (c,b)
-sap f (x,y) = (x, f y)
-
-fap :: (a->b) -> (a,c) -> (b,c)
-fap f (x,y) = (f x, y)
-
-nonempty :: [a] -> Bool
-nonempty [] = False
-nonempty (_:_) = True
-
--- const :: a -> b -> a
--- const k x = k
-
--- id :: a -> a
--- id x = x
-
-compose :: [a->a] -> a -> a
-compose = foldr (.) id
-
-data Maybe t = Just t | Nothing
-
-class Constructed a where
- normal :: a -> Bool
-
-instance Constructed Bool where
- normal True = True
- normal False = True
-
-instance Constructed Int where
- normal 0 = True
- normal n = True
-
-instance (Constructed a, Constructed b) => Constructed (a,b) where
- normal (x,y) = normal x && normal y
-
--- pair :: (Constructed a, Constructed b) => a -> b -> (a,b)
--- pair x y | normal x && normal y = (x,y)
-
-instance Constructed (Maybe a) where
- normal Nothing = True
- normal (Just _) = True
-
-just :: Constructed a => a -> Maybe a
-just x | normal x = Just x
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail068.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail068.stderr
deleted file mode 100644
index 47bc53f764da..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail068.stderr
+++ /dev/null
@@ -1,69 +0,0 @@
-
-tcfail068.hs:4:
- Conflicting definitions for: `Just'
- Defined at tcfail068.hs:68
- Imported from Prelude at tcfail068.hs:4
-
-tcfail068.hs:4:
- Conflicting definitions for: `Nothing'
- Defined at tcfail068.hs:70
- Imported from Prelude at tcfail068.hs:4
-
-tcfail068.hs:4:
- Conflicting definitions for: `Maybe'
- Defined at tcfail068.hs:68
- Imported from Prelude at tcfail068.hs:4
-
-tcfail068.hs:14:
- Value not in scope: `runST'
-
-tcfail068.hs:21:
- Value not in scope: `runST'
-
-tcfail068.hs:19:
- Value not in scope: `returnStrictlyST'
-
-tcfail068.hs:19:
- Value not in scope: `seqStrictlyST'
-
-tcfail068.hs:21:
- Value not in scope: `thenStrictlyST'
-
-tcfail068.hs:26:
- Value not in scope: `returnStrictlyST'
-
-tcfail068.hs:26:
- Value not in scope: `seqStrictlyST'
-
-tcfail068.hs:29:
- Value not in scope: `returnStrictlyST'
-
-tcfail068.hs:30:
- Value not in scope: `seqStrictlyST'
-
-tcfail068.hs:29:
- Value not in scope: `thenStrictlyST'
-
-tcfail068.hs:32:
- Value not in scope: `runST'
-
-tcfail068.hs:38:
- Value not in scope: `returnStrictlyST'
-
-tcfail068.hs:38:
- Value not in scope: `thenStrictlyST'
-
-tcfail068.hs:41:
- Value not in scope: `returnStrictlyST'
-
-tcfail068.hs:42:
- Value not in scope: `seqStrictlyST'
-
-tcfail068.hs:41:
- Value not in scope: `thenStrictlyST'
-
-tcfail068.hs:45:
- Value not in scope: `runST'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail069.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail069.hs
deleted file mode 100644
index 73dd73854947..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail069.hs
+++ /dev/null
@@ -1,48 +0,0 @@
-{-
-From: Marc van Dongen <dongen@cs.ucc.ie>
-Date: Wed, 9 Apr 1997 14:06:39 +0100 (BST)
-
-I just wanted to report that the erroneous and tiny
-program added below can not be compiled within 6MB of
-heap (Admitted it can be compiled with a bigger heap).
-It was part of a bigger program that could not be
-compiled within 20MB of heap.
-
-[GHC 2.03 and earlier.] Turned out to be a bug in the
-error recovery mechanism.
-
--}
-
-module Too_Kuch( too_much ) where
-
-too_much :: [Int] -> [(Int,Int)] -> [(Int,[Int])] -> Bool
-too_much ds ((k,m):q1) s0
- = case (list1,list2) of
- [] -> error "foo" -- too_much ds q2m s2m
- where list1 = ds
- list2 = ds
- {-
- list1 = [k' | k' <- ds, k == k']
- list2 = [k' | k' <- ds, m == k']
- s1 = aas s0 k
- raM = []
- raKM = listUnion (\a b -> a) [] []
- s1k = s1
- q1k = raM
- s2k = s1
- q2k = raM
- s2m = s1
- q2m = raM
- s2km = foldr (flip aas) s1 raKM
- q2km = raKM
- -}
-
-listUnion :: (v -> v -> Bool) -> [v] -> [v] -> [v]
-listUnion _ _ _
- = []
-
-aas :: (a,b) -> a -> (a,b)
-aas s _
- = s
-
-
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail069.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail069.stderr
deleted file mode 100644
index f539eb137fe2..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail069.stderr
+++ /dev/null
@@ -1,28 +0,0 @@
-
-tcfail069.hs:21: Couldn't match the type
- `PrelBase.[]' against `PrelTup.(,) [PrelBase.Int]'
- Expected: `[t{-aF1-}]'
- Inferred: `([PrelBase.Int], [PrelBase.Int])'
- In a "case" branch:
- `PrelBase.[]'
- -> `IOBase.error
- "foo"'
- In a case expression:
- `case (list1, (list2)) of
- PrelBase.[]
- -> IOBase.error
- "foo"'
- In an equation for function `too_much':
- `too_much ds ((k, m) PrelBase.: q1) s0
- = case (list1, (list2)) of
- PrelBase.[]
- -> IOBase.error
- "foo"
- where
- list2
- = ds
- list1
- = ds'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail070.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail070.hs
deleted file mode 100644
index d6cd3d7eab16..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail070.hs
+++ /dev/null
@@ -1,14 +0,0 @@
-{-
-From: Wolfgang Drotschmann <drotschm@athene.informatik.uni-bonn.de>
-Resent-Date: Thu, 15 May 1997 17:23:09 +0100
-
-I'm still using the old ghc-2.01. In one program I ran into a problem
-I couldn't fix. But I played around with it, I found a small little
-script which reproduces it very well:
-
-panic! (the `impossible' happened):
- tlist
--}
-
-type State = ([Int] Bool)
-
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail070.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail070.stderr
deleted file mode 100644
index f5acaae2dcda..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail070.stderr
+++ /dev/null
@@ -1,9 +0,0 @@
-
-tcfail070.hs:13: Couldn't match the kind
- * against * -> ka2141
- When unifying two kinds
- * and * -> ka2141
- In the type declaration for `State'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail071.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail071.hs
deleted file mode 100644
index 49587286b998..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail071.hs
+++ /dev/null
@@ -1,10 +0,0 @@
---!!! Mis-matched contexts in a mutually recursive group
-
-module Foo7( f ) where
-
-f :: (Ord c) => c -> c
-f c = g c
-
-g :: c -> c
-g c = c
- where p = foldr (f c) [] []
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail071.stderr b/ghc/compiler/tests/typecheck/should_fail/tcfail071.stderr
deleted file mode 100644
index e69de29bb2d1..000000000000
diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail072.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail072.hs
deleted file mode 100644
index f7f57a76f4ed..000000000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail072.hs
+++ /dev/null
@@ -1,24 +0,0 @@
-{- This program crashed GHC 2.03
-
- From: Marc van Dongen <dongen@cs.ucc.ie>
- Date: Sat, 31 May 1997 14:35:40 +0100 (BST)
-
- zonkIdOcc: g_aoQ
-
- panic! (the `impossible' happened):
- lookupBindC:no info!
- for: g_aoQ
- (probably: data dependencies broken by an optimisation pass)
- static binds for:
- Tmp.$d1{-rmM,x-}
- local binds for:
--}
-
-module Tmp( g ) where
-
-data AB p q = A
- | B p q
-
-g :: (Ord p,Ord q) => (AB p q) -> Bool
-g (B _ _) = g A
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/ClassFoo.hi b/ghc/compiler/tests/typecheck/should_succeed/ClassFoo.hi
deleted file mode 100644
index fbda08656dc4..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/ClassFoo.hi
+++ /dev/null
@@ -1,5 +0,0 @@
-_interface_ ClassFoo 1
-_exports_
-ClassFoo Foo(op1 op2);
-_declarations_
-1 class Foo a where { op1 :: a -> PrelBase.Int; op2 :: a -> a -> PrelBase.Int} ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/M.hi b/ghc/compiler/tests/typecheck/should_succeed/M.hi
deleted file mode 100644
index ffb4e0c9dc8f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/M.hi
+++ /dev/null
@@ -1,4 +0,0 @@
-interface M where
-class (ORD a, Text a) => EQ a where (===) :: a -> a -> Bool
-class (Num a) => ORD a
-data NUM = ONE | TWO
diff --git a/ghc/compiler/tests/typecheck/should_succeed/Makefile b/ghc/compiler/tests/typecheck/should_succeed/Makefile
deleted file mode 100644
index faa19119eef9..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/Makefile
+++ /dev/null
@@ -1,25 +0,0 @@
-TOP = ../../../..
-include $(TOP)/mk/boilerplate.mk
-
-HS_SRCS = $(wildcard *.hs)
-
-SRC_RUNTEST_OPTS += -o1 $*.stdout -o2 $*.stderr -x 0
-HC_OPTS += -noC -ddump-tc -dcore-lint -hi
-
-# Expect failure. Why aren't they in "should-fail"?
-tc075_RUNTEST_OPTS += -x 1
-tc080_RUNTEST_OPTS += -x 1
-
-%.o : %.hs
-
-%.o : %.hs
- $(RUNTEST) $(HC) $(RUNTEST_OPTS) -- $(HC_OPTS) -c $< -o $@
-
-all :: $(HS_OBJS)
-
-tc019_HC_OPTS = -fglasgow-exts
-tc065_HC_OPTS = -syslib ghc
-
-include $(TOP)/mk/target.mk
-
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/ShouldSucceed.hi b/ghc/compiler/tests/typecheck/should_succeed/ShouldSucceed.hi
deleted file mode 100644
index 3ea8fd3a462a..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/ShouldSucceed.hi
+++ /dev/null
@@ -1,7 +0,0 @@
-interface ShouldSucceed where {
-{- TCE -}
-{- CE -}
-{- LVE -}
-a :: Num t64 => t64 -> t64
-{- GIEinst -}
-}
diff --git a/ghc/compiler/tests/typecheck/should_succeed/TheUtils.hi b/ghc/compiler/tests/typecheck/should_succeed/TheUtils.hi
deleted file mode 100644
index dd662cd3691d..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/TheUtils.hi
+++ /dev/null
@@ -1,68 +0,0 @@
-_interface_ TheUtils 2
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d14 1 $d15 1 $d16 1 $d17 1 $d18 1 $d19 1 $d2 1 $d21 1 $d22 1 $d23 1 $d24 1 $d25 1 $d26 1 $d27 1 $d3 1 $d32 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d45 1 $d46 1 $d48 1 $d49 1 $d50 1 $d51 1 $d53 1 $d54 1 $d55 1 $d57 1 $d6 1 $d7 1 $d8 1 $m* 1 $m+ 1 $m++ 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m== 1 $m> 1 $m>= 1 $m>> 1 $m>>= 1 $mabs 1 $mcompare 1 $mfromInt 1 $mfromInteger 1 $mmap 1 $mmax 1 $mmin 1 $mnegate 1 $mreturn 1 $mshowList 1 $mshowsPrec 1 $msignum 1 $mzero 1 && 1 . 1 not 1 otherwise 1 show 1 || 1 Eq 1 Eval 1 Functor 1 Maybe 1 Monad 1 MonadPlus 1 MonadZero 1 Num 1 Ord 1 Ordering 1 Ordering 1 Show 1 String 1;
-PrelList 1 :: repeat 1 reverse 1 span 1 take 1;
-PrelNum 1 :: $d10 1 $d16 1 $d17 1 $d18 1 $d29 1 $d33 1 $d34 1 $d35 1;
-PrelTup 1 :: $d10 1 $d13 1 $d14 1 $d3 1 $d4 1 $d49 1 $d50 1 $d9 1;
-Pretty 1 :: $d1 1 $d2 1 hsep 1 int 1 sep 1 text 1 Doc 1;
-_exports_
-TheUtils appEager assertPanic assertPprPanic assoc assocDefault assocDefaultUsing assocUsing cmpList cmpPString endsWith equivClasses hasNoDups isIn isSingleton isn'tIn lengthExceeds mapAccumB mapAccumL mapAccumR mapAndUnzip mapAndUnzip3 mapEager nOfThem naturalMergeSortLe panic panic# pprError pprPanic pprPanic# pprTrace removeDups returnEager runEager runs sortLt startsWith thenCmp thenEager transitiveClosure unzipWith zipEqual zipLazy zipWith3Equal zipWith4Equal zipWithEqual Eager Ord3(cmp);
-_fixities_
-infixr 9 thenCmp;
-_instances_
-instance {Ord3 PrelBase.Int} = $d1;
-instance _forall_ [a] {Ord3 a} => {Ord3 (PrelBase.Maybe a)} = $d2;
-instance _forall_ [a] {Ord3 a} => {Ord3 [a]} = $d3;
-_declarations_
-2 $d1 _:_ {Ord3 PrelBase.Int} ;;
-1 $d2 _:_ _forall_ [a] {Ord3 a} => {Ord3 (PrelBase.Maybe a)} ;;
-1 $d3 _:_ _forall_ [a] {Ord3 a} => {Ord3 [a]} ;;
-1 $mcmp _:_ _forall_ [a] {Ord3 a} => a -> a -> GHC.Int# ;;
-2 type Eager rvB rvC = (rvC -> rvB) -> rvB ;
-2 class Ord3 rvx where {cmp :: rvx -> rvx -> GHC.Int#} ;
-1 appEager _:_ _forall_ [a b] => Eager b a -> (a -> b) -> b ;;
-1 assertPanic _:_ _forall_ [a] => PrelBase.String -> PrelBase.Int -> a ;;
-2 assertPprPanic _:_ _forall_ [a] => PrelBase.String -> PrelBase.Int -> Pretty.Doc -> a ;;
-1 assoc _:_ _forall_ [a b] {PrelBase.Eq a} => PrelBase.String -> [(a, b)] -> a -> b ;;
-1 assocDefault _:_ _forall_ [a b] {PrelBase.Eq a} => b -> [(a, b)] -> a -> b ;;
-1 assocDefaultUsing _:_ _forall_ [a b] => (a -> a -> PrelBase.Bool) -> b -> [(a, b)] -> a -> b ;;
-1 assocUsing _:_ _forall_ [a b] => (a -> a -> PrelBase.Bool) -> PrelBase.String -> [(a, b)] -> a -> b ;;
-1 cmpList _:_ _forall_ [a] => (a -> a -> GHC.Int#) -> [a] -> [a] -> GHC.Int# ;;
-1 endsWith _:_ PrelBase.String -> PrelBase.String -> PrelBase.Maybe PrelBase.String ;;
-1 equivClasses _:_ _forall_ [a] => (a -> a -> GHC.Int#) -> [a] -> [[a]] ;;
-1 hasNoDups _:_ _forall_ [a] {PrelBase.Eq a} => [a] -> PrelBase.Bool ;;
-1 isIn _:_ _forall_ [a] {PrelBase.Eq a} => PrelBase.String -> a -> [a] -> PrelBase.Bool ;;
-1 isSingleton _:_ _forall_ [a] => [a] -> PrelBase.Bool ;;
-1 isn'tIn _:_ _forall_ [a] {PrelBase.Eq a} => PrelBase.String -> a -> [a] -> PrelBase.Bool ;;
-1 lengthExceeds _:_ _forall_ [a] => [a] -> PrelBase.Int -> PrelBase.Bool ;;
-1 mapAccumB _:_ _forall_ [a b c d] => (b -> c -> a -> (b, c, d)) -> b -> c -> [a] -> (b, c, [d]) ;;
-1 mapAccumL _:_ _forall_ [a b c] => (b -> a -> (b, c)) -> b -> [a] -> (b, [c]) ;;
-1 mapAccumR _:_ _forall_ [a b c] => (b -> a -> (b, c)) -> b -> [a] -> (b, [c]) ;;
-1 mapAndUnzip _:_ _forall_ [a b c] => (a -> (b, c)) -> [a] -> ([b], [c]) ;;
-1 mapAndUnzip3 _:_ _forall_ [a b c d] => (a -> (b, c, d)) -> [a] -> ([b], [c], [d]) ;;
-1 mapEager _:_ _forall_ [a b c] => (a -> (c -> b) -> b) -> [a] -> ([c] -> b) -> b ;;
-1 nOfThem _:_ _forall_ [a] => PrelBase.Int -> a -> [a] ;;
-1 naturalMergeSortLe _:_ _forall_ [a] => (a -> a -> PrelBase.Bool) -> [a] -> [a] ;;
-1 panic _:_ _forall_ [a] => [PrelBase.Char] -> a ;;
-1 panic# _:_ PrelBase.String -> GHC.Int# ;;
-1 pprError _:_ _forall_ [a b] {PrelBase.Show a} => [PrelBase.Char] -> a -> b ;;
-1 pprPanic _:_ _forall_ [a b] {PrelBase.Show a} => [PrelBase.Char] -> a -> b ;;
-1 pprPanic# _:_ _forall_ [a] {PrelBase.Show a} => [PrelBase.Char] -> a -> GHC.Int# ;;
-1 pprTrace _:_ _forall_ [a b] {PrelBase.Show a} => [PrelBase.Char] -> a -> b -> b ;;
-1 removeDups _:_ _forall_ [a] => (a -> a -> GHC.Int#) -> [a] -> ([a], [[a]]) ;;
-1 returnEager _:_ _forall_ [a b] => b -> (b -> a) -> a ;;
-1 runEager _:_ _forall_ [a] => Eager a a -> a ;;
-1 runs _:_ _forall_ [a] => (a -> a -> PrelBase.Bool) -> [a] -> [[a]] ;;
-1 sortLt _:_ _forall_ [a] => (a -> a -> PrelBase.Bool) -> [a] -> [a] ;;
-1 startsWith _:_ PrelBase.String -> PrelBase.String -> PrelBase.Maybe PrelBase.String ;;
-1 thenCmp _:_ GHC.Int# -> GHC.Int# -> GHC.Int# ;;
-1 thenEager _:_ _forall_ [a b c] => Eager b a -> (a -> (c -> b) -> b) -> (c -> b) -> b ;;
-1 transitiveClosure _:_ _forall_ [a] => (a -> [a]) -> (a -> a -> PrelBase.Bool) -> [a] -> [a] ;;
-1 unzipWith _:_ _forall_ [a b c] => (a -> b -> c) -> [(a, b)] -> [c] ;;
-1 zipEqual _:_ _forall_ [a b] => PrelBase.String -> [a] -> [b] -> [(a, b)] ;;
-1 zipLazy _:_ _forall_ [a b] => [a] -> [b] -> [(a, b)] ;;
-1 zipWith3Equal _:_ _forall_ [a b c d] => PrelBase.String -> (a -> b -> c -> d) -> [a] -> [b] -> [c] -> [d] ;;
-1 zipWith4Equal _:_ _forall_ [a b c d e] => PrelBase.String -> (a -> b -> c -> d -> e) -> [a] -> [b] -> [c] -> [d] -> [e] ;;
-1 zipWithEqual _:_ _forall_ [a b c] => PrelBase.String -> (a -> b -> c) -> [a] -> [b] -> [c] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc001.hs b/ghc/compiler/tests/typecheck/should_succeed/tc001.hs
deleted file mode 100644
index c3b0a785e26e..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc001.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-a x = y+2 where y = x+3
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc001.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc001.stderr
deleted file mode 100644
index c0887ce97f7b..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc001.stderr
+++ /dev/null
@@ -1,45 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-aGZ-}] [d.Num_aH2] [([t{-aGZ-}], a{-r3h,x-}, a_aGG)]
- +_aHc =
- PrelBase.+{-r3g,p-}
- t{-aGZ-}
- d.Num_aH2
- d.Num_aH5 =
- d.Num_aH2
- fromInt_aHb =
- PrelBase.fromInt{-8R,p-}
- t{-aGZ-}
- d.Num_aH5
- lit_aHa =
- fromInt_aHb PrelBase.I#{-5b,p-}{i} 2#
- +_aH9 =
- +_aHc
- fromInt_aH8 =
- fromInt_aHb
- lit_aH6 =
- fromInt_aH8 PrelBase.I#{-5b,p-}{i} 3#
- a_aGG
- x_r3d = y_r3f +_aHc lit_aHa
- where
- {- nonrec -}
- AbsBinds [] [] [([], y_r3f, y_aGK)]
- y_aGK
- = x_r3d +_aH9 lit_aH6
- {- nonrec -}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed a;
-_declarations_
-1 a _:_ _forall_ [a] {PrelBase.Num a} => a -> a ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc002.hs b/ghc/compiler/tests/typecheck/should_succeed/tc002.hs
deleted file mode 100644
index 85f1a91e1fc5..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc002.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-b = if True then 1 else 2
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc002.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc002.stderr
deleted file mode 100644
index 585daff4c5bc..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc002.stderr
+++ /dev/null
@@ -1,33 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aGV =
- PrelBase.$d3{-rb0,p-}
-fromInt_aGW =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aGV
-lit_aH1 =
- fromInt_aGW PrelBase.I#{-5b,p-}{i} 1#
-fromInt_aH0 =
- fromInt_aGW
-lit_aGX =
- fromInt_aH0 PrelBase.I#{-5b,p-}{i} 2#
-{- nonrec -}
-AbsBinds [] [] [([], b{-r1,x-}, b_aGC)]
- b_aGC
- = if PrelBase.True{-5E,p-}{i} then lit_aH1 else lit_aGX
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed b;
-_declarations_
-1 b _:_ PrelBase.Int ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc003.hs b/ghc/compiler/tests/typecheck/should_succeed/tc003.hs
deleted file mode 100644
index 70459c34434e..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc003.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-module ShouldSucceed where
-
--- This is a somewhat surprising program.
--- It shows up the monomorphism restriction, *and* ambiguity resolution!
--- The binding is a pattern binding without a signature, so it is monomorphic.
--- Hence the types of c,d,e are not universally quantified. But then
--- their type variables are ambiguous, so the ambiguity resolution leaps
--- into action, and resolves them to Integer.
-
--- That's why we check the interface file in the test suite.
-
-(c@(d,e)) = if True then (1,2) else (1,3)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc003.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc003.stderr
deleted file mode 100644
index 612babd265d8..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc003.stderr
+++ /dev/null
@@ -1,50 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aWN =
- PrelBase.$d3{-rb4,p-}
-fromInt_aWO =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aWN
-lit_aWW =
- fromInt_aWO PrelBase.I#{-5b,p-}{i} 1#
-fromInt_aWV =
- fromInt_aWO
-lit_aWU =
- fromInt_aWV PrelBase.I#{-5b,p-}{i} 2#
-fromInt_aWT =
- fromInt_aWO
-lit_aWP =
- fromInt_aWT PrelBase.I#{-5b,p-}{i} 3#
-{- nonrec -}
-AbsBinds
-[]
-[]
-[([], c{-r5,x-}, c_aW8), ([], d{-r4,x-}, d_aW9), ([],
- e{-r3,x-},
- e_aWa)]
- lit_aWX =
- lit_aWW
- (c_aW8@(d_aW9, e_aWa))
- = if PrelBase.True{-5E,p-}{i} then
- (lit_aWW, lit_aWU)
- else
- (lit_aWX, lit_aWP)
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
-_exports_
-ShouldSucceed c d e;
-_declarations_
-1 c _:_ (PrelBase.Int, PrelBase.Int) ;;
-1 d _:_ PrelBase.Int ;;
-1 e _:_ PrelBase.Int ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc004.hs b/ghc/compiler/tests/typecheck/should_succeed/tc004.hs
deleted file mode 100644
index a0627302d426..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc004.hs
+++ /dev/null
@@ -1,5 +0,0 @@
-module ShouldSucceed where
-
-f x = case x of
- True -> True
- False -> x
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc004.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc004.stderr
deleted file mode 100644
index 4ead08528638..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc004.stderr
+++ /dev/null
@@ -1,22 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], f{-r3e,x-}, f_an4)]
- f_an4
- x_r3d = case x_r3d of
- PrelBase.True{-5E,p-}{i}
- -> PrelBase.True{-5E,p-}{i}
- PrelBase.False{-58,p-}{i}
- -> x_r3d
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed f;
-_declarations_
-1 f _:_ PrelBase.Bool -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc005.hs b/ghc/compiler/tests/typecheck/should_succeed/tc005.hs
deleted file mode 100644
index 9d39da891272..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc005.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldSucceed where
-
-g ((x:z),y) = x
-g (x,y) = 2
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc005.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc005.stderr
deleted file mode 100644
index 82ba4a800dab..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc005.stderr
+++ /dev/null
@@ -1,35 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aWw-}, t{-aWz-}]
-[d.Num_aWD]
-[([t{-aWw-}, t{-aWz-}], g{-r3j,x-}, g_aWb)]
- fromInt_aWF =
- PrelBase.fromInt{-8R,p-}
- t{-aWz-}
- d.Num_aWD
- lit_aWE =
- fromInt_aWF PrelBase.I#{-5b,p-}{i} 2#
- g_aWb
- ((x_r3d PrelBase.:{-55,p-}{i} z_r3e), y_r3f)
- = x_r3d
- g_aWb
- (x_r3h, y_r3i)
- = lit_aWE
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
-_exports_
-ShouldSucceed g;
-_declarations_
-1 g _:_ _forall_ [a b] {PrelBase.Num b} => ([b], a) -> b ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc006.hs b/ghc/compiler/tests/typecheck/should_succeed/tc006.hs
deleted file mode 100644
index 2a22688d197d..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc006.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-h = 1:h
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc006.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc006.stderr
deleted file mode 100644
index c04ed356376f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc006.stderr
+++ /dev/null
@@ -1,31 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aGS =
- PrelBase.$d3{-rb0,p-}
-fromInt_aGT =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aGS
-lit_aGU =
- fromInt_aGT PrelBase.I#{-5b,p-}{i} 1#
-{- rec -}
-AbsBinds [] [] [([], h{-r1,x-}, h_aGC)]
- h_aGC
- = PrelBase.:{-55,p-}{i}
- PrelBase.Int{-3g,p-}
- lit_aGU h_aGC
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed h;
-_declarations_
-1 h _:_ [PrelBase.Int] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc007.hs b/ghc/compiler/tests/typecheck/should_succeed/tc007.hs
deleted file mode 100644
index c65458514bc8..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc007.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-module ShouldSucceed where
-
-j = 2
-
-k = 1:j:l
-
-l = 0:k
-
-m = j+j
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc007.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc007.stderr
deleted file mode 100644
index dc81b95263f3..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc007.stderr
+++ /dev/null
@@ -1,65 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aHp =
- PrelBase.$d3{-rb7,p-}
-+_aHu =
- PrelBase.+{-rR,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aHp
-d.Num_aHt =
- d.Num_aHp
-fromInt_aHC =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aHt
-lit_aHB =
- fromInt_aHC PrelBase.I#{-5b,p-}{i} 1#
-fromInt_aHA =
- fromInt_aHC
-lit_aHz =
- fromInt_aHA PrelBase.I#{-5b,p-}{i} 0#
-fromInt_aHy =
- fromInt_aHC
-lit_aHv =
- fromInt_aHy PrelBase.I#{-5b,p-}{i} 2#
-{- nonrec -}
-AbsBinds [] [] [([], j{-rV,x-}, j_aGI)]
- j_aGI
- = lit_aHv
-{- nonrec -}
-{- rec -}
-AbsBinds [] [] [([], k{-rU,x-}, k_aGS), ([], l{-rT,x-}, l_aGT)]
- k_aGS
- = PrelBase.:{-55,p-}{i}
- PrelBase.Int{-3g,p-}
- lit_aHB
- (PrelBase.:{-55,p-}{i}
- PrelBase.Int{-3g,p-}
- j{-rV,x-} l_aGT)
- l_aGT
- = PrelBase.:{-55,p-}{i}
- PrelBase.Int{-3g,p-}
- lit_aHz k_aGS
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], m{-rS,x-}, m_aHb)]
- m_aHb
- = j{-rV,x-} +_aHu j{-rV,x-}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed j k l m;
-_declarations_
-1 j _:_ PrelBase.Int ;;
-1 k _:_ [PrelBase.Int] ;;
-1 l _:_ [PrelBase.Int] ;;
-1 m _:_ PrelBase.Int ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc008.hs b/ghc/compiler/tests/typecheck/should_succeed/tc008.hs
deleted file mode 100644
index 236b575573e0..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc008.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldSucceed where
-
-n True = 1
-n False = 0
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc008.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc008.stderr
deleted file mode 100644
index 58036c4c5a80..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc008.stderr
+++ /dev/null
@@ -1,35 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-aGL-}] [d.Num_aGP] [([t{-aGL-}], n{-r1,x-}, n_aGE)]
- fromInt_aGU =
- PrelBase.fromInt{-8R,p-}
- t{-aGL-}
- d.Num_aGP
- lit_aGT =
- fromInt_aGU PrelBase.I#{-5b,p-}{i} 1#
- fromInt_aGS =
- fromInt_aGU
- lit_aGQ =
- fromInt_aGS PrelBase.I#{-5b,p-}{i} 0#
- n_aGE
- PrelBase.True{-5E,p-}{i}
- = lit_aGT
- n_aGE
- PrelBase.False{-58,p-}{i}
- = lit_aGQ
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed n;
-_declarations_
-1 n _:_ _forall_ [a] {PrelBase.Num a} => PrelBase.Bool -> a ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc009.hs b/ghc/compiler/tests/typecheck/should_succeed/tc009.hs
deleted file mode 100644
index b682a94c0d22..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc009.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldSucceed where
-
-o (True,x) = x
-o (False,y) = y+1
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc009.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc009.stderr
deleted file mode 100644
index 968ef4ad6304..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc009.stderr
+++ /dev/null
@@ -1,38 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-aWp-}] [d.Num_aWs] [([t{-aWp-}], o{-r3h,x-}, o_aW8)]
- +_aWy =
- PrelBase.+{-r3g,p-}
- t{-aWp-}
- d.Num_aWs
- d.Num_aWv =
- d.Num_aWs
- fromInt_aWx =
- PrelBase.fromInt{-8R,p-}
- t{-aWp-}
- d.Num_aWv
- lit_aWw =
- fromInt_aWx PrelBase.I#{-5b,p-}{i} 1#
- o_aW8
- (PrelBase.True{-5E,p-}{i}, x_r3d)
- = x_r3d
- o_aW8
- (PrelBase.False{-58,p-}{i}, y_r3f)
- = y_r3f +_aWy lit_aWw
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
-_exports_
-ShouldSucceed o;
-_declarations_
-1 o _:_ _forall_ [a] {PrelBase.Num a} => (PrelBase.Bool, a) -> a ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc010.hs b/ghc/compiler/tests/typecheck/should_succeed/tc010.hs
deleted file mode 100644
index 8ec9afd3d0e7..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc010.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-p = [(y+2,True) | y <- [1,2]]
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc010.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc010.stderr
deleted file mode 100644
index 09456511c685..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc010.stderr
+++ /dev/null
@@ -1,55 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aXA =
- PrelBase.$d3{-rb3,p-}
-fromInt_aXN =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aXA
-lit_aXT =
- fromInt_aXN PrelBase.I#{-5b,p-}{i} 1#
-fromInt_aXS =
- fromInt_aXN
-lit_aXR =
- fromInt_aXS PrelBase.I#{-5b,p-}{i} 2#
-d.Num_aXE =
- d.Num_aXA
-+_aXQ =
- PrelBase.+{-rau,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aXE
-d.Monad_aXG =
- PrelBase.$d24{-raX,p-}
->>=_aXP =
- PrelBase.>>={-811,p-}
- PrelBase.[]{-3j,p-}
- d.Monad_aXG
-d.Monad_aXJ =
- d.Monad_aXG
-return_aXO =
- PrelBase.return{-816,p-}
- PrelBase.[]{-3j,p-}
- d.Monad_aXJ
-{- nonrec -}
-AbsBinds [] [] [([], p{-r3e,x-}, p_aWR)]
- lit_aXU =
- lit_aXR
- p_aWR
- = [ (y_r3d +_aXQ lit_aXU, PrelBase.True{-5E,p-}{i}) |
- y_r3d <- [lit_aXT, lit_aXR] (PrelBase.Int{-3g,p-}) ]
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d23 1 $d24 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Monad 1 MonadZero 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
-_exports_
-ShouldSucceed p;
-_declarations_
-1 p _:_ [(PrelBase.Int, PrelBase.Bool)] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc011.hs b/ghc/compiler/tests/typecheck/should_succeed/tc011.hs
deleted file mode 100644
index 24c5b3b91b34..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc011.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-x@_ = x
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc011.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc011.stderr
deleted file mode 100644
index 9a2b6286501d..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc011.stderr
+++ /dev/null
@@ -1,18 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- rec -}
-AbsBinds [t{-an2-}] [] [([t{-an2-}], x{-r1,x-}, x_an0)]
- (x_an0@_)
- = x_an0
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed x;
-_declarations_
-1 x _:_ _forall_ [a] => a ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc012.hs b/ghc/compiler/tests/typecheck/should_succeed/tc012.hs
deleted file mode 100644
index 6f5e95422042..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc012.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-q = \ y -> y
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc012.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc012.stderr
deleted file mode 100644
index cfa99021ca5b..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc012.stderr
+++ /dev/null
@@ -1,18 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-an8-}] [] [([t{-an8-}], q{-r3e,x-}, q_an2)]
- q_an2
- = \ y_r3d -> y_r3d
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed q;
-_declarations_
-1 q _:_ _forall_ [a] => a -> a ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc013.hs b/ghc/compiler/tests/typecheck/should_succeed/tc013.hs
deleted file mode 100644
index f6a08b5e7b68..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc013.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-(r,s) = (1,'a')
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc013.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc013.stderr
deleted file mode 100644
index 1c09f6b6df3f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc013.stderr
+++ /dev/null
@@ -1,31 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aWr =
- PrelBase.$d3{-rb2,p-}
-fromInt_aWs =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aWr
-lit_aWt =
- fromInt_aWs PrelBase.I#{-5b,p-}{i} 1#
-{- nonrec -}
-AbsBinds [] [] [([], r{-r3,x-}, r_aW6), ([], s{-r2,x-}, s_aW7)]
- (r_aW6, s_aW7)
- = (lit_aWt, 'a')
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
-_exports_
-ShouldSucceed r s;
-_declarations_
-1 r _:_ PrelBase.Int ;;
-1 s _:_ PrelBase.Char ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc014.hs b/ghc/compiler/tests/typecheck/should_succeed/tc014.hs
deleted file mode 100644
index 97ce37558351..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc014.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-t = 1+t
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc014.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc014.stderr
deleted file mode 100644
index 06a5c5c2528f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc014.stderr
+++ /dev/null
@@ -1,35 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aGW =
- PrelBase.$d3{-rb1,p-}
-+_aH1 =
- PrelBase.+{-rO,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aGW
-d.Num_aH0 =
- d.Num_aGW
-fromInt_aH3 =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aH0
-lit_aH2 =
- fromInt_aH3 PrelBase.I#{-5b,p-}{i} 1#
-{- rec -}
-AbsBinds [] [] [([], t{-rP,x-}, t_aGC)]
- t_aGC
- = lit_aH2 +_aH1 t_aGC
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed t;
-_declarations_
-1 t _:_ PrelBase.Int ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc015.hs b/ghc/compiler/tests/typecheck/should_succeed/tc015.hs
deleted file mode 100644
index 41c902bfc6b5..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc015.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-u x = \ (y,z) -> x
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc015.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc015.stderr
deleted file mode 100644
index 55667c8ce63a..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc015.stderr
+++ /dev/null
@@ -1,22 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aB8-}, t{-aBb-}, t{-aBg-}]
-[]
-[([t{-aB8-}, t{-aBb-}, t{-aBg-}], u{-r3h,x-}, u_aB2)]
- u_aB2
- x_r3d = \ (y_r3f, z_r3g)
- -> x_r3d
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed u;
-_declarations_
-1 u _:_ _forall_ [a b c] => c -> (a, b) -> c ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc016.hs b/ghc/compiler/tests/typecheck/should_succeed/tc016.hs
deleted file mode 100644
index 5f3c7e57215f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc016.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-f x@_ y@_ = x
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc016.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc016.stderr
deleted file mode 100644
index fb20a6fa3e63..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc016.stderr
+++ /dev/null
@@ -1,22 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-ang-}, t{-ani-}]
-[]
-[([t{-ang-}, t{-ani-}], f{-r3g,x-}, f_an4)]
- f_an4
- (x_r3d@_) (y_r3f@_)
- = x_r3d
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed f;
-_declarations_
-1 f _:_ _forall_ [a b] => a -> b -> a ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc017.hs b/ghc/compiler/tests/typecheck/should_succeed/tc017.hs
deleted file mode 100644
index ec51aeb8d0b3..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc017.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldSucceed where
-
-v | True = v+1
- | False = v
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc017.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc017.stderr
deleted file mode 100644
index 22fc7d4e9628..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc017.stderr
+++ /dev/null
@@ -1,38 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aGW =
- PrelBase.$d3{-rb1,p-}
-+_aH1 =
- PrelBase.+{-ras,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aGW
-d.Num_aH0 =
- d.Num_aGW
-fromInt_aH3 =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aH0
-lit_aH2 =
- fromInt_aH3 PrelBase.I#{-5b,p-}{i} 1#
-{- rec -}
-AbsBinds [] [] [([], v{-r1,x-}, v_aGC)]
- v_aGC
- | [PrelBase.True{-5E,p-}{i}] =
- v_aGC +_aH1 lit_aH2
- | [PrelBase.False{-58,p-}{i}] =
- v_aGC
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed v;
-_declarations_
-1 v _:_ PrelBase.Int ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc018.hs b/ghc/compiler/tests/typecheck/should_succeed/tc018.hs
deleted file mode 100644
index 7fb398c6e651..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc018.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldSucceed where
-
-w = a where a = y
- y = 2
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc018.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc018.stderr
deleted file mode 100644
index b019ba6de6d0..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc018.stderr
+++ /dev/null
@@ -1,40 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aH4 =
- PrelBase.$d3{-rb3,p-}
-fromInt_aH5 =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aH4
-lit_aH6 =
- fromInt_aH5 PrelBase.I#{-5b,p-}{i} 2#
-{- nonrec -}
-AbsBinds [] [] [([], w{-r3f,x-}, w_aGI)]
- w_aGI
- = a_r3d
- where
- {- nonrec -}
- AbsBinds [] [] [([], y_r3e, y_aGH)]
- y_aGH
- = lit_aH6
- {- nonrec -}
- {- nonrec -}
- AbsBinds [] [] [([], a_r3d, a_aGT)]
- a_aGT
- = y_r3e
- {- nonrec -}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed w;
-_declarations_
-1 w _:_ PrelBase.Int ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc019.hs b/ghc/compiler/tests/typecheck/should_succeed/tc019.hs
deleted file mode 100644
index 3cfe5ea62699..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc019.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-(al:am) = [y+1 | (y,z) <- [(1,2)]]
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc019.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc019.stderr
deleted file mode 100644
index 9acf57e10453..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc019.stderr
+++ /dev/null
@@ -1,61 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aY3 =
- PrelBase.$d3{-rb6,p-}
-fromInt_aYg =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aY3
-lit_aYm =
- fromInt_aYg PrelBase.I#{-5b,p-}{i} 1#
-fromInt_aYl =
- fromInt_aYg
-lit_aYk =
- fromInt_aYl PrelBase.I#{-5b,p-}{i} 2#
-d.Num_aY7 =
- d.Num_aY3
-+_aYj =
- PrelBase.+{-r3g,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aY7
-d.Monad_aY9 =
- PrelBase.$d24{-rb0,p-}
->>=_aYi =
- PrelBase.>>={-811,p-}
- PrelBase.[]{-3j,p-}
- d.Monad_aY9
-d.Monad_aYc =
- d.Monad_aY9
-return_aYh =
- PrelBase.return{-816,p-}
- PrelBase.[]{-3j,p-}
- d.Monad_aYc
-{- nonrec -}
-AbsBinds
-[]
-[]
-[([], al{-r3i,x-}, al_aWK), ([], am{-r3h,x-}, am_aWL)]
- lit_aYn =
- lit_aYm
- (al_aWK PrelBase.:{-55,p-}{i} am_aWL)
- = [ y_r3e +_aYj lit_aYn |
- (y_r3e, z_r3f) <- [(lit_aYm,
- lit_aYk)] ((PrelBase.Int{-3g,p-}, PrelBase.Int{-3g,p-}))
- ]
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d23 1 $d24 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Monad 1 MonadZero 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
-_exports_
-ShouldSucceed al am;
-_declarations_
-1 al _:_ PrelBase.Int ;;
-1 am _:_ [PrelBase.Int] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc020.hs b/ghc/compiler/tests/typecheck/should_succeed/tc020.hs
deleted file mode 100644
index a0ef679c8fc9..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc020.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-f x = a where a = x:a
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc020.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc020.stderr
deleted file mode 100644
index 10bd436e448d..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc020.stderr
+++ /dev/null
@@ -1,26 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-anb-}] [] [([t{-anb-}], f{-r3g,x-}, f_an4)]
- f_an4
- x_r3d = a_r3f
- where
- {- rec -}
- AbsBinds [] [] [([], a_r3f, a_an8)]
- a_an8
- = PrelBase.:{-55,p-}{i}
- t{-anb-}
- x_r3d a_an8
- {- nonrec -}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed f;
-_declarations_
-1 f _:_ _forall_ [a] => a -> [a] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc021.hs b/ghc/compiler/tests/typecheck/should_succeed/tc021.hs
deleted file mode 100644
index 418fa38e2918..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc021.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-module ShouldSucceed where
-
-f x = a
-
-a = (x,x)
-
-x = x
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc021.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc021.stderr
deleted file mode 100644
index 4e4b624152cd..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc021.stderr
+++ /dev/null
@@ -1,40 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- rec -}
-AbsBinds [t{-aB5-}] [] [([t{-aB5-}], x{-r3g,x-}, x_aB3)]
- x_aB3
- = x_aB3
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aBb-}, t{-aBd-}]
-[]
-[([t{-aBb-}, t{-aBd-}], a{-r3h,x-}, a_aB7)]
- a_aB7
- = (x{-r3g,x-}
- t{-aBb-},
- x{-r3g,x-}
- t{-aBd-})
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aBp-}, t{-aBl-}, t{-aBn-}]
-[]
-[([t{-aBp-}, t{-aBl-}, t{-aBn-}], f{-r3i,x-}, f_aBf)]
- f_aBf
- x_r3f = a{-r3h,x-}
- [t{-aBl-}, t{-aBn-}]
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed a f x;
-_declarations_
-1 a _:_ _forall_ [a b] => (a, b) ;;
-1 f _:_ _forall_ [a b c] => a -> (b, c) ;;
-1 x _:_ _forall_ [a] => a ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc022.hs b/ghc/compiler/tests/typecheck/should_succeed/tc022.hs
deleted file mode 100644
index 1a04d7e7a28b..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc022.hs
+++ /dev/null
@@ -1,5 +0,0 @@
-module ShouldSucceed where
-
-main = iD iD
-
-iD x = x
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc022.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc022.stderr
deleted file mode 100644
index 4dba0959934a..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc022.stderr
+++ /dev/null
@@ -1,26 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-ana-}] [] [([t{-ana-}], iD{-r3f,x-}, iD_an4)]
- iD_an4
- x_r3e = x_r3e
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-anh-}] [] [([t{-anh-}], main{-r3g,x-}, main_anc)]
- main_anc
- = iD{-r3f,x-}
- (t{-anh-} -> t{-anh-}) iD{-r3f,x-}
- t{-anh-}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed iD main;
-_declarations_
-1 iD _:_ _forall_ [a] => a -> a ;;
-1 main _:_ _forall_ [a] => a -> a ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc023.hs b/ghc/compiler/tests/typecheck/should_succeed/tc023.hs
deleted file mode 100644
index b996719bb9bc..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc023.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-module ShouldSucceed where
-
-main = s k k
-
-s f g x = f x (g x)
-
-k x y = x
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc023.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc023.stderr
deleted file mode 100644
index 93888dfe67c7..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc023.stderr
+++ /dev/null
@@ -1,43 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-anm-}, t{-ano-}]
-[]
-[([t{-anm-}, t{-ano-}], k{-r3o,x-}, k_ane)]
- k_ane
- x_r3l y_r3n
- = x_r3l
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-anM-}, t{-anO-}, t{-anQ-}]
-[]
-[([t{-anM-}, t{-anO-}, t{-anQ-}], s{-r3p,x-}, s_anq)]
- s_anq
- f_r3f g_r3h x_r3j
- = f_r3f x_r3j g_r3h x_r3j
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-ao5-}] [] [([t{-ao5-}], main{-r3q,x-}, main_anS)]
- main_anS
- = s{-r3p,x-}
- [t{-ao5-}, GHC.Void{-3T,p-} -> t{-ao5-}, t{-ao5-}] k{-r3o,x-}
- [t{-ao5-}, GHC.Void{-3T,p-}
- -> t{-ao5-}]
- k{-r3o,x-}
- [t{-ao5-}, GHC.Void{-3T,p-}]
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed k main s;
-_declarations_
-1 k _:_ _forall_ [a b] => a -> b -> a ;;
-1 main _:_ _forall_ [a] => a -> a ;;
-1 s _:_ _forall_ [a b c] => (a -> b -> c) -> (a -> b) -> a -> c ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc024.hs b/ghc/compiler/tests/typecheck/should_succeed/tc024.hs
deleted file mode 100644
index e28d1acf96c8..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc024.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-module ShouldSucceed where
-
-main x = s k k x
-
-s f g x = f x (g x)
-
-k x y = x
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc024.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc024.stderr
deleted file mode 100644
index 3ccc000e65e1..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc024.stderr
+++ /dev/null
@@ -1,44 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-ano-}, t{-anq-}]
-[]
-[([t{-ano-}, t{-anq-}], k{-r3q,x-}, k_ang)]
- k_ang
- x_r3n y_r3p
- = x_r3n
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-anO-}, t{-anQ-}, t{-anS-}]
-[]
-[([t{-anO-}, t{-anQ-}, t{-anS-}], s{-r3r,x-}, s_ans)]
- s_ans
- f_r3h g_r3j x_r3l
- = f_r3h x_r3l g_r3j x_r3l
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-ao8-}] [] [([t{-ao8-}], main{-r3s,x-}, main_anU)]
- main_anU
- x_r3f = s{-r3r,x-}
- [t{-ao8-}, GHC.Void{-3T,p-} -> t{-ao8-}, t{-ao8-}] k{-r3q,x-}
- [t{-ao8-}, GHC.Void{-3T,p-}
- -> t{-ao8-}]
- k{-r3q,x-}
- [t{-ao8-}, GHC.Void{-3T,p-}]
- x_r3f
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed k main s;
-_declarations_
-1 k _:_ _forall_ [a b] => a -> b -> a ;;
-1 main _:_ _forall_ [a] => a -> a ;;
-1 s _:_ _forall_ [a b c] => (a -> b -> c) -> (a -> b) -> a -> c ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc025.hs b/ghc/compiler/tests/typecheck/should_succeed/tc025.hs
deleted file mode 100644
index e9adf9acb571..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc025.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-g x = f (f True x) x where f x y = if x then y else (f x y)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc025.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc025.stderr
deleted file mode 100644
index 6d8890057fe7..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc025.stderr
+++ /dev/null
@@ -1,29 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], g{-r3k,x-}, g_an8)]
- g_an8
- x_r3d = f_r3f
- PrelBase.Bool{-34,p-} f_r3f
- PrelBase.Bool{-34,p-} PrelBase.True{-5E,p-}{i}
- x_r3d
- x_r3d
- where
- {- rec -}
- AbsBinds [t{-ant-}] [] [([t{-ant-}], f_r3f, f_anc)]
- f_anc
- x_r3h y_r3j
- = if x_r3h then y_r3j else f_anc x_r3h y_r3j
- {- nonrec -}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed g;
-_declarations_
-1 g _:_ PrelBase.Bool -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc026.hs b/ghc/compiler/tests/typecheck/should_succeed/tc026.hs
deleted file mode 100644
index 3e718a5053a5..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc026.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldSucceed where
-
-g x = f (f True x) x
-f x y = if x then y else (f x y)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc026.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc026.stderr
deleted file mode 100644
index 19f26efe2581..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc026.stderr
+++ /dev/null
@@ -1,29 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- rec -}
-AbsBinds [t{-ann-}] [] [([t{-ann-}], f{-r3j,x-}, f_an8)]
- f_an8
- x_r3g y_r3i
- = if x_r3g then y_r3i else f_an8 x_r3g y_r3i
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], g{-r3k,x-}, g_anp)]
- g_anp
- x_r3e = f{-r3j,x-}
- PrelBase.Bool{-34,p-} f{-r3j,x-}
- PrelBase.Bool{-34,p-} PrelBase.True{-5E,p-}{i}
- x_r3e
- x_r3e
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed f g;
-_declarations_
-1 f _:_ _forall_ [a] => PrelBase.Bool -> a -> a ;;
-1 g _:_ PrelBase.Bool -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc027.hs b/ghc/compiler/tests/typecheck/should_succeed/tc027.hs
deleted file mode 100644
index 6edc01b619fc..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc027.hs
+++ /dev/null
@@ -1,5 +0,0 @@
-module ShouldSucceed where
-
-h x = f (f True x) x
-f x y = if x then y else (g y x)
-g y x = if x then y else (f x y)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc027.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc027.stderr
deleted file mode 100644
index eaa43723fcd6..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc027.stderr
+++ /dev/null
@@ -1,38 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- rec -}
-AbsBinds
-[t{-anz-}]
-[]
-[([t{-anz-}], f{-r3p,x-}, f_ane), ([t{-anz-}], g{-r3o,x-}, g_anf)]
- f_ane
- x_r3h y_r3j
- = if x_r3h then y_r3j else g_anf y_r3j x_r3h
- g_anf
- y_r3l x_r3n
- = if x_r3n then y_r3l else f_ane x_r3n y_r3l
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], h{-r3q,x-}, h_anB)]
- h_anB
- x_r3f = f{-r3p,x-}
- PrelBase.Bool{-34,p-} f{-r3p,x-}
- PrelBase.Bool{-34,p-} PrelBase.True{-5E,p-}{i}
- x_r3f
- x_r3f
-{- nonrec -}
-
-NOTE: Simplifier still going after 4 iterations; bailing out.
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed f g h;
-_declarations_
-1 f _:_ _forall_ [a] => PrelBase.Bool -> a -> a ;;
-1 g _:_ _forall_ [a] => a -> PrelBase.Bool -> a ;;
-1 h _:_ PrelBase.Bool -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc028.hs b/ghc/compiler/tests/typecheck/should_succeed/tc028.hs
deleted file mode 100644
index 49a0835ade27..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc028.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-type H = (Int,Bool)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc028.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc028.stderr
deleted file mode 100644
index 3132154684fb..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc028.stderr
+++ /dev/null
@@ -1,13 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed H;
-_declarations_
-1 type H = (PrelBase.Int, PrelBase.Bool) ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc029.hs b/ghc/compiler/tests/typecheck/should_succeed/tc029.hs
deleted file mode 100644
index c44b78f79f1f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc029.hs
+++ /dev/null
@@ -1,6 +0,0 @@
-module ShouldSucceed where
-
-type G = [Int]
-
-data K = H Bool | M G
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc029.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc029.stderr
deleted file mode 100644
index 465e4a76a605..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc029.stderr
+++ /dev/null
@@ -1,32 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-H{-r4,x-}{i} =
- \ tpl_B1 ->
- H{-r4,x-}{i}
- {tpl_B1}
-M{-r3,x-}{i} =
- \ tpl_B1 ->
- M{-r3,x-}{i}
- {tpl_B1}
-{- rec -}
-AbsBinds [] [] [([], $d1{-rG9,x-}, d.Eval_aG6)]
- d.Eval_aG6 =
- ({-dict-} [] [])
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d37 1 $d39 1 $d41 1 $d44 1 $d46 1 Eval 1;
-_exports_
-ShouldSucceed G K(H M);
-_instances_
-instance {PrelBase.Eval K} = $d1;
-_declarations_
-1 $d1 _:_ {PrelBase.Eval K} ;;
-1 type G = [PrelBase.Int] ;
-1 data K = H PrelBase.Bool | M G ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc030.hs b/ghc/compiler/tests/typecheck/should_succeed/tc030.hs
deleted file mode 100644
index 004bc226d1ff..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc030.hs
+++ /dev/null
@@ -1,5 +0,0 @@
-module ShouldSucceed where
-
-type H = [Bool]
-
-type G = (H,Char)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc030.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc030.stderr
deleted file mode 100644
index b46901ecb77b..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc030.stderr
+++ /dev/null
@@ -1,14 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed G H;
-_declarations_
-1 type G = (H, PrelBase.Char) ;
-1 type H = [PrelBase.Bool] ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc031.hs b/ghc/compiler/tests/typecheck/should_succeed/tc031.hs
deleted file mode 100644
index c55bf11f5409..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc031.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-data Rec = Node Int Rec
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc031.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc031.stderr
deleted file mode 100644
index 530d74b6086f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc031.stderr
+++ /dev/null
@@ -1,27 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-Node{-r2,x-}{i} =
- \ tpl_B1 tpl_B2 ->
- Node{-r2,x-}{i}
- {tpl_B1 tpl_B2}
-{- rec -}
-AbsBinds [] [] [([], $d1{-rFX,x-}, d.Eval_aFU)]
- d.Eval_aFU =
- ({-dict-} [] [])
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d37 1 $d39 1 $d41 1 $d46 1 Eval 1;
-_exports_
-ShouldSucceed Rec(Node);
-_instances_
-instance {PrelBase.Eval Rec} = $d1;
-_declarations_
-1 $d1 _:_ {PrelBase.Eval Rec} ;;
-1 data Rec = Node PrelBase.Int Rec ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc032.hs b/ghc/compiler/tests/typecheck/should_succeed/tc032.hs
deleted file mode 100644
index 9c43bbb0100d..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc032.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-data AList b = Node b [b] | Other (b,Char)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc032.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc032.stderr
deleted file mode 100644
index a0bbfe6932c4..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc032.stderr
+++ /dev/null
@@ -1,32 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-Node{-r4,x-}{i} =
- _/\_ b{-r3h-} -> \ tpl_B1 tpl_B2 ->
- Node{-r4,x-}{i}
- {_@_ b{-r3h-} tpl_B1 tpl_B2}
-Other{-r3,x-}{i} =
- _/\_ b{-r3h-} -> \ tpl_B1 ->
- Other{-r3,x-}{i}
- {_@_ b{-r3h-} tpl_B1}
-{- rec -}
-AbsBinds [b{-aVe-}] [] [([b{-aVe-}], $d1{-rVh,x-}, d.Eval_aVd)]
- d.Eval_aVd =
- ({-dict-} [] [])
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d37 1 $d38 1 $d39 1 $d41 1 $d44 1 $d46 1 Eval 1;
-PrelTup 1 :: $d13 1;
-_exports_
-ShouldSucceed AList(Node Other);
-_instances_
-instance _forall_ [a] => {PrelBase.Eval (AList a)} = $d1;
-_declarations_
-1 $d1 _:_ _forall_ [a] => {PrelBase.Eval (AList a)} ;;
-1 data AList r3h = Node r3h [r3h] | Other (r3h, PrelBase.Char) ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc033.hs b/ghc/compiler/tests/typecheck/should_succeed/tc033.hs
deleted file mode 100644
index 7111d75a4eea..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc033.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-module ShouldSucceed where
-
-data Twine = Twine2 Twist
-
-data Twist = Twist2 Twine
-
-type F = Twine
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc033.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc033.stderr
deleted file mode 100644
index 26bba1397e7d..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc033.stderr
+++ /dev/null
@@ -1,40 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-Twist2{-r4,x-}{i} =
- \ tpl_B1 ->
- Twist2{-r4,x-}{i}
- {tpl_B1}
-{- nonrec -}
-Twine2{-r8,x-}{i} =
- \ tpl_B1 ->
- Twine2{-r8,x-}{i}
- {tpl_B1}
-{- rec -}
-AbsBinds [] [] [([], $d1{-rGe,x-}, d.Eval_aG6)]
- d.Eval_aG6 =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rGg,x-}, d.Eval_aGb)]
- d.Eval_aGb =
- ({-dict-} [] [])
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d37 1 $d39 1 $d41 1 $d46 1 Eval 1;
-_exports_
-ShouldSucceed F Twine(Twine2) Twist(Twist2);
-_instances_
-instance {PrelBase.Eval Twist} = $d1;
-instance {PrelBase.Eval Twine} = $d2;
-_declarations_
-1 $d1 _:_ {PrelBase.Eval Twist} ;;
-1 $d2 _:_ {PrelBase.Eval Twine} ;;
-1 type F = Twine ;
-1 data Twine = Twine2 Twist ;
-1 data Twist = Twist2 Twine ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc034.hs b/ghc/compiler/tests/typecheck/should_succeed/tc034.hs
deleted file mode 100644
index 0e7c4a66ed99..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc034.hs
+++ /dev/null
@@ -1,11 +0,0 @@
-module ShouldSucceed where
-
-data AList a = ANull | ANode a (AList a)
-
-type IntList = AList Int
-
-g (ANull) = 2
-g (ANode b (ANode c d)) | b = 3
- | True = 4
-
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc034.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc034.stderr
deleted file mode 100644
index 6c18bd9880ca..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc034.stderr
+++ /dev/null
@@ -1,63 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-ANull{-r6,x-}{i} =
- _/\_ a{-r3p-} ->
- ANull{-r6,x-}{i}
- {_@_ a{-r3p-}}
-ANode{-r5,x-}{i} =
- _/\_ a{-r3p-} -> \ tpl_B1 tpl_B2 ->
- ANode{-r5,x-}{i}
- {_@_ a{-r3p-} tpl_B1 tpl_B2}
-{- rec -}
-AbsBinds [a{-aHA-}] [] [([a{-aHA-}], $d1{-rHD,x-}, d.Eval_aHz)]
- d.Eval_aHz =
- ({-dict-} [] [])
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-aHn-}] [d.Num_aHr] [([t{-aHn-}], g{-r3q,x-}, g_aH1)]
- fromInt_aHJ =
- PrelBase.fromInt{-8R,p-}
- t{-aHn-}
- d.Num_aHr
- lit_aHI =
- fromInt_aHJ PrelBase.I#{-5b,p-}{i} 2#
- fromInt_aHH =
- fromInt_aHJ
- lit_aHG =
- fromInt_aHH PrelBase.I#{-5b,p-}{i} 3#
- fromInt_aHF =
- fromInt_aHJ
- lit_aHE =
- fromInt_aHF PrelBase.I#{-5b,p-}{i} 4#
- g_aH1
- ANull{-r6,x-}{i}
- = lit_aHI
- g_aH1
- (ANode{-r5,x-}{i} b_r3k (ANode{-r5,x-}{i} c_r3l d_r3m))
- | [b_r3k] =
- lit_aHG
- | [PrelBase.True{-5E,p-}{i}] =
- lit_aHE
-{- nonrec -}
-tc034.hs:7:
- Warning: Possibly incomplete patterns
- in the definition of function `g'
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed g AList(ANull ANode) IntList;
-_instances_
-instance _forall_ [a] => {PrelBase.Eval (AList a)} = $d1;
-_declarations_
-1 $d1 _:_ _forall_ [a] => {PrelBase.Eval (AList a)} ;;
-1 data AList r3p = ANull | ANode r3p (AList r3p) ;
-1 type IntList = AList PrelBase.Int ;
-1 g _:_ _forall_ [a] {PrelBase.Num a} => AList PrelBase.Bool -> a ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc035.hs b/ghc/compiler/tests/typecheck/should_succeed/tc035.hs
deleted file mode 100644
index b8dd5543736d..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc035.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-module ShouldSucceed where
-
-type AnnExpr a = (a,Expr a)
-
-data Expr a = Var [Char]
- | App (AnnExpr a) (AnnExpr a)
-
-g (a,(Var name)) = [name]
-g (a,(App e1 e2)) = (g e1) ++ (g e2)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc035.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc035.stderr
deleted file mode 100644
index 00d21101c548..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc035.stderr
+++ /dev/null
@@ -1,51 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-Var{-r5,x-}{i} =
- _/\_ a{-r3q-} -> \ tpl_B1 ->
- Var{-r5,x-}{i}
- {_@_ a{-r3q-} tpl_B1}
-App{-r4,x-}{i} =
- _/\_ a{-r3q-} -> \ tpl_B1 tpl_B2 ->
- App{-r4,x-}{i}
- {_@_ a{-r3q-} tpl_B1 tpl_B2}
-{- rec -}
-AbsBinds [a{-aWY-}] [] [([a{-aWY-}], $d1{-rX1,x-}, d.Eval_aWV)]
- d.Eval_aWV =
- ({-dict-} [] [])
-{- nonrec -}
-d.MonadPlus_aWX =
- PrelBase.$d22{-rq5,p-}
-++_aX2 =
- PrelBase.++{-rur,p-}
- PrelBase.[]{-3j,p-}
- d.MonadPlus_aWX
-{- rec -}
-AbsBinds [t{-aWD-}] [] [([t{-aWD-}], g{-r3t,x-}, g_aWg)]
- g_aWg
- (a_r3j, (Var{-r5,x-}{i} name_r3k))
- = [name_r3k] ([PrelBase.Char{-38,p-}])
- g_aWg
- (a_r3m, (App{-r4,x-}{i} e1_r3n e2_r3o))
- = ++_aX2
- [PrelBase.Char{-38,p-}]
- (g_aWg e1_r3n) (g_aWg e2_r3o)
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d22 1 $d23 1 $d24 1 $d37 1 $d38 1 $d39 1 $d41 1 $d44 1 $d46 1 Eval 1 Monad 1 MonadPlus 1 MonadZero 1;
-PrelTup 1 :: $d13 1;
-_exports_
-ShouldSucceed g AnnExpr Expr(Var App);
-_instances_
-instance _forall_ [a] => {PrelBase.Eval (Expr a)} = $d1;
-_declarations_
-1 $d1 _:_ _forall_ [a] => {PrelBase.Eval (Expr a)} ;;
-1 type AnnExpr r3s = (r3s, Expr r3s) ;
-1 data Expr r3q = Var [PrelBase.Char] | App (AnnExpr r3q) (AnnExpr r3q) ;
-1 g _:_ _forall_ [a] => (a, Expr a) -> [[PrelBase.Char]] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc036.hs b/ghc/compiler/tests/typecheck/should_succeed/tc036.hs
deleted file mode 100644
index 05b87846aca1..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc036.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldSucceed where
-
-class (Eq a) => A a where
- op1 :: a -> a
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc036.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc036.stderr
deleted file mode 100644
index 5e4ec7a69f39..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc036.stderr
+++ /dev/null
@@ -1,33 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-scsel_APrelBaseEq{-aG7,x-} =
- _/\_ a{-r3e-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B1;}
-op1{-r3f,x-} =
- _/\_ a{-r3e-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B2;}
-{- nonrec -}
-AbsBinds
-[a{-aG6-}]
-[d.A_aFZ]
-[([a{-aG6-}], $mop1{-rG8,x-}, op1_aG1)]
- AbsBinds [] [] [([], op1_aG1, op1_aG3)]
- op1_aG3
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aG6-} -> a{-aG6-}) "Class A Method op1"
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d15 1 $d32 1 $d7 1 Eq 1;
-PrelNum 1 :: $d18 1;
-_exports_
-ShouldSucceed A(op1);
-_declarations_
-1 $mop1 _:_ _forall_ [a] {A a} => a -> a ;;
-1 class {PrelBase.Eq r3e} => A r3e where {op1 :: r3e -> r3e} ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc037.hi b/ghc/compiler/tests/typecheck/should_succeed/tc037.hi
deleted file mode 100644
index 026e6c2b5cd8..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc037.hi
+++ /dev/null
@@ -1,6 +0,0 @@
-interface ShouldSucceed where {
-class Eq' a where {
- deq :: a -> a -> Bool
- };
-instance (Eq' a) => Eq' [a] {-# FROMMODULE ShouldSucceed #-}
-}
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc037.hs b/ghc/compiler/tests/typecheck/should_succeed/tc037.hs
deleted file mode 100644
index 8621b278d32e..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc037.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-module ShouldSucceed where
-
-class Eq' a where
- deq :: a -> a -> Bool
-
-instance (Eq' a) => Eq' [a] where
- deq [] [] = True
- deq (x:xs) (y:ys) = if (x `deq` y) then (deq xs ys) else False
- deq other1 other2 = False
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc037.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc037.stderr
deleted file mode 100644
index d506e3cf75d8..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc037.stderr
+++ /dev/null
@@ -1,67 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-deq{-r3x,x-} =
- _/\_ a{-r3w-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aog-}]
-[d.Eq'_ao9]
-[([a{-aog-}], $mdeq{-rnR,x-}, deq_aob)]
- AbsBinds [] [] [([], deq_aob, deq_aod)]
- deq_aod
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aog-}
- -> a{-aog-}
- -> PrelBase.Bool{-34,p-}) "Class Eq' Method deq"
-{- rec -}
-AbsBinds
-[a{-anC-}]
-[d.Eq'_ao2]
-[([a{-anC-}], $d1{-roh,x-}, d.Eq'_anw)]
- d.Eq'_ao5 =
- d.Eq'_ao2
- deq_aok =
- deq{-r3x,x-}
- a{-anC-}
- d.Eq'_ao5
- deq_aoj =
- deq_aoi
- AbsBinds [] [] [([], deq_aoi, deq_anz)]
- deq_anz
- PrelBase.[]{-5i,p-}{i} PrelBase.[]{-5i,p-}{i}
- = PrelBase.True{-5E,p-}{i}
- deq_anz
- (x_r3l PrelBase.:{-55,p-}{i} xs_r3m)
- (y_r3o PrelBase.:{-55,p-}{i} ys_r3p)
- = if x_r3l deq_aok y_r3o then
- deq_aoj xs_r3m ys_r3p
- else
- PrelBase.False{-58,p-}{i}
- deq_anz
- other1_r3r other2_r3t
- = PrelBase.False{-58,p-}{i}
- d.Eq'_anw =
- ({-dict-} [] [deq_aoi])
-{- nonrec -}
-ghc:junk old iface line?:section::interface ShouldSucceed where {
-ghc:junk old iface line?:section::class Eq' a where {
-ghc:junk old iface line?:section:: deq :: a -> a -> Bool
-ghc:junk old iface line?:section:: };
-ghc:junk old iface line?:section::instance (Eq' a) => Eq' [a] {-# FROMMODULE ShouldSucceed #-}
-ghc:junk old iface line?:section::}
-ghc: module version changed to 1; reason: exports changed
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed Eq'(deq);
-_instances_
-instance _forall_ [a] {Eq' a} => {Eq' [a]} = $d1;
-_declarations_
-1 $d1 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
-1 $mdeq _:_ _forall_ [a] {Eq' a} => a -> a -> PrelBase.Bool ;;
-1 class Eq' r3w where {deq :: r3w -> r3w -> PrelBase.Bool} ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc038.hs b/ghc/compiler/tests/typecheck/should_succeed/tc038.hs
deleted file mode 100644
index d404ee69132b..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc038.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-f (x:xs) = if (x == (fromInteger 2)) then xs else []
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc038.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc038.stderr
deleted file mode 100644
index 235fa6964815..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc038.stderr
+++ /dev/null
@@ -1,49 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aH6 =
- PrelNum.$d33{-rxe,p-}
-fromInt_aH7 =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Integer{-3h,p-}
- d.Num_aH6
-lit_aH8 =
- fromInt_aH7 PrelBase.I#{-5b,p-}{i} 2#
-{- nonrec -}
-AbsBinds [t{-aGW-}] [d.Num_aH1] [([t{-aGW-}], f{-r3f,x-}, f_aGF)]
- d.Eq_aGZ =
- PrelBase.scsel_NumPrelBaseEq{-aHb,p-}
- t{-aGW-}
- d.Num_aH1
- ==_aHa =
- PrelBase.=={-8Y,p-}
- t{-aGW-}
- d.Eq_aGZ
- fromInteger_aH9 =
- PrelBase.fromInteger{-8S,p-}
- t{-aGW-}
- d.Num_aH1
- f_aGF
- (x_r3d PrelBase.:{-55,p-}{i} xs_r3e)
- = if x_r3d ==_aHa (fromInteger_aH9 lit_aH8) then
- xs_r3e
- else
- PrelBase.[]{-5i,p-}{i}
- t{-aGW-}
-{- nonrec -}
-tc038.hs:3:
- Warning: Possibly incomplete patterns
- in the definition of function `f'
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed f;
-_declarations_
-1 f _:_ _forall_ [a] {PrelBase.Num a} => [a] -> [a] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc039.hs b/ghc/compiler/tests/typecheck/should_succeed/tc039.hs
deleted file mode 100644
index 0e5bd9518ceb..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc039.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldSucc where
-
-class (Eq a) => A a where
- op1 :: a -> a
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc039.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc039.stderr
deleted file mode 100644
index a6a93c2f20f7..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc039.stderr
+++ /dev/null
@@ -1,33 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-scsel_APrelBaseEq{-aG7,x-} =
- _/\_ a{-r3e-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B1;}
-op1{-r3f,x-} =
- _/\_ a{-r3e-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B2;}
-{- nonrec -}
-AbsBinds
-[a{-aG6-}]
-[d.A_aFZ]
-[([a{-aG6-}], $mop1{-rG8,x-}, op1_aG1)]
- AbsBinds [] [] [([], op1_aG1, op1_aG3)]
- op1_aG3
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aG6-} -> a{-aG6-}) "Class A Method op1"
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucc 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d15 1 $d32 1 $d7 1 Eq 1;
-PrelNum 1 :: $d18 1;
-_exports_
-ShouldSucc A(op1);
-_declarations_
-1 $mop1 _:_ _forall_ [a] {A a} => a -> a ;;
-1 class {PrelBase.Eq r3e} => A r3e where {op1 :: r3e -> r3e} ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc040.hi b/ghc/compiler/tests/typecheck/should_succeed/tc040.hi
deleted file mode 100644
index 41d1ee57b36d..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc040.hi
+++ /dev/null
@@ -1,4 +0,0 @@
-interface ShouldSucceed where {
-import PreludeCore(Eq)
-f :: Eq a => a -> [a]
-}
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc040.hs b/ghc/compiler/tests/typecheck/should_succeed/tc040.hs
deleted file mode 100644
index 33113cc07d79..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc040.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-module ShouldSucceed where
-
---!!! tests the deduction of contexts.
-
-f :: (Eq a) => a -> [a]
-
-f x = g x
- where
- g y = if (y == x) then [] else [y]
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc040.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc040.stderr
deleted file mode 100644
index ef50348be87b..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc040.stderr
+++ /dev/null
@@ -1,41 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds [a{-aG6-}] [d.Eq_aGl] [([a{-aG6-}], f{-r3e,x-}, f_aG3)]
- d.Eq_aGn =
- d.Eq_aGl
- ==_aGo =
- PrelBase.=={-8Y,p-}
- a{-aG6-}
- d.Eq_aGn
- f_aG3
- x_r3g = g_r3i x_r3g
- where
- {- nonrec -}
- AbsBinds [] [] [([], g_r3i, g_aG8)]
- g_aG8
- y_r3k = if y_r3k ==_aGo x_r3g then
- PrelBase.[]{-5i,p-}{i}
- a{-aG6-}
- else
- [y_r3k] (a{-aG6-})
- {- nonrec -}
-{- nonrec -}
-ghc:junk old iface line?:section::interface ShouldSucceed where {
-ghc:junk old iface line?:section::import PreludeCore(Eq)
-ghc:junk old iface line?:section::f :: Eq a => a -> [a]
-ghc:junk old iface line?:section::}
-ghc: module version changed to 1; reason: usages changed
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d15 1 $d27 1 $d32 1 $d7 1 Eq 1;
-PrelNum 1 :: $d18 1;
-_exports_
-ShouldSucceed f;
-_declarations_
-1 f _:_ _forall_ [a] {PrelBase.Eq a} => a -> [a] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc041.hs b/ghc/compiler/tests/typecheck/should_succeed/tc041.hs
deleted file mode 100644
index 730af9c1aec0..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc041.hs
+++ /dev/null
@@ -1,12 +0,0 @@
---!!! a very simple test of class and instance declarations
-
-module ShouldSucceed where
-
-class H a where
- op1 :: a -> a -> a
-
-instance H Bool where
- op1 x y = y
-
-f :: Bool -> Int -> Bool
-f x y = op1 x x
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc041.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc041.stderr
deleted file mode 100644
index d5f7819948cc..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc041.stderr
+++ /dev/null
@@ -1,51 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-op1{-r3u,x-} =
- _/\_ a{-r3t-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-anU-}]
-[d.H_anN]
-[([a{-anU-}], $mop1{-rnq,x-}, op1_anP)]
- AbsBinds [] [] [([], op1_anP, op1_anR)]
- op1_anR
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-anU-} -> a{-anU-} -> a{-anU-}) "Class H Method op1"
-{- rec -}
-AbsBinds [] [] [([], $d1{-rnZ,x-}, d.H_anE)]
- AbsBinds [] [] [([], op1_ao0, op1_anH)]
- op1_anH
- x_r3o y_r3q
- = y_r3q
- d.H_anE =
- ({-dict-} [] [op1_ao0])
-{- nonrec -}
-d.H_anX =
- $d1{-rnZ,x-}
-op1_anY =
- op1{-r3u,x-}
- PrelBase.Bool{-34,p-}
- d.H_anX
-{- nonrec -}
-AbsBinds [] [] [([], f{-r1,x-}, f_anp)]
- f_anp
- x_r3h y_r3j
- = op1_anY x_r3h x_r3h
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed f H(op1);
-_instances_
-instance {H PrelBase.Bool} = $d1;
-_declarations_
-1 $d1 _:_ {H PrelBase.Bool} ;;
-1 $mop1 _:_ _forall_ [a] {H a} => a -> a -> a ;;
-1 class H r3t where {op1 :: r3t -> r3t -> r3t} ;
-1 f _:_ PrelBase.Bool -> PrelBase.Int -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc042.hs b/ghc/compiler/tests/typecheck/should_succeed/tc042.hs
deleted file mode 100644
index 708ea26d67fe..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc042.hs
+++ /dev/null
@@ -1,73 +0,0 @@
---!!! a file mailed us by Ryzard Kubiak. This provides a good test of the code
---!!! handling type signatures and recursive data types.
-
-module ShouldSucceed where
-
-data Boolean = FF | TT
-data Pair a b = Mkpair a b
-data List alpha = Nil | Cons alpha (List alpha)
-data Nat = Zero | Succ Nat
-data Tree t = Leaf t | Node (Tree t) (Tree t)
-
-idb :: Boolean -> Boolean
-idb x = x
-
-
-swap :: Pair a b -> Pair b a
-swap t = case t of
- Mkpair x y -> Mkpair y x
-
-neg :: Boolean -> Boolean
-neg b = case b of
- FF -> TT
- TT -> FF
-
-nUll :: List alpha -> Boolean
-nUll l = case l of
- Nil -> TT
- Cons y ys -> FF
-
-idl :: List a -> List a
-idl xs = case xs of
- Nil -> Nil
- Cons y ys -> Cons y (idl ys)
-
-add :: Nat -> Nat -> Nat
-add a b = case a of
- Zero -> b
- Succ c -> Succ (add c b)
-
-app :: List alpha -> List alpha -> List alpha
-app xs zs = case xs of
- Nil -> zs
- Cons y ys -> Cons y (app ys zs)
-
-lEngth :: List a -> Nat
-lEngth xs = case xs of
- Nil -> Zero
- Cons y ys -> Succ(lEngth ys)
-
-before :: List Nat -> List Nat
-before xs = case xs of
- Nil -> Nil
- Cons y ys -> case y of
- Zero -> Nil
- Succ n -> Cons y (before ys)
-
-rEverse :: List alpha -> List alpha
-rEverse rs = case rs of
- Nil -> Nil
- Cons y ys -> app (rEverse ys) (Cons y Nil)
-
-
-flatten :: Tree alpha -> List alpha
-flatten t = case t of
- Leaf x -> Cons x Nil
- Node l r -> app (flatten l) (flatten r)
-
-sUm :: Tree Nat -> Nat
-sUm t = case t of
- Leaf t -> t
- Node l r -> add (sUm l) (sUm r)
-
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc042.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc042.stderr
deleted file mode 100644
index 4c434e34b693..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc042.stderr
+++ /dev/null
@@ -1,255 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-Leaf{-rg,x-}{i} =
- _/\_ t{-r5r-} -> \ tpl_B1 ->
- Leaf{-rg,x-}{i}
- {_@_ t{-r5r-} tpl_B1}
-Node{-rf,x-}{i} =
- _/\_ t{-r5r-} -> \ tpl_B1 tpl_B2 ->
- Node{-rf,x-}{i}
- {_@_ t{-r5r-} tpl_B1 tpl_B2}
-{- nonrec -}
-Zero{-rl,x-}{i} =
- Zero{-rl,x-}{i}
- {}
-Succ{-rk,x-}{i} =
- \ tpl_B1 ->
- Succ{-rk,x-}{i}
- {tpl_B1}
-{- nonrec -}
-Nil{-rq,x-}{i} =
- _/\_ alpha{-r5u-} ->
- Nil{-rq,x-}{i}
- {_@_ alpha{-r5u-}}
-Cons{-rp,x-}{i} =
- _/\_ alpha{-r5u-} -> \ tpl_B1 tpl_B2 ->
- Cons{-rp,x-}{i}
- {_@_ alpha{-r5u-} tpl_B1 tpl_B2}
-{- nonrec -}
-Mkpair{-r5B,x-}{i} =
- _/\_ a{-r5w-} b{-r5x-} -> \ tpl_B1 tpl_B2 ->
- Mkpair{-r5B,x-}{i}
- {_@_ a{-r5w-} _@_ b{-r5x-} tpl_B1 tpl_B2}
-{- nonrec -}
-FF{-rx,x-}{i} =
- FF{-rx,x-}{i}
- {}
-TT{-rw,x-}{i} =
- TT{-rw,x-}{i}
- {}
-{- rec -}
-AbsBinds [t{-aMR-}] [] [([t{-aMR-}], $d1{-rMX,x-}, d.Eval_aMt)]
- d.Eval_aMt =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rMZ,x-}, d.Eval_aMy)]
- d.Eval_aMy =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds
-[alpha{-aMS-}]
-[]
-[([alpha{-aMS-}], $d3{-rN1,x-}, d.Eval_aME)]
- d.Eval_aME =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds
-[a{-aMT-}, b{-aMU-}]
-[]
-[([a{-aMT-}, b{-aMU-}], $d4{-rN3,x-}, d.Eval_aML)]
- d.Eval_aML =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds [] [] [([], $d5{-rN5,x-}, d.Eval_aMQ)]
- d.Eval_aMQ =
- ({-dict-} [] [])
-{- nonrec -}
-{- rec -}
-AbsBinds [] [] [([], before{-r4a,x-}, before_aIA)]
- before_aIA
- xs_r4Y = case xs_r4Y of
- Nil{-rq,x-}{i}
- -> Nil{-rq,x-}{i}
- Nat{-r5z,x-}
- (Cons{-rp,x-}{i} y_r51 ys_r52)
- -> case y_r51 of
- Zero{-rl,x-}{i}
- -> Nil{-rq,x-}{i}
- Nat{-r5z,x-}
- (Succ{-rk,x-}{i} n_r55)
- -> Cons{-rp,x-}{i}
- Nat{-r5z,x-} y_r51 before{-r4a,x-} ys_r52
-{- nonrec -}
-{- rec -}
-AbsBinds [a{-aJ2-}] [] [([a{-aJ2-}], lEngth{-r49,x-}, lEngth_aIZ)]
- lEngth_aIZ
- xs_r4S = case xs_r4S of
- Nil{-rq,x-}{i}
- -> Zero{-rl,x-}{i}
- (Cons{-rp,x-}{i} y_r4V ys_r4W)
- -> Succ{-rk,x-}{i} lEngth{-r49,x-}
- a{-aJ2-} ys_r4W
-{- nonrec -}
-{- rec -}
-AbsBinds
-[alpha{-aJo-}]
-[]
-[([alpha{-aJo-}], app{-r48,x-}, app_aJl)]
- app_aJl
- xs_r4K zs_r4M
- = case xs_r4K of
- Nil{-rq,x-}{i}
- -> zs_r4M
- (Cons{-rp,x-}{i} y_r4P ys_r4Q)
- -> Cons{-rp,x-}{i}
- alpha{-aJo-} y_r4P
- app{-r48,x-}
- alpha{-aJo-} ys_r4Q zs_r4M
-{- nonrec -}
-{- rec -}
-AbsBinds
-[alpha{-aJO-}]
-[]
-[([alpha{-aJO-}], rEverse{-r4b,x-}, rEverse_aJL)]
- rEverse_aJL
- rs_r57 = case rs_r57 of
- Nil{-rq,x-}{i}
- -> Nil{-rq,x-}{i}
- alpha{-aJO-}
- (Cons{-rp,x-}{i} y_r5a ys_r5b)
- -> app{-r48,x-}
- alpha{-aJO-} rEverse{-r4b,x-}
- alpha{-aJO-} ys_r5b
- Cons{-rp,x-}{i}
- alpha{-aJO-} y_r5a
- Nil{-rq,x-}{i}
- alpha{-aJO-}
-{- nonrec -}
-{- rec -}
-AbsBinds
-[alpha{-aKi-}]
-[]
-[([alpha{-aKi-}], flatten{-r4c,x-}, flatten_aKf)]
- flatten_aKf
- t_r5d = case t_r5d of
- (Leaf{-rg,x-}{i} x_r5f)
- -> Cons{-rp,x-}{i}
- alpha{-aKi-} x_r5f
- Nil{-rq,x-}{i}
- alpha{-aKi-}
- (Node{-rf,x-}{i} l_r5h r_r5i)
- -> app{-r48,x-}
- alpha{-aKi-} flatten{-r4c,x-}
- alpha{-aKi-} l_r5h
- flatten{-r4c,x-}
- alpha{-aKi-} r_r5i
-{- nonrec -}
-{- rec -}
-AbsBinds [] [] [([], add{-r47,x-}, add_aKH)]
- add_aKH
- a_r4D b_r4F
- = case a_r4D of
- Zero{-rl,x-}{i}
- -> b_r4F
- (Succ{-rk,x-}{i} c_r4I)
- -> Succ{-rk,x-}{i} add{-r47,x-} c_r4I b_r4F
-{- nonrec -}
-{- rec -}
-AbsBinds [] [] [([], sUm{-r4d,x-}, sUm_aKR)]
- sUm_aKR
- t_r5k = case t_r5k of
- (Leaf{-rg,x-}{i} t_r5m)
- -> t_r5m
- (Node{-rf,x-}{i} l_r5o r_r5p)
- -> add{-r47,x-} sUm{-r4d,x-} l_r5o sUm{-r4d,x-} r_r5p
-{- nonrec -}
-{- rec -}
-AbsBinds [a{-aLe-}] [] [([a{-aLe-}], idl{-r46,x-}, idl_aLb)]
- idl_aLb
- xs_r4x = case xs_r4x of
- Nil{-rq,x-}{i}
- -> Nil{-rq,x-}{i}
- a{-aLe-}
- (Cons{-rp,x-}{i} y_r4A ys_r4B)
- -> Cons{-rp,x-}{i}
- a{-aLe-} y_r4A
- idl{-r46,x-}
- a{-aLe-} ys_r4B
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[alpha{-aLD-}]
-[]
-[([alpha{-aLD-}], nUll{-r45,x-}, nUll_aLA)]
- nUll_aLA
- l_r4r = case l_r4r of
- Nil{-rq,x-}{i}
- -> TT{-rw,x-}{i}
- (Cons{-rp,x-}{i} y_r4u ys_r4v)
- -> FF{-rx,x-}{i}
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], neg{-r44,x-}, neg_aLP)]
- neg_aLP
- b_r4n = case b_r4n of
- FF{-rx,x-}{i}
- -> TT{-rw,x-}{i}
- TT{-rw,x-}{i}
- -> FF{-rx,x-}{i}
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[a{-aM3-}, b{-aM4-}]
-[]
-[([b{-aM4-}, a{-aM3-}], swap{-r43,x-}, swap_aM0)]
- swap_aM0
- t_r4i = case t_r4i of
- (Mkpair{-r5B,x-}{i} x_r4k y_r4l)
- -> Mkpair{-r5B,x-}{i}
- [b{-aM4-}, a{-aM3-}] y_r4l x_r4k
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], idb{-r42,x-}, idb_aMl)]
- idb_aMl
- x_r4g = x_r4g
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d37 1 $d39 1 $d41 1 $d46 1 Eval 1;
-_exports_
-ShouldSucceed add app before flatten idb idl lEngth nUll neg rEverse sUm swap Boolean(FF TT) List(Nil Cons) Nat(Zero Succ) Pair(Mkpair) Tree(Leaf Node);
-_instances_
-instance _forall_ [a] => {PrelBase.Eval (Tree a)} = $d1;
-instance {PrelBase.Eval Nat} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (List a)} = $d3;
-instance _forall_ [a b] => {PrelBase.Eval (Pair a b)} = $d4;
-instance {PrelBase.Eval Boolean} = $d5;
-_declarations_
-1 $d1 _:_ _forall_ [a] => {PrelBase.Eval (Tree a)} ;;
-1 $d2 _:_ {PrelBase.Eval Nat} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (List a)} ;;
-1 $d4 _:_ _forall_ [a b] => {PrelBase.Eval (Pair a b)} ;;
-1 $d5 _:_ {PrelBase.Eval Boolean} ;;
-1 data Boolean = FF | TT ;
-1 data List r5u = Nil | Cons r5u (List r5u) ;
-1 data Nat = Zero | Succ Nat ;
-1 data Pair r5w r5x = Mkpair r5w r5x ;
-1 data Tree r5r = Leaf r5r | Node (Tree r5r) (Tree r5r) ;
-1 add _:_ Nat -> Nat -> Nat ;;
-1 app _:_ _forall_ [a] => List a -> List a -> List a ;;
-1 before _:_ List Nat -> List Nat ;;
-1 flatten _:_ _forall_ [a] => Tree a -> List a ;;
-1 idb _:_ Boolean -> Boolean ;;
-1 idl _:_ _forall_ [a] => List a -> List a ;;
-1 lEngth _:_ _forall_ [a] => List a -> Nat ;;
-1 nUll _:_ _forall_ [a] => List a -> Boolean ;;
-1 neg _:_ Boolean -> Boolean ;;
-1 rEverse _:_ _forall_ [a] => List a -> List a ;;
-1 sUm _:_ Tree Nat -> Nat ;;
-1 swap _:_ _forall_ [a b] => Pair b a -> Pair a b ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc043.hs b/ghc/compiler/tests/typecheck/should_succeed/tc043.hs
deleted file mode 100644
index 727f2886aeec..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc043.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-module ShouldSucceed where
-
---!!! another simple test of class and instance code.
-
-class A a where
- op1 :: a
-
-instance A Int where
- op1 = 2
-
-f x = op1
-
-class B b where
- op2 :: b -> Int
-
-instance (B a) => B [a] where
- op2 [] = 0
- op2 (x:xs) = 1 + op2 xs
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc043.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc043.stderr
deleted file mode 100644
index 7b0da4fcb1bb..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc043.stderr
+++ /dev/null
@@ -1,105 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-op2{-r3D,x-} =
- _/\_ b{-r3t-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[b{-aIu-}]
-[d.B_aIn]
-[([b{-aIu-}], $mop2{-rHi,x-}, op2_aIp)]
- AbsBinds [] [] [([], op2_aIp, op2_aIr)]
- op2_aIr
- = GHCerr.noDefaultMethodError{-8k,p-}
- (b{-aIu-} -> PrelBase.Int{-3g,p-}) "Class B Method op2"
-{- nonrec -}
-op1{-r3E,x-} =
- _/\_ a{-r3B-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aID-}]
-[d.A_aIy]
-[([a{-aID-}], $mop1{-rHh,x-}, op1_aIA)]
- AbsBinds [] [] [([], op1_aIA, op1_aIC)]
- op1_aIC
- = GHCerr.noDefaultMethodError{-8k,p-}
- a{-aID-} "Class A Method op1"
-{- rec -}
-AbsBinds [a{-aHF-}] [d.B_aI1] [([a{-aHF-}], $d1{-rIW,x-}, d.B_aHz)]
- op2_aIY =
- op2_aIX
- AbsBinds [] [] [([], op2_aIX, op2_aHC)]
- op2_aHC
- PrelBase.[]{-5i,p-}{i}
- = lit_aIU
- op2_aHC
- (x_r3p PrelBase.:{-55,p-}{i} xs_r3q)
- = lit_aIR +_aIT (op2_aIY xs_r3q)
- d.B_aHz =
- ({-dict-} [] [op2_aIX])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rIZ,x-}, d.A_aIc)]
- AbsBinds [] [] [([], op1_aJ0, op1_aIf)]
- op1_aIf
- = lit_aIN
- d.A_aIc =
- ({-dict-} [] [op1_aJ0])
-{- nonrec -}
-d.Num_aIJ =
- PrelBase.$d3{-rbv,p-}
-fromInt_aIV =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aIJ
-lit_aIU =
- fromInt_aIV PrelBase.I#{-5b,p-}{i} 0#
-d.Num_aIM =
- d.Num_aIJ
-+_aIT =
- PrelBase.+{-rd3,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aIM
-fromInt_aIS =
- fromInt_aIV
-lit_aIR =
- fromInt_aIS PrelBase.I#{-5b,p-}{i} 1#
-fromInt_aIQ =
- fromInt_aIV
-lit_aIN =
- fromInt_aIQ PrelBase.I#{-5b,p-}{i} 2#
-{- nonrec -}
-AbsBinds
-[t{-aHr-}, a{-aHo-}]
-[d.A_aHt]
-[([t{-aHr-}, a{-aHo-}], f{-r3C,x-}, f_aHg)]
- op1_aJ1 =
- op1{-r3E,x-}
- a{-aHo-}
- d.A_aHt
- f_aHg
- x_r3h = op1_aJ1
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed f A(op1) B(op2);
-_instances_
-instance _forall_ [a] {B a} => {B [a]} = $d1;
-instance {A PrelBase.Int} = $d2;
-_declarations_
-1 $d1 _:_ _forall_ [a] {B a} => {B [a]} ;;
-1 $d2 _:_ {A PrelBase.Int} ;;
-1 $mop1 _:_ _forall_ [a] {A a} => a ;;
-1 $mop2 _:_ _forall_ [a] {B a} => a -> PrelBase.Int ;;
-1 class A r3B where {op1 :: r3B} ;
-1 class B r3t where {op2 :: r3t -> PrelBase.Int} ;
-1 f _:_ _forall_ [a b] {A b} => a -> b ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc044.hs b/ghc/compiler/tests/typecheck/should_succeed/tc044.hs
deleted file mode 100644
index 9f98989bb116..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc044.hs
+++ /dev/null
@@ -1,6 +0,0 @@
--- once produced a bug, here as regression test
-
-module P where
-
-f _ | otherwise = ()
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc044.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc044.stderr
deleted file mode 100644
index cc55d72d2e36..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc044.stderr
+++ /dev/null
@@ -1,21 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-auu-}] [] [([t{-auu-}], f{-r1,x-}, f_auo)]
- f_auo
- _ | [PrelBase.otherwise{-818,p-}] =
- PrelBase.(){-60,p-}{i}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ P 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: otherwise 1;
-_exports_
-P f;
-_declarations_
-1 f _:_ _forall_ [a] => a -> PrelBase.() ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc045.hs b/ghc/compiler/tests/typecheck/should_succeed/tc045.hs
deleted file mode 100644
index fc6a72ea979a..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc045.hs
+++ /dev/null
@@ -1,19 +0,0 @@
-module H where
-
-class C a where
- op1 :: a -> a
-
-class (C a) => B a where
- op2 :: a -> a -> a
-
-instance (B a) => B [a] where
- op2 xs ys = xs
-
-instance C [a] where
- op1 xs = xs
-
-{- This was passed by the prototype, but failed hard in the new
-typechecker with the message
-
-Fail:No match in theta_class
--}
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc045.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc045.stderr
deleted file mode 100644
index 846d0184d176..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc045.stderr
+++ /dev/null
@@ -1,70 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-scsel_BHC{-aow,x-} =
- _/\_ a{-r3x-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B1;}
-op2{-r3D,x-} =
- _/\_ a{-r3x-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B2;}
-{- nonrec -}
-AbsBinds
-[a{-aok-}]
-[d.B_aod]
-[([a{-aok-}], $mop2{-rox,x-}, op2_aof)]
- AbsBinds [] [] [([], op2_aof, op2_aoh)]
- op2_aoh
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aok-} -> a{-aok-} -> a{-aok-}) "Class B Method op2"
-{- nonrec -}
-op1{-r3E,x-} =
- _/\_ a{-r3C-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aov-}]
-[d.C_aoo]
-[([a{-aov-}], $mop1{-roy,x-}, op1_aoq)]
- AbsBinds [] [] [([], op1_aoq, op1_aos)]
- op1_aos
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aov-} -> a{-aov-}) "Class C Method op1"
-{- rec -}
-AbsBinds [a{-anP-}] [] [([a{-anP-}], $d1{-roz,x-}, d.C_anJ)]
- AbsBinds [] [] [([], op1_aoA, op1_anM)]
- op1_anM
- xs_r3k = xs_r3k
- d.C_anJ =
- ({-dict-} [] [op1_aoA])
-{- rec -}
-AbsBinds
-[a{-ao2-}]
-[d.B_ao5, d.C_ao6]
-[([a{-ao2-}], $d2{-roB,x-}, d.B_anW)]
- d.C_ao7 =
- d.C_ao6
- AbsBinds [] [] [([], op2_aoC, op2_anZ)]
- op2_anZ
- xs_r3s ys_r3u
- = xs_r3s
- d.B_anW =
- ({-dict-} [d.C_ao7] [op2_aoC])
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ H 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-H B(op2) C(op1);
-_instances_
-instance _forall_ [a] => {C [a]} = $d1;
-instance _forall_ [a] {B a} => {B [a]} = $d2;
-_declarations_
-1 $d1 _:_ _forall_ [a] => {C [a]} ;;
-1 $d2 _:_ _forall_ [a] {B a, C [a]} => {B [a]} ;;
-1 $mop1 _:_ _forall_ [a] {C a} => a -> a ;;
-1 $mop2 _:_ _forall_ [a] {B a} => a -> a -> a ;;
-1 class {C r3x} => B r3x where {op2 :: r3x -> r3x -> r3x} ;
-1 class C r3C where {op1 :: r3C -> r3C} ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc046.hs b/ghc/compiler/tests/typecheck/should_succeed/tc046.hs
deleted file mode 100644
index dbbf3a176a5a..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc046.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-module H where
-
-class C a where
- op1 :: a -> a
-
-class (C a) => B a where
- op2 :: a -> a -> a
-
-{- Failed hard in new tc with "No match in theta_class" -}
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc046.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc046.stderr
deleted file mode 100644
index 54a3e3040fea..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc046.stderr
+++ /dev/null
@@ -1,45 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-scsel_BHC{-anH,x-} =
- _/\_ a{-r3g-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B1;}
-op2{-r3m,x-} =
- _/\_ a{-r3g-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B2;}
-{- nonrec -}
-AbsBinds
-[a{-anv-}]
-[d.B_ano]
-[([a{-anv-}], $mop2{-rnI,x-}, op2_anq)]
- AbsBinds [] [] [([], op2_anq, op2_ans)]
- op2_ans
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-anv-} -> a{-anv-} -> a{-anv-}) "Class B Method op2"
-{- nonrec -}
-op1{-r3o,x-} =
- _/\_ a{-r3l-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-anG-}]
-[d.C_anz]
-[([a{-anG-}], $mop1{-rnJ,x-}, op1_anB)]
- AbsBinds [] [] [([], op1_anB, op1_anD)]
- op1_anD
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-anG-} -> a{-anG-}) "Class C Method op1"
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ H 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-H B(op2) C(op1);
-_declarations_
-1 $mop1 _:_ _forall_ [a] {C a} => a -> a ;;
-1 $mop2 _:_ _forall_ [a] {B a} => a -> a -> a ;;
-1 class {C r3g} => B r3g where {op2 :: r3g -> r3g -> r3g} ;
-1 class C r3l where {op1 :: r3l -> r3l} ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc047.hs b/ghc/compiler/tests/typecheck/should_succeed/tc047.hs
deleted file mode 100644
index b8c197d185f0..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc047.hs
+++ /dev/null
@@ -1,23 +0,0 @@
-module ShouldSucceed where
-
-type OL a = [a]
-
--- produces the interface:
--- data OL a = MkOL [a] deriving ()
--- ranOAL :: (OL (a, a)) -> [a]
--- this interface was produced by BOTH hbc and nhc
-
--- the following bogus type sig. was accepted by BOTH hbc and nhc
-f x = ranOAL where -- ranOAL :: OL (a,v) -> [a]
---ranOAL :: OL (a,v) -> [v], the right sig.
- ranOAL ( xs) = mp sd xs
-
-
-mp f [] = []
-mp f (x:xs) = (f x) : mp f xs
-
-sd (f,s) = s
-
-
-
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc047.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc047.stderr
deleted file mode 100644
index 696eec869870..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc047.stderr
+++ /dev/null
@@ -1,61 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aBv-}, t{-aBy-}]
-[]
-[([t{-aBv-}, t{-aBy-}], sd{-r3y,x-}, sd_aBq)]
- sd_aBq
- (f_r3u, s_r3v)
- = s_r3v
-{- nonrec -}
-{- rec -}
-AbsBinds
-[t{-aBI-}, t{-aBK-}]
-[]
-[([t{-aBI-}, t{-aBK-}], mp{-r3z,x-}, mp_aBC)]
- mp_aBC
- f_r3m PrelBase.[]{-5i,p-}{i}
- = PrelBase.[]{-5i,p-}{i}
- t{-aBK-}
- mp_aBC
- f_r3p (x_r3r PrelBase.:{-55,p-}{i} xs_r3s)
- = PrelBase.:{-55,p-}{i}
- t{-aBK-}
- (f_r3p x_r3r) (mp_aBC f_r3p xs_r3s)
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aCo-}, t{-aCk-}, t{-aCm-}]
-[]
-[([t{-aCo-}, t{-aCk-}, t{-aCm-}], f{-r3A,x-}, f_aC0)]
- f_aC0
- x_r3g = ranOAL_r3i
- [t{-aCk-}, t{-aCm-}]
- where
- {- nonrec -}
- AbsBinds
- [t{-aCb-}, t{-aCd-}]
- []
- [([t{-aCb-}, t{-aCd-}], ranOAL_r3i, ranOAL_aC4)]
- ranOAL_aC4
- xs_r3k = mp{-r3z,x-}
- [(t{-aCb-}, t{-aCd-}), t{-aCd-}] sd{-r3y,x-}
- [t{-aCb-}, t{-aCd-}]
- xs_r3k
- {- nonrec -}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed f mp sd OL;
-_declarations_
-1 type OL r3x = [r3x] ;
-1 f _:_ _forall_ [a b c] => a -> [(b, c)] -> [c] ;;
-1 mp _:_ _forall_ [a b] => (a -> b) -> [a] -> [b] ;;
-1 sd _:_ _forall_ [a b] => (a, b) -> b ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc048.hs b/ghc/compiler/tests/typecheck/should_succeed/tc048.hs
deleted file mode 100644
index eea6f10e791a..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc048.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-module ShouldSucceed where
-
-data OL a = MkOL [a]
-data FG a b = MkFG (OL (a,b))
-data AFE n a b = MkAFE (OL (n,(FG a b)))
-
---ranOAL :: OL (a,v) -> [a]
-ranOAL :: OL (a,v) -> [v]
-ranOAL (MkOL xs) = mAp sNd xs
-
-mAp f [] = []
-mAp f (x:xs) = (f x) : mAp f xs
-
-sNd (f,s) = s
-
-ranAFE :: AFE n a b -> [FG a b] -- ?
-ranAFE (MkAFE nfs) = ranOAL nfs
-
-
-
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc048.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc048.stderr
deleted file mode 100644
index 52223ea28797..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc048.stderr
+++ /dev/null
@@ -1,108 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-MkAFE{-r3U,x-}{i} =
- _/\_ n{-r3M-} a{-r3N-} b{-r3O-} -> \ tpl_B1 ->
- MkAFE{-r3U,x-}{i}
- {_@_ n{-r3M-} _@_ a{-r3N-} _@_ b{-r3O-} tpl_B1}
-{- nonrec -}
-MkFG{-r3W,x-}{i} =
- _/\_ a{-r3Q-} b{-r3R-} -> \ tpl_B1 ->
- MkFG{-r3W,x-}{i}
- {_@_ a{-r3Q-} _@_ b{-r3R-} tpl_B1}
-{- nonrec -}
-MkOL{-r3Y,x-}{i} =
- _/\_ a{-r3T-} -> \ tpl_B1 ->
- MkOL{-r3Y,x-}{i}
- {_@_ a{-r3T-} tpl_B1}
-{- rec -}
-AbsBinds
-[n{-aXN-}, a{-aXP-}, b{-aXO-}]
-[]
-[([n{-aXN-}, a{-aXP-}, b{-aXO-}], $d1{-rXV,x-}, d.Eval_aXz)]
- d.Eval_aXz =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds
-[a{-aXQ-}, b{-aXR-}]
-[]
-[([a{-aXQ-}, b{-aXR-}], $d2{-rXX,x-}, d.Eval_aXG)]
- d.Eval_aXG =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds [a{-aXS-}] [] [([a{-aXS-}], $d3{-rXZ,x-}, d.Eval_aXM)]
- d.Eval_aXM =
- ({-dict-} [] [])
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aWc-}, t{-aWf-}]
-[]
-[([t{-aWc-}, t{-aWf-}], sNd{-r3u,x-}, sNd_aW7)]
- sNd_aW7
- (f_r3H, s_r3I)
- = s_r3I
-{- nonrec -}
-{- rec -}
-AbsBinds
-[t{-aWp-}, t{-aWr-}]
-[]
-[([t{-aWp-}, t{-aWr-}], mAp{-r3v,x-}, mAp_aWj)]
- mAp_aWj
- f_r3z PrelBase.[]{-5i,p-}{i}
- = PrelBase.[]{-5i,p-}{i}
- t{-aWr-}
- mAp_aWj
- f_r3C (x_r3E PrelBase.:{-55,p-}{i} xs_r3F)
- = PrelBase.:{-55,p-}{i}
- t{-aWr-}
- (f_r3C x_r3E) (mAp_aWj f_r3C xs_r3F)
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[a{-aWR-}, v{-aWS-}]
-[]
-[([a{-aWR-}, v{-aWS-}], ranOAL{-r3s,x-}, ranOAL_aWM)]
- ranOAL_aWM
- (MkOL{-r3Y,x-}{i} xs_r3x)
- = mAp{-r3v,x-}
- [(a{-aWR-}, v{-aWS-}), v{-aWS-}] sNd{-r3u,x-}
- [a{-aWR-}, v{-aWS-}]
- xs_r3x
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[n{-aXk-}, a{-aXl-}, b{-aXm-}]
-[]
-[([n{-aXk-}, a{-aXl-}, b{-aXm-}], ranAFE{-r3t,x-}, ranAFE_aXb)]
- ranAFE_aXb
- (MkAFE{-r3U,x-}{i} nfs_r3K)
- = ranOAL{-r3s,x-}
- [n{-aXk-}, FG{-r3X,x-} a{-aXl-} b{-aXm-}] nfs_r3K
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d37 1 $d39 1 $d41 1 $d44 1 $d46 1 Eval 1;
-PrelTup 1 :: $d13 1;
-_exports_
-ShouldSucceed mAp ranAFE ranOAL sNd AFE(MkAFE) FG(MkFG) OL(MkOL);
-_instances_
-instance _forall_ [a b c] => {PrelBase.Eval (AFE a b c)} = $d1;
-instance _forall_ [a b] => {PrelBase.Eval (FG a b)} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (OL a)} = $d3;
-_declarations_
-1 $d1 _:_ _forall_ [a b c] => {PrelBase.Eval (AFE a b c)} ;;
-1 $d2 _:_ _forall_ [a b] => {PrelBase.Eval (FG a b)} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (OL a)} ;;
-1 data AFE r3M r3N r3O = MkAFE (OL (r3M, FG r3N r3O)) ;
-1 data FG r3Q r3R = MkFG (OL (r3Q, r3R)) ;
-1 data OL r3T = MkOL [r3T] ;
-1 mAp _:_ _forall_ [a b] => (a -> b) -> [a] -> [b] ;;
-1 ranAFE _:_ _forall_ [a b c] => AFE a b c -> [FG b c] ;;
-1 ranOAL _:_ _forall_ [a b] => OL (a, b) -> [b] ;;
-1 sNd _:_ _forall_ [a b] => (a, b) -> b ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc049.hs b/ghc/compiler/tests/typecheck/should_succeed/tc049.hs
deleted file mode 100644
index 20be6b768b3c..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc049.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-module ShouldSucceed where
-
-fib n = if n <= 2 then n else fib (n-1) + fib (n-2)
-
-----------------------------------------
-
-mem x [] = False
-mem x (y:ys) = (x == y) `oR` mem x ys
-
-a `oR` b = if a then True else b
-
-----------------------------------------
-
-mem1 x [] = False
-mem1 x (y:ys) = (x == y) `oR1` mem2 x ys
-
-a `oR1` b = if a then True else b
-
-mem2 x [] = False
-mem2 x (y:ys) = (x == y) `oR` mem1 x ys
-
----------------------------------------
-
-mem3 x [] = False
-mem3 x (y:ys) = if [x] == [y] then mem4 x ys else False
-
-mem4 y (x:xs) = mem3 y xs
-
----------------------------------------
-
-main1 = [[(1,True)]] == [[(2,False)]]
-
----------------------------------------
-
-main2 = "Hello" == "Goodbye"
-
----------------------------------------
-
-main3 = [[1],[2]] == [[3]]
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc049.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc049.stderr
deleted file mode 100644
index 4350d750b41b..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc049.stderr
+++ /dev/null
@@ -1,239 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-d.Eq_a11Z =
- PrelBase.$d7{-rcB,p-}
-d.Eq_a120 =
- PrelBase.$d32{-rc8,p-}
-d.Eq_a11X =
- PrelTup.$d9{-ry4,p-}
- [PrelBase.Int{-3g,p-}, PrelBase.Bool{-34,p-}]
- [d.Eq_a11Z, d.Eq_a120]
-d.Eq_a11V =
- PrelBase.$d27{-rc2,p-}
- (PrelBase.Int{-3g,p-}, PrelBase.Bool{-34,p-})
- d.Eq_a11X
-d.Eq_a11T =
- PrelBase.$d27{-rc2,p-}
- [(PrelBase.Int{-3g,p-}, PrelBase.Bool{-34,p-})]
- d.Eq_a11V
-==_a12u =
- PrelBase.=={-8Y,p-}
- [[(PrelBase.Int{-3g,p-}, PrelBase.Bool{-34,p-})]]
- d.Eq_a11T
-d.Num_a125 =
- PrelBase.$d3{-rc5,p-}
-fromInt_a12t =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_a125
-lit_a12s =
- fromInt_a12t PrelBase.I#{-5b,p-}{i} 1#
-fromInt_a12r =
- fromInt_a12t
-lit_a12q =
- fromInt_a12r PrelBase.I#{-5b,p-}{i} 2#
-d.Eq_a12b =
- PrelBase.$d33{-rc9,p-}
-d.Eq_a129 =
- PrelBase.$d27{-rc2,p-}
- PrelBase.Char{-38,p-}
- d.Eq_a12b
-==_a12p =
- PrelBase.=={-8Y,p-}
- [PrelBase.Char{-38,p-}]
- d.Eq_a129
-d.Eq_a12i =
- d.Eq_a11Z
-d.Eq_a12g =
- PrelBase.$d27{-rc2,p-}
- PrelBase.Int{-3g,p-}
- d.Eq_a12i
-d.Eq_a12e =
- PrelBase.$d27{-rc2,p-}
- [PrelBase.Int{-3g,p-}]
- d.Eq_a12g
-==_a12o =
- PrelBase.=={-8Y,p-}
- [[PrelBase.Int{-3g,p-}]]
- d.Eq_a12e
-lit_a12n =
- lit_a12s
-lit_a12m =
- lit_a12q
-fromInt_a12l =
- fromInt_a12t
-lit_a12j =
- fromInt_a12l PrelBase.I#{-5b,p-}{i} 3#
-{- nonrec -}
-AbsBinds [] [] [([], main3{-r47,x-}, main3_aXA)]
- main3_aXA
- = [[lit_a12n] (PrelBase.Int{-3g,p-}),
- [lit_a12m] (PrelBase.Int{-3g,p-})] ([PrelBase.Int{-3g,p-}])
- ==_a12o [[lit_a12j] (PrelBase.Int{-3g,p-})] ([PrelBase.Int{-3g,p-}])
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], main2{-r48,x-}, main2_aYl)]
- main2_aYl
- = "Hello" ==_a12p "Goodbye"
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], main1{-r49,x-}, main1_aYv)]
- main1_aYv
- = [[(lit_a12s,
- PrelBase.True{-5E,p-}{i})] ((PrelBase.Int{-3g,p-}, PrelBase.Bool{-34,p-}))] ([(PrelBase.Int{-3g,p-}, PrelBase.Bool{-34,p-})])
- ==_a12u [[(lit_a12q,
- PrelBase.False{-58,p-}{i})] ((PrelBase.Int{-3g,p-}, PrelBase.Bool{-34,p-}))] ([(PrelBase.Int{-3g,p-}, PrelBase.Bool{-34,p-})])
-{- nonrec -}
-{- rec -}
-AbsBinds
-[t{-aZp-}]
-[d.Eq_aZS]
-[([t{-aZp-}], mem3{-r4b,x-}, mem3_aZc), ([t{-aZp-}],
- mem4{-r4a,x-},
- mem4_aZd)]
- d.Eq_aZQ =
- PrelBase.$d27{-rc2,p-}
- t{-aZp-}
- d.Eq_aZS
- ==_a12v =
- PrelBase.=={-8Y,p-}
- [t{-aZp-}]
- d.Eq_aZQ
- mem3_aZc
- x_r3V PrelBase.[]{-5i,p-}{i}
- = PrelBase.False{-58,p-}{i}
- mem3_aZc
- x_r3Y (y_r40 PrelBase.:{-55,p-}{i} ys_r41)
- = if [x_r3Y] (t{-aZp-}) ==_a12v [y_r40] (t{-aZp-}) then
- mem4_aZd x_r3Y ys_r41
- else
- PrelBase.False{-58,p-}{i}
- mem4_aZd
- y_r43 (x_r45 PrelBase.:{-55,p-}{i} xs_r46)
- = mem3_aZc y_r43 xs_r46
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], oR1{-r4d,x-}, oR1_aZU)]
- oR1_aZU
- a_r3J b_r3L
- = if a_r3J then PrelBase.True{-5E,p-}{i} else b_r3L
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], oR{-r4f,x-}, oR_a102)]
- oR_a102
- a_r3x b_r3z
- = if a_r3x then PrelBase.True{-5E,p-}{i} else b_r3z
-{- nonrec -}
-{- rec -}
-AbsBinds
-[t{-a10n-}]
-[d.Eq_a10R]
-[([t{-a10n-}], mem2{-r4c,x-}, mem2_a10a), ([t{-a10n-}],
- mem1{-r4e,x-},
- mem1_a10b)]
- ==_a12x =
- PrelBase.=={-8Y,p-}
- t{-a10n-}
- d.Eq_a10R
- ==_a12w =
- ==_a12x
- mem2_a10a
- x_r3N PrelBase.[]{-5i,p-}{i}
- = PrelBase.False{-58,p-}{i}
- mem2_a10a
- x_r3Q (y_r3S PrelBase.:{-55,p-}{i} ys_r3T)
- = (x_r3Q ==_a12x y_r3S) oR{-r4f,x-} (mem1_a10b x_r3Q ys_r3T)
- mem1_a10b
- x_r3B PrelBase.[]{-5i,p-}{i}
- = PrelBase.False{-58,p-}{i}
- mem1_a10b
- x_r3E (y_r3G PrelBase.:{-55,p-}{i} ys_r3H)
- = (x_r3E ==_a12w y_r3G) oR1{-r4d,x-} (mem2_a10a x_r3E ys_r3H)
-{- nonrec -}
-{- rec -}
-AbsBinds
-[t{-a10Z-}]
-[d.Eq_a11c]
-[([t{-a10Z-}], mem{-r4g,x-}, mem_a10T)]
- ==_a12y =
- PrelBase.=={-8Y,p-}
- t{-a10Z-}
- d.Eq_a11c
- mem_a10T
- x_r3p PrelBase.[]{-5i,p-}{i}
- = PrelBase.False{-58,p-}{i}
- mem_a10T
- x_r3s (y_r3u PrelBase.:{-55,p-}{i} ys_r3v)
- = (x_r3s ==_a12y y_r3u) oR{-r4f,x-} (mem_a10T x_r3s ys_r3v)
-{- nonrec -}
-{- rec -}
-AbsBinds
-[riC{-a11y-}]
-[d.Ord_a11J, d.Num_a11M]
-[([riC{-a11y-}], fib{-r4h,x-}, fib_a11e)]
- <=_a12H =
- PrelBase.<={-rdK,p-}
- riC{-a11y-}
- d.Ord_a11J
- fromInt_a12G =
- PrelBase.fromInt{-8R,p-}
- riC{-a11y-}
- d.Num_a11M
- lit_a12F =
- fromInt_a12G PrelBase.I#{-5b,p-}{i} 2#
- d.Num_a11O =
- d.Num_a11M
- +_a12E =
- PrelBase.+{-rdD,p-}
- riC{-a11y-}
- d.Num_a11O
- d.Num_a11Q =
- d.Num_a11M
- -_a12D =
- PrelBase.-{-817,p-}
- riC{-a11y-}
- d.Num_a11Q
- fromInt_a12C =
- fromInt_a12G
- lit_a12B =
- fromInt_a12C PrelBase.I#{-5b,p-}{i} 1#
- -_a12A =
- -_a12D
- lit_a12z =
- lit_a12F
- fib_a11e
- n_r3n = if n_r3n <=_a12H lit_a12F then
- n_r3n
- else
- (fib_a11e n_r3n -_a12D lit_a12B)
- +_a12E (fib_a11e n_r3n -_a12A lit_a12z)
-{- nonrec -}
-tc049.hs:27:
- Warning: Possibly incomplete patterns
- in the definition of function `mem4'
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d14 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d3 1 $d32 1 $d33 1 $d34 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d45 1 $d46 1 $d49 1 $d50 1 $d51 1 $d54 1 $d55 1 $d6 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d17 1 $d18 1 $d29 1 $d33 1 $d34 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d49 1 $d9 1;
-_exports_
-ShouldSucceed fib main1 main2 main3 mem mem1 mem2 mem3 mem4 oR oR1;
-_declarations_
-1 fib _:_ _forall_ [a] {PrelBase.Ord a, PrelBase.Num a} => a -> a ;;
-1 main1 _:_ PrelBase.Bool ;;
-1 main2 _:_ PrelBase.Bool ;;
-1 main3 _:_ PrelBase.Bool ;;
-1 mem _:_ _forall_ [a] {PrelBase.Eq a} => a -> [a] -> PrelBase.Bool ;;
-1 mem1 _:_ _forall_ [a] {PrelBase.Eq a} => a -> [a] -> PrelBase.Bool ;;
-1 mem2 _:_ _forall_ [a] {PrelBase.Eq a} => a -> [a] -> PrelBase.Bool ;;
-1 mem3 _:_ _forall_ [a] {PrelBase.Eq a} => a -> [a] -> PrelBase.Bool ;;
-1 mem4 _:_ _forall_ [a] {PrelBase.Eq a} => a -> [a] -> PrelBase.Bool ;;
-1 oR _:_ PrelBase.Bool -> PrelBase.Bool -> PrelBase.Bool ;;
-1 oR1 _:_ PrelBase.Bool -> PrelBase.Bool -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc050.hs b/ghc/compiler/tests/typecheck/should_succeed/tc050.hs
deleted file mode 100644
index ef03b282d908..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc050.hs
+++ /dev/null
@@ -1,23 +0,0 @@
-module ShouldSucceed where
-
-class Foo a where
- o_and :: a -> a -> a
-
-
-instance Foo Bool where
- o_and False x = False
- o_and x False = False
- o_and True True = True
-
-
-instance Foo Int where
- o_and x 0 = 0
- o_and 0 x = 0
- o_and 1 1 = 1
-
-
-f x y = o_and x False
-
-g x y = o_and x 1
-
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc050.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc050.stderr
deleted file mode 100644
index 21e76c07633c..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc050.stderr
+++ /dev/null
@@ -1,133 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-o_and{-r3P,x-} =
- _/\_ a{-r3M-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aIR-}]
-[d.Foo_aIK]
-[([a{-aIR-}], $mo_and{-rHn,x-}, o_and_aIM)]
- AbsBinds [] [] [([], o_and_aIM, o_and_aIO)]
- o_and_aIO
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aIR-} -> a{-aIR-} -> a{-aIR-}) "Class Foo Method o_and"
-{- rec -}
-AbsBinds [] [] [([], $d1{-rJ9,x-}, d.Foo_aI0)]
- AbsBinds [] [] [([], o_and_aJa, o_and_aI3)]
- lit_aJi =
- lit_aJ7
- lit_aJh =
- lit_aJ7
- ==_aJg =
- ==_aJ6
- lit_aJf =
- lit_aJ7
- ==_aJe =
- ==_aJ6
- lit_aJd =
- lit_aJ4
- ==_aJc =
- ==_aJ6
- lit_aJb =
- lit_aJ4
- o_and_aI3
- x_r3r 0 = lit_aJi
- o_and_aI3
- 0 x_r3v = lit_aJf
- o_and_aI3
- 1 1 = lit_aJb
- d.Foo_aI0 =
- ({-dict-} [] [o_and_aJa])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rJj,x-}, d.Foo_aIB)]
- AbsBinds [] [] [([], o_and_aJk, o_and_aIE)]
- o_and_aIE
- PrelBase.False{-58,p-}{i} x_r3E
- = PrelBase.False{-58,p-}{i}
- o_and_aIE
- x_r3G PrelBase.False{-58,p-}{i}
- = PrelBase.False{-58,p-}{i}
- o_and_aIE
- PrelBase.True{-5E,p-}{i} PrelBase.True{-5E,p-}{i}
- = PrelBase.True{-5E,p-}{i}
- d.Foo_aIB =
- ({-dict-} [] [o_and_aJk])
-{- nonrec -}
-d.Num_aIV =
- PrelBase.$d3{-rbG,p-}
-fromInt_aJ8 =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aIV
-lit_aJ7 =
- fromInt_aJ8 PrelBase.I#{-5b,p-}{i} 0#
-d.Eq_aIY =
- PrelBase.$d7{-rcc,p-}
-==_aJ6 =
- PrelBase.=={-8Y,p-}
- PrelBase.Int{-3g,p-}
- d.Eq_aIY
-fromInt_aJ5 =
- fromInt_aJ8
-lit_aJ4 =
- fromInt_aJ5 PrelBase.I#{-5b,p-}{i} 1#
-d.Foo_aJ2 =
- $d2{-rJj,x-}
-o_and_aJ3 =
- o_and{-r3P,x-}
- PrelBase.Bool{-34,p-}
- d.Foo_aJ2
-{- nonrec -}
-AbsBinds
-[t{-aHw-}, t{-aHB-}]
-[d.Foo_aHD, d.Num_aHG]
-[([t{-aHw-}, t{-aHB-}], g{-r3N,x-}, g_aHm)]
- o_and_aJn =
- o_and{-r3P,x-}
- t{-aHw-}
- d.Foo_aHD
- fromInt_aJm =
- PrelBase.fromInt{-8R,p-}
- t{-aHw-}
- d.Num_aHG
- lit_aJl =
- fromInt_aJm PrelBase.I#{-5b,p-}{i} 1#
- g_aHm
- x_r3k y_r3m
- = o_and_aJn x_r3k lit_aJl
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-aHT-}] [] [([t{-aHT-}], f{-r3O,x-}, f_aHI)]
- f_aHI
- x_r3g y_r3i
- = o_and_aJ3 x_r3g PrelBase.False{-58,p-}{i}
-{- nonrec -}
-tc050.hs:14:
- Warning: Possibly incomplete patterns
- in the definition of function `o_and'
-tc050.hs:8:
- Warning: Possibly incomplete patterns
- in the definition of function `o_and'
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed f g Foo(o_and);
-_instances_
-instance {Foo PrelBase.Int} = $d1;
-instance {Foo PrelBase.Bool} = $d2;
-_declarations_
-1 $d1 _:_ {Foo PrelBase.Int} ;;
-1 $d2 _:_ {Foo PrelBase.Bool} ;;
-1 $mo_and _:_ _forall_ [a] {Foo a} => a -> a -> a ;;
-1 class Foo r3M where {o_and :: r3M -> r3M -> r3M} ;
-1 f _:_ _forall_ [a] => PrelBase.Bool -> a -> PrelBase.Bool ;;
-1 g _:_ _forall_ [a b] {Foo a, PrelBase.Num a} => a -> b -> a ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc051.hs b/ghc/compiler/tests/typecheck/should_succeed/tc051.hs
deleted file mode 100644
index 7f14282fb8d5..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc051.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-module ShouldSucceed where
-
-class Eq' a where
- doubleeq :: a -> a -> Bool
-
-class (Eq' a) => Ord' a where
- lt :: a -> a -> Bool
-
-instance Eq' Int where
- doubleeq x y = True
-
-instance (Eq' a) => Eq' [a] where
- doubleeq x y = True
-
-instance Ord' Int where
- lt x y = True
-
-{-
-class (Ord a) => Ix a where
- range :: (a,a) -> [a]
-
-instance Ix Int where
- range (x,y) = [x,y]
--}
-
-
-
-
-
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc051.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc051.stderr
deleted file mode 100644
index a578587bd1bb..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc051.stderr
+++ /dev/null
@@ -1,85 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-scsel_Ord'ShouldSucceedEq'{-aoN,x-} =
- _/\_ a{-r3G-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B1;}
-lt{-r3L,x-} =
- _/\_ a{-r3G-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B2;}
-{- nonrec -}
-AbsBinds
-[a{-aoB-}]
-[d.Ord'_aou]
-[([a{-aoB-}], $mlt{-roO,x-}, lt_aow)]
- AbsBinds [] [] [([], lt_aow, lt_aoy)]
- lt_aoy
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aoB-}
- -> a{-aoB-}
- -> PrelBase.Bool{-34,p-}) "Class Ord' Method lt"
-{- nonrec -}
-doubleeq{-r3N,x-} =
- _/\_ a{-r3K-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aoM-}]
-[d.Eq'_aoF]
-[([a{-aoM-}], $mdoubleeq{-roP,x-}, doubleeq_aoH)]
- AbsBinds [] [] [([], doubleeq_aoH, doubleeq_aoJ)]
- doubleeq_aoJ
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aoM-}
- -> a{-aoM-}
- -> PrelBase.Bool{-34,p-}) "Class Eq' Method doubleeq"
-{- rec -}
-AbsBinds [] [] [([], $d1{-roQ,x-}, d.Ord'_anQ)]
- d.Eq'_anU =
- $d3{-roS,x-}
- AbsBinds [] [] [([], lt_aoR, lt_anT)]
- lt_anT
- x_r3j y_r3l
- = PrelBase.True{-5E,p-}{i}
- d.Ord'_anQ =
- ({-dict-} [d.Eq'_anU] [lt_aoR])
-{- rec -}
-AbsBinds
-[a{-aob-}]
-[d.Eq'_aoe]
-[([a{-aob-}], $d2{-roT,x-}, d.Eq'_ao5)]
- AbsBinds [] [] [([], doubleeq_aoU, doubleeq_ao8)]
- doubleeq_ao8
- x_r3t y_r3v
- = PrelBase.True{-5E,p-}{i}
- d.Eq'_ao5 =
- ({-dict-} [] [doubleeq_aoU])
-{- rec -}
-AbsBinds [] [] [([], $d3{-roS,x-}, d.Eq'_aol)]
- AbsBinds [] [] [([], doubleeq_aoV, doubleeq_aoo)]
- doubleeq_aoo
- x_r3B y_r3D
- = PrelBase.True{-5E,p-}{i}
- d.Eq'_aol =
- ({-dict-} [] [doubleeq_aoV])
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed Eq'(doubleeq) Ord'(lt);
-_instances_
-instance {Ord' PrelBase.Int} = $d1;
-instance _forall_ [a] {Eq' a} => {Eq' [a]} = $d2;
-instance {Eq' PrelBase.Int} = $d3;
-_declarations_
-1 $d1 _:_ {Ord' PrelBase.Int} ;;
-1 $d2 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
-1 $d3 _:_ {Eq' PrelBase.Int} ;;
-1 $mdoubleeq _:_ _forall_ [a] {Eq' a} => a -> a -> PrelBase.Bool ;;
-1 $mlt _:_ _forall_ [a] {Ord' a} => a -> a -> PrelBase.Bool ;;
-1 class Eq' r3K where {doubleeq :: r3K -> r3K -> PrelBase.Bool} ;
-1 class {Eq' r3G} => Ord' r3G where {lt :: r3G -> r3G -> PrelBase.Bool} ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc052.hs b/ghc/compiler/tests/typecheck/should_succeed/tc052.hs
deleted file mode 100644
index 108ef12046ad..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc052.hs
+++ /dev/null
@@ -1,8 +0,0 @@
-module ShouldSucceed where
-
-type A a = B a
-
-type B c = C
-
-type C = Int
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc052.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc052.stderr
deleted file mode 100644
index fe73b103e992..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc052.stderr
+++ /dev/null
@@ -1,15 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed A B C;
-_declarations_
-1 type A r3i = B r3i ;
-1 type B r3g = C ;
-1 type C = PrelBase.Int ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc053.hs b/ghc/compiler/tests/typecheck/should_succeed/tc053.hs
deleted file mode 100644
index 865211d9175e..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc053.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-module ShouldSucceed where
-
-class Eq' a where
- deq :: a -> a -> Bool
-
-instance Eq' Int where
- deq x y = True
-
-instance (Eq' a) => Eq' [a] where
- deq (a:as) (b:bs) = if (deq a b) then (deq as bs) else False
-
-f x = deq x [1]
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc053.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc053.stderr
deleted file mode 100644
index ada7849daf0e..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc053.stderr
+++ /dev/null
@@ -1,94 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-deq{-r3D,x-} =
- _/\_ a{-r3B-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aIm-}]
-[d.Eq'_aIf]
-[([a{-aIm-}], $mdeq{-rHb,x-}, deq_aIh)]
- AbsBinds [] [] [([], deq_aIh, deq_aIj)]
- deq_aIj
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aIm-}
- -> a{-aIm-}
- -> PrelBase.Bool{-34,p-}) "Class Eq' Method deq"
-{- rec -}
-AbsBinds
-[a{-aHK-}]
-[d.Eq'_aHW]
-[([a{-aHK-}], $d1{-rIn,x-}, d.Eq'_aHA)]
- d.Eq'_aI0 =
- d.Eq'_aHW
- deq_aIq =
- deq{-r3D,x-}
- a{-aHK-}
- d.Eq'_aI0
- deq_aIp =
- deq_aIo
- AbsBinds [] [] [([], deq_aIo, deq_aHD)]
- deq_aHD
- (a_r3m PrelBase.:{-55,p-}{i} as_r3n)
- (b_r3p PrelBase.:{-55,p-}{i} bs_r3q)
- = if deq_aIq a_r3m b_r3p then
- deq_aIp as_r3n bs_r3q
- else
- PrelBase.False{-58,p-}{i}
- d.Eq'_aHA =
- ({-dict-} [] [deq_aIo])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rIr,x-}, d.Eq'_aI6)]
- AbsBinds [] [] [([], deq_aIs, deq_aI9)]
- deq_aI9
- x_r3w y_r3y
- = PrelBase.True{-5E,p-}{i}
- d.Eq'_aI6 =
- ({-dict-} [] [deq_aIs])
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aHl-}]
-[d.Eq'_aHr, d.Num_aHu]
-[([t{-aHl-}], f{-r3C,x-}, f_aHa)]
- d.Eq'_aHp =
- $d1{-rIn,x-}
- t{-aHl-}
- d.Eq'_aHr
- deq_aIv =
- deq{-r3D,x-}
- [t{-aHl-}]
- d.Eq'_aHp
- fromInt_aIu =
- PrelBase.fromInt{-8R,p-}
- t{-aHl-}
- d.Num_aHu
- lit_aIt =
- fromInt_aIu PrelBase.I#{-5b,p-}{i} 1#
- f_aHa
- x_r3f = deq_aIv x_r3f [lit_aIt] (t{-aHl-})
-{- nonrec -}
-tc053.hs:10:
- Warning: Possibly incomplete patterns
- in the definition of function `deq'
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed f Eq'(deq);
-_instances_
-instance _forall_ [a] {Eq' a} => {Eq' [a]} = $d1;
-instance {Eq' PrelBase.Int} = $d2;
-_declarations_
-1 $d1 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
-1 $d2 _:_ {Eq' PrelBase.Int} ;;
-1 $mdeq _:_ _forall_ [a] {Eq' a} => a -> a -> PrelBase.Bool ;;
-1 class Eq' r3B where {deq :: r3B -> r3B -> PrelBase.Bool} ;
-1 f _:_ _forall_ [a] {Eq' a, PrelBase.Num a} => [a] -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc054.hs b/ghc/compiler/tests/typecheck/should_succeed/tc054.hs
deleted file mode 100644
index df9deb08aaea..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc054.hs
+++ /dev/null
@@ -1,16 +0,0 @@
-module ShouldSucceed where
-
-class Eq' a where
- doubleeq :: a -> a -> Bool
-
-class (Eq' a) => Ord' a where
- lt :: a -> a -> Bool
-
-instance Eq' Int where
- doubleeq x y = True
-
-instance Ord' Int where
- lt x y = True
-
-f x y | lt x 1 = True
- | otherwise = False
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc054.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc054.stderr
deleted file mode 100644
index e9c470b44066..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc054.stderr
+++ /dev/null
@@ -1,98 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-scsel_Ord'ShouldSucceedEq'{-aIr,x-} =
- _/\_ a{-r3B-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B1;}
-lt{-r3I,x-} =
- _/\_ a{-r3B-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B2;}
-{- nonrec -}
-AbsBinds
-[a{-aIf-}]
-[d.Ord'_aI8]
-[([a{-aIf-}], $mlt{-rHm,x-}, lt_aIa)]
- AbsBinds [] [] [([], lt_aIa, lt_aIc)]
- lt_aIc
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aIf-}
- -> a{-aIf-}
- -> PrelBase.Bool{-34,p-}) "Class Ord' Method lt"
-{- nonrec -}
-doubleeq{-r3K,x-} =
- _/\_ a{-r3G-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aIq-}]
-[d.Eq'_aIj]
-[([a{-aIq-}], $mdoubleeq{-rHn,x-}, doubleeq_aIl)]
- AbsBinds [] [] [([], doubleeq_aIl, doubleeq_aIn)]
- doubleeq_aIn
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aIq-}
- -> a{-aIq-}
- -> PrelBase.Bool{-34,p-}) "Class Eq' Method doubleeq"
-{- rec -}
-AbsBinds [] [] [([], $d1{-rIs,x-}, d.Ord'_aHL)]
- d.Eq'_aHP =
- $d2{-rIu,x-}
- AbsBinds [] [] [([], lt_aIt, lt_aHO)]
- lt_aHO
- x_r3o y_r3q
- = PrelBase.True{-5E,p-}{i}
- d.Ord'_aHL =
- ({-dict-} [d.Eq'_aHP] [lt_aIt])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rIu,x-}, d.Eq'_aHZ)]
- AbsBinds [] [] [([], doubleeq_aIv, doubleeq_aI2)]
- doubleeq_aI2
- x_r3w y_r3y
- = PrelBase.True{-5E,p-}{i}
- d.Eq'_aHZ =
- ({-dict-} [] [doubleeq_aIv])
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aHw-}, t{-aHB-}]
-[d.Ord'_aHD, d.Num_aHG]
-[([t{-aHw-}, t{-aHB-}], f{-r3H,x-}, f_aHl)]
- lt_aIy =
- lt{-r3I,x-}
- t{-aHw-}
- d.Ord'_aHD
- fromInt_aIx =
- PrelBase.fromInt{-8R,p-}
- t{-aHw-}
- d.Num_aHG
- lit_aIw =
- fromInt_aIx PrelBase.I#{-5b,p-}{i} 1#
- f_aHl
- x_r3h y_r3j
- | [lt_aIy x_r3h lit_aIw] =
- PrelBase.True{-5E,p-}{i}
- | [PrelBase.otherwise{-818,p-}] =
- PrelBase.False{-58,p-}{i}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 otherwise 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed f Eq'(doubleeq) Ord'(lt);
-_instances_
-instance {Ord' PrelBase.Int} = $d1;
-instance {Eq' PrelBase.Int} = $d2;
-_declarations_
-1 $d1 _:_ {Ord' PrelBase.Int} ;;
-1 $d2 _:_ {Eq' PrelBase.Int} ;;
-1 $mdoubleeq _:_ _forall_ [a] {Eq' a} => a -> a -> PrelBase.Bool ;;
-1 $mlt _:_ _forall_ [a] {Ord' a} => a -> a -> PrelBase.Bool ;;
-1 class Eq' r3G where {doubleeq :: r3G -> r3G -> PrelBase.Bool} ;
-1 class {Eq' r3B} => Ord' r3B where {lt :: r3B -> r3B -> PrelBase.Bool} ;
-1 f _:_ _forall_ [a b] {Ord' a, PrelBase.Num a} => a -> b -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc055.hs b/ghc/compiler/tests/typecheck/should_succeed/tc055.hs
deleted file mode 100644
index cdbb8f4b4d81..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc055.hs
+++ /dev/null
@@ -1,3 +0,0 @@
-module ShouldSucceed where
-
-(x,y) = (\p -> p,\q -> q)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc055.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc055.stderr
deleted file mode 100644
index 5980a7536a86..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc055.stderr
+++ /dev/null
@@ -1,26 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aBi-}, t{-aBk-}]
-[]
-[([t{-aBi-}, t{-aBk-}], x{-r3i,x-}, x_aB3), ([t{-aBi-}, t{-aBk-}],
- y{-r3h,x-},
- y_aB4)]
- (x_aB3, y_aB4)
- = (\ p_r3e -> p_r3e, \ q_r3g -> q_r3g)
-{- nonrec -}
-
-NOTE: Simplifier still going after 4 iterations; bailing out.
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed x y;
-_declarations_
-1 x _:_ _forall_ [a b] => a -> a ;;
-1 y _:_ _forall_ [a b] => b -> b ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc056.hs b/ghc/compiler/tests/typecheck/should_succeed/tc056.hs
deleted file mode 100644
index f5198f245ddd..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc056.hs
+++ /dev/null
@@ -1,15 +0,0 @@
-module ShouldSucceed where
-
-class Eq' a where
- doubleeq :: a -> a -> Bool
-
-class (Eq' a) => Ord' a where
- lt :: a -> a -> Bool
-
-instance Eq' Int where
- doubleeq x y = True
-
-instance (Eq' a,Eq' a) => Eq' [a] where
- doubleeq x y = True
-
-f x y = doubleeq x [1]
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc056.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc056.stderr
deleted file mode 100644
index 7d2940255697..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc056.stderr
+++ /dev/null
@@ -1,112 +0,0 @@
-
-tc056.hs:13:warning:
- Duplicate class assertion `[(`Eq'',
- `a'),
- (`Eq'',
- `a')]' in context:
- [(`Eq'',
- `a'),
- (`Eq'',
- `a')]
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-scsel_Ord'ShouldSucceedEq'{-aID,x-} =
- _/\_ a{-r3D-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B1;}
-lt{-r3J,x-} =
- _/\_ a{-r3D-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B2;}
-{- nonrec -}
-AbsBinds
-[a{-aIr-}]
-[d.Ord'_aIk]
-[([a{-aIr-}], $mlt{-rHo,x-}, lt_aIm)]
- AbsBinds [] [] [([], lt_aIm, lt_aIo)]
- lt_aIo
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aIr-}
- -> a{-aIr-}
- -> PrelBase.Bool{-34,p-}) "Class Ord' Method lt"
-{- nonrec -}
-doubleeq{-r3L,x-} =
- _/\_ a{-r3H-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aIC-}]
-[d.Eq'_aIv]
-[([a{-aIC-}], $mdoubleeq{-rHp,x-}, doubleeq_aIx)]
- AbsBinds [] [] [([], doubleeq_aIx, doubleeq_aIz)]
- doubleeq_aIz
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aIC-}
- -> a{-aIC-}
- -> PrelBase.Bool{-34,p-}) "Class Eq' Method doubleeq"
-{- rec -}
-AbsBinds
-[a{-aHZ-}]
-[d.Eq'_aI2, d.Eq'_aI3]
-[([a{-aHZ-}], $d1{-rIE,x-}, d.Eq'_aHT)]
- AbsBinds [] [] [([], doubleeq_aIF, doubleeq_aHW)]
- doubleeq_aHW
- x_r3q y_r3s
- = PrelBase.True{-5E,p-}{i}
- d.Eq'_aHT =
- ({-dict-} [] [doubleeq_aIF])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rIG,x-}, d.Eq'_aIb)]
- AbsBinds [] [] [([], doubleeq_aIH, doubleeq_aIe)]
- doubleeq_aIe
- x_r3y y_r3A
- = PrelBase.True{-5E,p-}{i}
- d.Eq'_aIb =
- ({-dict-} [] [doubleeq_aIH])
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aHA-}, t{-aHF-}]
-[d.Eq'_aHJ, d.Num_aHN]
-[([t{-aHA-}, t{-aHF-}], f{-r3I,x-}, f_aHn)]
- d.Eq'_aHK =
- d.Eq'_aHJ
- d.Eq'_aHH =
- $d1{-rIE,x-}
- t{-aHA-}
- [d.Eq'_aHJ, d.Eq'_aHK]
- doubleeq_aIK =
- doubleeq{-r3L,x-}
- [t{-aHA-}]
- d.Eq'_aHH
- fromInt_aIJ =
- PrelBase.fromInt{-8R,p-}
- t{-aHA-}
- d.Num_aHN
- lit_aII =
- fromInt_aIJ PrelBase.I#{-5b,p-}{i} 1#
- f_aHn
- x_r3h y_r3j
- = doubleeq_aIK x_r3h [lit_aII] (t{-aHA-})
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed f Eq'(doubleeq) Ord'(lt);
-_instances_
-instance _forall_ [a] {Eq' a, Eq' a} => {Eq' [a]} = $d1;
-instance {Eq' PrelBase.Int} = $d2;
-_declarations_
-1 $d1 _:_ _forall_ [a] {Eq' a, Eq' a} => {Eq' [a]} ;;
-1 $d2 _:_ {Eq' PrelBase.Int} ;;
-1 $mdoubleeq _:_ _forall_ [a] {Eq' a} => a -> a -> PrelBase.Bool ;;
-1 $mlt _:_ _forall_ [a] {Ord' a} => a -> a -> PrelBase.Bool ;;
-1 class Eq' r3H where {doubleeq :: r3H -> r3H -> PrelBase.Bool} ;
-1 class {Eq' r3D} => Ord' r3D where {lt :: r3D -> r3D -> PrelBase.Bool} ;
-1 f _:_ _forall_ [a b] {Eq' a, PrelBase.Num a} => [a] -> b -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc057.hi b/ghc/compiler/tests/typecheck/should_succeed/tc057.hi
deleted file mode 100644
index 3613dfacb608..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc057.hi
+++ /dev/null
@@ -1,7 +0,0 @@
-interface ShouldSucceed where {
-class Eq' a where { deq }
-instance <Eq' Int>
-instance Eq' a => <Eq' [a]>
-dand :: Bool -> Bool -> Bool
-f :: Eq' t93 => t93 -> t93 -> Bool
-}
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc057.hs b/ghc/compiler/tests/typecheck/should_succeed/tc057.hs
deleted file mode 100644
index cc561b95b88e..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc057.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-module ShouldSucceed where
-
--- See also tcfail060.hs
-
-class Eq' a where
- deq :: a -> a -> Bool
-
-instance Eq' Int where
- deq x y = True
-
-instance (Eq' a) => Eq' [a] where
- deq (a:as) (b:bs) = dand (f a b) (f as bs)
-
-dand True True = True
-dand x y = False
-
-f :: Eq' a => a -> a -> Bool
-f p q = dand (deq p q) (deq [1::Int] [2::Int])
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc057.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc057.stderr
deleted file mode 100644
index d0c198309bf4..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc057.stderr
+++ /dev/null
@@ -1,126 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-deq{-r3R,x-} =
- _/\_ a{-r3Q-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aIY-}]
-[d.Eq'_aIR]
-[([a{-aIY-}], $mdeq{-rHC,x-}, deq_aIT)]
- AbsBinds [] [] [([], deq_aIT, deq_aIV)]
- deq_aIV
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aIY-}
- -> a{-aIY-}
- -> PrelBase.Bool{-34,p-}) "Class Eq' Method deq"
-{- rec -}
-AbsBinds
-[a{-aIk-}]
-[d.Eq'_aIw]
-[([a{-aIk-}], $d1{-rJf,x-}, d.Eq'_aIa)]
- d.Eq'_aIA =
- d.Eq'_aIw
- f_aJi =
- f{-r3i,x-}
- a{-aIk-}
- d.Eq'_aIA
- d.Eq'_aIC =
- d.Eq'_aIa
- f_aJh =
- f{-r3i,x-}
- [a{-aIk-}]
- d.Eq'_aIC
- AbsBinds [] [] [([], deq_aJg, deq_aId)]
- deq_aId
- (a_r3B PrelBase.:{-55,p-}{i} as_r3C)
- (b_r3E PrelBase.:{-55,p-}{i} bs_r3F)
- = dand{-r3j,x-} f_aJi a_r3B b_r3E f_aJh as_r3C bs_r3F
- d.Eq'_aIa =
- ({-dict-} [] [deq_aJg])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rJj,x-}, d.Eq'_aII)]
- AbsBinds [] [] [([], deq_aJk, deq_aIL)]
- deq_aIL
- x_r3L y_r3N
- = PrelBase.True{-5E,p-}{i}
- d.Eq'_aII =
- ({-dict-} [] [deq_aJk])
-{- nonrec -}
-d.Eq'_aJ3 =
- $d2{-rJj,x-}
-d.Eq'_aJ1 =
- $d1{-rJf,x-}
- PrelBase.Int{-3g,p-}
- d.Eq'_aJ3
-deq_aJe =
- deq{-r3R,x-}
- [PrelBase.Int{-3g,p-}]
- d.Eq'_aJ1
-d.Num_aJ7 =
- PrelBase.$d3{-rbH,p-}
-fromInt_aJd =
- PrelBase.fromInt{-8R,p-}
- PrelBase.Int{-3g,p-}
- d.Num_aJ7
-lit_aJc =
- fromInt_aJd PrelBase.I#{-5b,p-}{i} 1#
-fromInt_aJb =
- fromInt_aJd
-lit_aJ8 =
- fromInt_aJb PrelBase.I#{-5b,p-}{i} 2#
-{- nonrec -}
-AbsBinds [] [] [([], dand{-r3j,x-}, dand_aHo)]
- dand_aHo
- PrelBase.True{-5E,p-}{i} PrelBase.True{-5E,p-}{i}
- = PrelBase.True{-5E,p-}{i}
- dand_aHo
- x_r3n y_r3p
- = PrelBase.False{-58,p-}{i}
-{- nonrec -}
-{- nonrec -}
-AbsBinds [a{-aHz-}] [d.Eq'_aHY] [([a{-aHz-}], f{-r3i,x-}, f_aHw)]
- d.Eq'_aI0 =
- d.Eq'_aHY
- deq_aJl =
- deq{-r3R,x-}
- a{-aHz-}
- d.Eq'_aI0
- f_aHw
- p_r3r q_r3t
- = dand{-r3j,x-} deq_aJl p_r3r q_r3t
- deq_aJe [lit_aJc] (PrelBase.Int{-3g,p-})
- [lit_aJ8] (PrelBase.Int{-3g,p-})
-{- nonrec -}
-tc057.hs:12:
- Warning: Possibly incomplete patterns
- in the definition of function `deq'
-ghc:junk old iface line?:section::interface ShouldSucceed where {
-ghc:junk old iface line?:section::class Eq' a where { deq }
-ghc:junk old iface line?:section::instance <Eq' Int>
-ghc:junk old iface line?:section::instance Eq' a => <Eq' [a]>
-ghc:junk old iface line?:section::dand :: Bool -> Bool -> Bool
-ghc:junk old iface line?:section::f :: Eq' t93 => t93 -> t93 -> Bool
-ghc:junk old iface line?:section::}
-ghc: module version changed to 1; reason: usages changed
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed dand f Eq'(deq);
-_instances_
-instance _forall_ [a] {Eq' a} => {Eq' [a]} = $d1;
-instance {Eq' PrelBase.Int} = $d2;
-_declarations_
-1 $d1 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
-1 $d2 _:_ {Eq' PrelBase.Int} ;;
-1 $mdeq _:_ _forall_ [a] {Eq' a} => a -> a -> PrelBase.Bool ;;
-1 class Eq' r3Q where {deq :: r3Q -> r3Q -> PrelBase.Bool} ;
-1 dand _:_ PrelBase.Bool -> PrelBase.Bool -> PrelBase.Bool ;;
-1 f _:_ _forall_ [a] {Eq' a} => a -> a -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc058.hs b/ghc/compiler/tests/typecheck/should_succeed/tc058.hs
deleted file mode 100644
index 7df1f3bc6d7f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc058.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-module ShouldSucceed where
-
-class Eq2 a where
- doubleeq :: a -> a -> Bool
-
-class (Eq2 a) => Ord2 a where
- lt :: a -> a -> Bool
-
-instance Eq2 Int where
- doubleeq x y = True
-
-instance Ord2 Int where
- lt x y = True
-
-instance (Eq2 a,Ord2 a) => Eq2 [a] where
- doubleeq xs ys = True
-
-f x y = doubleeq x [1]
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc058.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc058.stderr
deleted file mode 100644
index e933039ea2d0..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc058.stderr
+++ /dev/null
@@ -1,116 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-scsel_Ord2ShouldSucceedEq2{-aJ0,x-} =
- _/\_ a{-r3M-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B1;}
-lt{-r3S,x-} =
- _/\_ a{-r3M-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B2;}
-{- nonrec -}
-AbsBinds
-[a{-aIO-}]
-[d.Ord2_aIH]
-[([a{-aIO-}], $mlt{-rHw,x-}, lt_aIJ)]
- AbsBinds [] [] [([], lt_aIJ, lt_aIL)]
- lt_aIL
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aIO-}
- -> a{-aIO-}
- -> PrelBase.Bool{-34,p-}) "Class Ord2 Method lt"
-{- nonrec -}
-doubleeq{-r3T,x-} =
- _/\_ a{-r3Q-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aIZ-}]
-[d.Eq2_aIS]
-[([a{-aIZ-}], $mdoubleeq{-rHx,x-}, doubleeq_aIU)]
- AbsBinds [] [] [([], doubleeq_aIU, doubleeq_aIW)]
- doubleeq_aIW
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aIZ-}
- -> a{-aIZ-}
- -> PrelBase.Bool{-34,p-}) "Class Eq2 Method doubleeq"
-{- rec -}
-AbsBinds
-[a{-aI8-}]
-[d.Eq2_aIb, d.Ord2_aIc]
-[([a{-aI8-}], $d1{-rJ1,x-}, d.Eq2_aI2)]
- AbsBinds [] [] [([], doubleeq_aJ2, doubleeq_aI5)]
- doubleeq_aI5
- xs_r3r ys_r3t
- = PrelBase.True{-5E,p-}{i}
- d.Eq2_aI2 =
- ({-dict-} [] [doubleeq_aJ2])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rJ3,x-}, d.Ord2_aIk)]
- d.Eq2_aIo =
- $d3{-rJ5,x-}
- AbsBinds [] [] [([], lt_aJ4, lt_aIn)]
- lt_aIn
- x_r3z y_r3B
- = PrelBase.True{-5E,p-}{i}
- d.Ord2_aIk =
- ({-dict-} [d.Eq2_aIo] [lt_aJ4])
-{- rec -}
-AbsBinds [] [] [([], $d3{-rJ5,x-}, d.Eq2_aIy)]
- AbsBinds [] [] [([], doubleeq_aJ6, doubleeq_aIB)]
- doubleeq_aIB
- x_r3H y_r3J
- = PrelBase.True{-5E,p-}{i}
- d.Eq2_aIy =
- ({-dict-} [] [doubleeq_aJ6])
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aHI-}, t{-aHN-}]
-[d.Ord2_aHS, d.Num_aHV]
-[([t{-aHI-}, t{-aHN-}], f{-r3R,x-}, f_aHv)]
- d.Eq2_aHR =
- scsel_Ord2ShouldSucceedEq2{-aJ0,x-}
- t{-aHI-}
- d.Ord2_aHS
- d.Eq2_aHP =
- $d1{-rJ1,x-}
- t{-aHI-}
- [d.Eq2_aHR, d.Ord2_aHS]
- doubleeq_aJ9 =
- doubleeq{-r3T,x-}
- [t{-aHI-}]
- d.Eq2_aHP
- fromInt_aJ8 =
- PrelBase.fromInt{-8R,p-}
- t{-aHI-}
- d.Num_aHV
- lit_aJ7 =
- fromInt_aJ8 PrelBase.I#{-5b,p-}{i} 1#
- f_aHv
- x_r3h y_r3j
- = doubleeq_aJ9 x_r3h [lit_aJ7] (t{-aHI-})
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed f Eq2(doubleeq) Ord2(lt);
-_instances_
-instance _forall_ [a] {Eq2 a, Ord2 a} => {Eq2 [a]} = $d1;
-instance {Ord2 PrelBase.Int} = $d2;
-instance {Eq2 PrelBase.Int} = $d3;
-_declarations_
-1 $d1 _:_ _forall_ [a] {Eq2 a, Ord2 a} => {Eq2 [a]} ;;
-1 $d2 _:_ {Ord2 PrelBase.Int} ;;
-1 $d3 _:_ {Eq2 PrelBase.Int} ;;
-1 $mdoubleeq _:_ _forall_ [a] {Eq2 a} => a -> a -> PrelBase.Bool ;;
-1 $mlt _:_ _forall_ [a] {Ord2 a} => a -> a -> PrelBase.Bool ;;
-1 class Eq2 r3Q where {doubleeq :: r3Q -> r3Q -> PrelBase.Bool} ;
-1 class {Eq2 r3M} => Ord2 r3M where {lt :: r3M -> r3M -> PrelBase.Bool} ;
-1 f _:_ _forall_ [a b] {Ord2 a, PrelBase.Num a} => [a] -> b -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc059.hs b/ghc/compiler/tests/typecheck/should_succeed/tc059.hs
deleted file mode 100644
index f0faac815596..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc059.hs
+++ /dev/null
@@ -1,15 +0,0 @@
-module ShouldSucceed where
-
-class Eq2 a where
- deq :: a -> a -> Bool
- foo :: a -> a
-
-instance Eq2 Int where
- deq x y = True
- foo x = x
-
-instance (Eq2 a) => Eq2 [a] where
- deq (a:as) (b:bs) = if (deq a (foo b)) then (deq as (foo bs)) else False
- foo x = x
-
-f x = deq x [1]
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc059.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc059.stderr
deleted file mode 100644
index 39105c91145f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc059.stderr
+++ /dev/null
@@ -1,120 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-deq{-r3N,x-} =
- _/\_ a{-r3K-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B1;}
-foo{-r3M,x-} =
- _/\_ a{-r3K-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B2;}
-{- nonrec -}
-AbsBinds
-[a{-aIS-}]
-[d.Eq2_aIL]
-[([a{-aIS-}], $mdeq{-rHo,x-}, deq_aIN)]
- AbsBinds [] [] [([], deq_aIN, deq_aIP)]
- deq_aIP
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aIS-}
- -> a{-aIS-}
- -> PrelBase.Bool{-34,p-}) "Class Eq2 Method deq"
-AbsBinds
-[a{-aIS-}]
-[d.Eq2_aIV]
-[([a{-aIS-}], $mfoo{-rHn,x-}, foo_aIX)]
- AbsBinds [] [] [([], foo_aIX, foo_aIZ)]
- foo_aIZ
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aIS-} -> a{-aIS-}) "Class Eq2 Method foo"
-{- rec -}
-AbsBinds
-[a{-aHX-}]
-[d.Eq2_aIm]
-[([a{-aHX-}], $d1{-rJ2,x-}, d.Eq2_aHN)]
- d.Eq2_aIp =
- d.Eq2_aIm
- deq_aJ8 =
- deq{-r3N,x-}
- a{-aHX-}
- d.Eq2_aIp
- d.Eq2_aIr =
- d.Eq2_aIm
- foo_aJ7 =
- foo{-r3M,x-}
- a{-aHX-}
- d.Eq2_aIr
- deq_aJ6 =
- deq_aJ4
- foo_aJ5 =
- foo_aJ3
- AbsBinds [] [] [([], deq_aJ4, deq_aHQ)]
- deq_aHQ
- (a_r3n PrelBase.:{-55,p-}{i} as_r3o)
- (b_r3q PrelBase.:{-55,p-}{i} bs_r3r)
- = if deq_aJ8 a_r3n foo_aJ7 b_r3q then
- deq_aJ6 as_r3o foo_aJ5 bs_r3r
- else
- PrelBase.False{-58,p-}{i}
- AbsBinds [] [] [([], foo_aJ3, foo_aIj)]
- foo_aIj
- x_r3v = x_r3v
- d.Eq2_aHN =
- ({-dict-} [] [deq_aJ4, foo_aJ3])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rJ9,x-}, d.Eq2_aIx)]
- AbsBinds [] [] [([], deq_aJb, deq_aIA)]
- deq_aIA
- x_r3B y_r3D
- = PrelBase.True{-5E,p-}{i}
- AbsBinds [] [] [([], foo_aJa, foo_aIG)]
- foo_aIG
- x_r3H = x_r3H
- d.Eq2_aIx =
- ({-dict-} [] [deq_aJb, foo_aJa])
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aHy-}]
-[d.Eq2_aHE, d.Num_aHH]
-[([t{-aHy-}], f{-r3L,x-}, f_aHm)]
- d.Eq2_aHC =
- $d1{-rJ2,x-}
- t{-aHy-}
- d.Eq2_aHE
- deq_aJe =
- deq{-r3N,x-}
- [t{-aHy-}]
- d.Eq2_aHC
- fromInt_aJd =
- PrelBase.fromInt{-8R,p-}
- t{-aHy-}
- d.Num_aHH
- lit_aJc =
- fromInt_aJd PrelBase.I#{-5b,p-}{i} 1#
- f_aHm
- x_r3g = deq_aJe x_r3g [lit_aJc] (t{-aHy-})
-{- nonrec -}
-tc059.hs:12:
- Warning: Possibly incomplete patterns
- in the definition of function `deq'
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed f Eq2(deq foo);
-_instances_
-instance _forall_ [a] {Eq2 a} => {Eq2 [a]} = $d1;
-instance {Eq2 PrelBase.Int} = $d2;
-_declarations_
-1 $d1 _:_ _forall_ [a] {Eq2 a} => {Eq2 [a]} ;;
-1 $d2 _:_ {Eq2 PrelBase.Int} ;;
-1 $mdeq _:_ _forall_ [a] {Eq2 a} => a -> a -> PrelBase.Bool ;;
-1 $mfoo _:_ _forall_ [a] {Eq2 a} => a -> a ;;
-1 class Eq2 r3K where {deq :: r3K -> r3K -> PrelBase.Bool; foo :: r3K -> r3K} ;
-1 f _:_ _forall_ [a] {Eq2 a, PrelBase.Num a} => [a] -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc060.hs b/ghc/compiler/tests/typecheck/should_succeed/tc060.hs
deleted file mode 100644
index 6ae0ca922836..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc060.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-module ShouldSucceed where
-
-class Eq2 a where
- deq :: a -> a -> Bool
-
-instance (Eq2 a) => Eq2 [a] where
- deq (a:as) (b:bs) = if (deq a b) then (deq as bs) else False
-
-
-instance Eq2 Int where
- deq x y = True
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc060.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc060.stderr
deleted file mode 100644
index 42a7567a0b6a..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc060.stderr
+++ /dev/null
@@ -1,68 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-deq{-r3z,x-} =
- _/\_ a{-r3y-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aol-}]
-[d.Eq2_aoe]
-[([a{-aol-}], $mdeq{-ro0,x-}, deq_aog)]
- AbsBinds [] [] [([], deq_aog, deq_aoi)]
- deq_aoi
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aol-}
- -> a{-aol-}
- -> PrelBase.Bool{-34,p-}) "Class Eq2 Method deq"
-{- rec -}
-AbsBinds [] [] [([], $d1{-rom,x-}, d.Eq2_anx)]
- AbsBinds [] [] [([], deq_aon, deq_anA)]
- deq_anA
- x_r3h y_r3j
- = PrelBase.True{-5E,p-}{i}
- d.Eq2_anx =
- ({-dict-} [] [deq_aon])
-{- rec -}
-AbsBinds
-[a{-anT-}]
-[d.Eq2_ao6]
-[([a{-anT-}], $d2{-roo,x-}, d.Eq2_anJ)]
- d.Eq2_aoa =
- d.Eq2_ao6
- deq_aor =
- deq{-r3z,x-}
- a{-anT-}
- d.Eq2_aoa
- deq_aoq =
- deq_aop
- AbsBinds [] [] [([], deq_aop, deq_anM)]
- deq_anM
- (a_r3r PrelBase.:{-55,p-}{i} as_r3s)
- (b_r3u PrelBase.:{-55,p-}{i} bs_r3v)
- = if deq_aor a_r3r b_r3u then
- deq_aoq as_r3s bs_r3v
- else
- PrelBase.False{-58,p-}{i}
- d.Eq2_anJ =
- ({-dict-} [] [deq_aop])
-{- nonrec -}
-tc060.hs:7:
- Warning: Possibly incomplete patterns
- in the definition of function `deq'
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed Eq2(deq);
-_instances_
-instance {Eq2 PrelBase.Int} = $d1;
-instance _forall_ [a] {Eq2 a} => {Eq2 [a]} = $d2;
-_declarations_
-1 $d1 _:_ {Eq2 PrelBase.Int} ;;
-1 $d2 _:_ _forall_ [a] {Eq2 a} => {Eq2 [a]} ;;
-1 $mdeq _:_ _forall_ [a] {Eq2 a} => a -> a -> PrelBase.Bool ;;
-1 class Eq2 r3y where {deq :: r3y -> r3y -> PrelBase.Bool} ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc061.hs b/ghc/compiler/tests/typecheck/should_succeed/tc061.hs
deleted file mode 100644
index 25a8b65f3557..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc061.hs
+++ /dev/null
@@ -1,11 +0,0 @@
-module ShouldSucceed where
-
-class Eq1 a where
- deq :: a -> a -> Bool
-
-instance (Eq1 a) => Eq1 [a] where
- deq (a:as) (b:bs) = deq a b
-
-instance Eq1 Int where
- deq x y = True
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc061.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc061.stderr
deleted file mode 100644
index a3fcb3bab2df..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc061.stderr
+++ /dev/null
@@ -1,63 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-deq{-r3z,x-} =
- _/\_ a{-r3y-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aoi-}]
-[d.Eq1_aob]
-[([a{-aoi-}], $mdeq{-ro0,x-}, deq_aod)]
- AbsBinds [] [] [([], deq_aod, deq_aof)]
- deq_aof
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aoi-}
- -> a{-aoi-}
- -> PrelBase.Bool{-34,p-}) "Class Eq1 Method deq"
-{- rec -}
-AbsBinds [] [] [([], $d1{-roj,x-}, d.Eq1_anx)]
- AbsBinds [] [] [([], deq_aok, deq_anA)]
- deq_anA
- x_r3h y_r3j
- = PrelBase.True{-5E,p-}{i}
- d.Eq1_anx =
- ({-dict-} [] [deq_aok])
-{- rec -}
-AbsBinds
-[a{-anT-}]
-[d.Eq1_ao3]
-[([a{-anT-}], $d2{-rol,x-}, d.Eq1_anJ)]
- d.Eq1_ao7 =
- d.Eq1_ao3
- deq_aon =
- deq{-r3z,x-}
- a{-anT-}
- d.Eq1_ao7
- AbsBinds [] [] [([], deq_aom, deq_anM)]
- deq_anM
- (a_r3r PrelBase.:{-55,p-}{i} as_r3s)
- (b_r3u PrelBase.:{-55,p-}{i} bs_r3v)
- = deq_aon a_r3r b_r3u
- d.Eq1_anJ =
- ({-dict-} [] [deq_aom])
-{- nonrec -}
-tc061.hs:7:
- Warning: Possibly incomplete patterns
- in the definition of function `deq'
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed Eq1(deq);
-_instances_
-instance {Eq1 PrelBase.Int} = $d1;
-instance _forall_ [a] {Eq1 a} => {Eq1 [a]} = $d2;
-_declarations_
-1 $d1 _:_ {Eq1 PrelBase.Int} ;;
-1 $d2 _:_ _forall_ [a] {Eq1 a} => {Eq1 [a]} ;;
-1 $mdeq _:_ _forall_ [a] {Eq1 a} => a -> a -> PrelBase.Bool ;;
-1 class Eq1 r3y where {deq :: r3y -> r3y -> PrelBase.Bool} ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc062.hs b/ghc/compiler/tests/typecheck/should_succeed/tc062.hs
deleted file mode 100644
index fde6c4b1dae5..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc062.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-module ShouldSucceed where
-
-class Eq1 a where
- deq :: a -> a -> Bool
-
-instance Eq1 Int where
- deq x y = True
-
-instance (Eq1 a) => Eq1 [a] where
- deq (a:as) (b:bs) = if (deq a b) then (deq as bs) else False
-
-f x (y:ys) = deq x ys
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc062.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc062.stderr
deleted file mode 100644
index 33e6ca34512f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc062.stderr
+++ /dev/null
@@ -1,86 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-deq{-r3G,x-} =
- _/\_ a{-r3E-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aoL-}]
-[d.Eq1_aoE]
-[([a{-aoL-}], $mdeq{-rnK,x-}, deq_aoG)]
- AbsBinds [] [] [([], deq_aoG, deq_aoI)]
- deq_aoI
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aoL-}
- -> a{-aoL-}
- -> PrelBase.Bool{-34,p-}) "Class Eq1 Method deq"
-{- rec -}
-AbsBinds
-[a{-ao9-}]
-[d.Eq1_aol]
-[([a{-ao9-}], $d1{-roM,x-}, d.Eq1_anZ)]
- d.Eq1_aop =
- d.Eq1_aol
- deq_aoP =
- deq{-r3G,x-}
- a{-ao9-}
- d.Eq1_aop
- deq_aoO =
- deq_aoN
- AbsBinds [] [] [([], deq_aoN, deq_ao2)]
- deq_ao2
- (a_r3p PrelBase.:{-55,p-}{i} as_r3q)
- (b_r3s PrelBase.:{-55,p-}{i} bs_r3t)
- = if deq_aoP a_r3p b_r3s then
- deq_aoO as_r3q bs_r3t
- else
- PrelBase.False{-58,p-}{i}
- d.Eq1_anZ =
- ({-dict-} [] [deq_aoN])
-{- rec -}
-AbsBinds [] [] [([], $d2{-roQ,x-}, d.Eq1_aov)]
- AbsBinds [] [] [([], deq_aoR, deq_aoy)]
- deq_aoy
- x_r3z y_r3B
- = PrelBase.True{-5E,p-}{i}
- d.Eq1_aov =
- ({-dict-} [] [deq_aoR])
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-anH-}] [d.Eq1_anT] [([t{-anH-}], f{-r3F,x-}, f_anB)]
- d.Eq1_anR =
- $d1{-roM,x-}
- t{-anH-}
- d.Eq1_anT
- deq_aoS =
- deq{-r3G,x-}
- [t{-anH-}]
- d.Eq1_anR
- f_anB
- x_r3f (y_r3h PrelBase.:{-55,p-}{i} ys_r3i)
- = deq_aoS x_r3f ys_r3i
-{- nonrec -}
-tc062.hs:10:
- Warning: Possibly incomplete patterns
- in the definition of function `deq'
-tc062.hs:12:
- Warning: Possibly incomplete patterns
- in the definition of function `f'
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed f Eq1(deq);
-_instances_
-instance _forall_ [a] {Eq1 a} => {Eq1 [a]} = $d1;
-instance {Eq1 PrelBase.Int} = $d2;
-_declarations_
-1 $d1 _:_ _forall_ [a] {Eq1 a} => {Eq1 [a]} ;;
-1 $d2 _:_ {Eq1 PrelBase.Int} ;;
-1 $mdeq _:_ _forall_ [a] {Eq1 a} => a -> a -> PrelBase.Bool ;;
-1 class Eq1 r3E where {deq :: r3E -> r3E -> PrelBase.Bool} ;
-1 f _:_ _forall_ [a] {Eq1 a} => [a] -> [a] -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc063.hs b/ghc/compiler/tests/typecheck/should_succeed/tc063.hs
deleted file mode 100644
index 36affbfdcedb..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc063.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-module ShouldSucceed where
-
-data X a = Tag a
-
-class Reps r where
- f :: r -> r -> r
-
-instance Reps (X q) where
--- f (Tag x) (Tag y) = Tag y
- f x y = y
-
-instance Reps Bool where
- f True True = True
- f x y = False
-
-g x = f x x
-
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc063.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc063.stderr
deleted file mode 100644
index b2e89fd92b36..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc063.stderr
+++ /dev/null
@@ -1,75 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-Tag{-r3K,x-}{i} =
- _/\_ a{-r3G-} -> \ tpl_B1 ->
- Tag{-r3K,x-}{i}
- {_@_ a{-r3G-} tpl_B1}
-{- nonrec -}
-f{-r3I,x-} =
- _/\_ r{-r3C-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[r{-aHm-}]
-[d.Reps_aHf]
-[([r{-aHm-}], $mf{-rGx,x-}, f_aHh)]
- AbsBinds [] [] [([], f_aHh, f_aHj)]
- f_aHj
- = GHCerr.noDefaultMethodError{-8k,p-}
- (r{-aHm-} -> r{-aHm-} -> r{-aHm-}) "Class Reps Method f"
-{- rec -}
-AbsBinds [a{-aHn-}] [] [([a{-aHn-}], $d3{-rHq,x-}, d.Eval_aGM)]
- d.Eval_aGM =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds [] [] [([], $d1{-rHr,x-}, d.Reps_aGR)]
- AbsBinds [] [] [([], f_aHs, f_aGU)]
- f_aGU
- PrelBase.True{-5E,p-}{i} PrelBase.True{-5E,p-}{i}
- = PrelBase.True{-5E,p-}{i}
- f_aGU
- x_r3o y_r3q
- = PrelBase.False{-58,p-}{i}
- d.Reps_aGR =
- ({-dict-} [] [f_aHs])
-{- rec -}
-AbsBinds [q{-aH9-}] [] [([q{-aH9-}], $d2{-rHt,x-}, d.Reps_aH3)]
- AbsBinds [] [] [([], f_aHu, f_aH6)]
- f_aH6
- x_r3x y_r3z
- = y_r3z
- d.Reps_aH3 =
- ({-dict-} [] [f_aHu])
-{- nonrec -}
-{- nonrec -}
-AbsBinds [r{-aGB-}] [d.Reps_aGG] [([r{-aGB-}], g{-r3H,x-}, g_aGw)]
- f_aHv =
- f{-r3I,x-}
- r{-aGB-}
- d.Reps_aGG
- g_aGw
- x_r3h = f_aHv x_r3h x_r3h
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d37 1 $d39 1 $d41 1 $d46 1 Eval 1;
-_exports_
-ShouldSucceed g Reps(f) X(Tag);
-_instances_
-instance {Reps PrelBase.Bool} = $d1;
-instance _forall_ [a] => {Reps (X a)} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (X a)} = $d3;
-_declarations_
-1 $d1 _:_ {Reps PrelBase.Bool} ;;
-1 $d2 _:_ _forall_ [a] => {Reps (X a)} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (X a)} ;;
-1 $mf _:_ _forall_ [a] {Reps a} => a -> a -> a ;;
-1 class Reps r3C where {f :: r3C -> r3C -> r3C} ;
-1 data X r3G = Tag r3G ;
-1 g _:_ _forall_ [a] {Reps a} => a -> a ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc064.hs b/ghc/compiler/tests/typecheck/should_succeed/tc064.hs
deleted file mode 100644
index 18aecb091d34..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc064.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-module ShouldSucceed where
-
-data Boolean = FF | TT
-
-idb :: Boolean -> Boolean
-idb x = x
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc064.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc064.stderr
deleted file mode 100644
index 5b346e862491..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc064.stderr
+++ /dev/null
@@ -1,35 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-FF{-r5,x-}{i} =
- FF{-r5,x-}{i}
- {}
-TT{-r4,x-}{i} =
- TT{-r4,x-}{i}
- {}
-{- rec -}
-AbsBinds [] [] [([], $d1{-rG8,x-}, d.Eval_aG5)]
- d.Eval_aG5 =
- ({-dict-} [] [])
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], idb{-r6,x-}, idb_aFY)]
- idb_aFY
- x_r3k = x_r3k
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d37 1 $d39 1 $d41 1 $d46 1 Eval 1;
-_exports_
-ShouldSucceed idb Boolean(FF TT);
-_instances_
-instance {PrelBase.Eval Boolean} = $d1;
-_declarations_
-1 $d1 _:_ {PrelBase.Eval Boolean} ;;
-1 data Boolean = FF | TT ;
-1 idb _:_ Boolean -> Boolean ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc065.hs b/ghc/compiler/tests/typecheck/should_succeed/tc065.hs
deleted file mode 100644
index 14de5930512f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc065.hs
+++ /dev/null
@@ -1,107 +0,0 @@
-module Digraphs where
-
-import TheUtils
-import Set
-import List (partition )
-
-data Digraph vertex = MkDigraph [vertex]
-
-type Edge vertex = (vertex, vertex)
-type Cycle vertex = [vertex]
-
-mkDigraph = MkDigraph
-
-stronglyConnComp :: Eq vertex => [Edge vertex] -> [vertex] -> [[vertex]]
-stronglyConnComp es vs
- = snd (span_tree (new_range reversed_edges)
- ([],[])
- ( snd (dfs (new_range es) ([],[]) vs) )
- )
- where
- reversed_edges = map swap es
-
- swap :: Edge v -> Edge v
- swap (x,y) = (y, x)
-
- new_range [] w = []
- new_range ((x,y):xys) w
- = if x==w
- then (y : (new_range xys w))
- else (new_range xys w)
-
- span_tree r (vs,ns) [] = (vs,ns)
- span_tree r (vs,ns) (x:xs)
- | x `elem` vs = span_tree r (vs,ns) xs
- | otherwise = span_tree r (vs',(x:ns'):ns) xs
- where
- (vs',ns') = dfs r (x:vs,[]) (r x)
-
-dfs r (vs,ns) [] = (vs,ns)
-dfs r (vs,ns) (x:xs) | x `elem` vs = dfs r (vs,ns) xs
- | otherwise = dfs r (vs',(x:ns')++ns) xs
- where
- (vs',ns') = dfs r (x:vs,[]) (r x)
-
-
-isCyclic :: Eq vertex => [Edge vertex] -> [vertex] -> Bool
-isCyclic edges [v] = (v,v) `elem` edges
-isCyclic edges vs = True
-
-
-topSort :: (Eq vertex) => [Edge vertex] -> [vertex]
- -> MaybeErr [vertex] [[vertex]]
-
-
-topSort edges vertices
- = case cycles of
- [] -> Succeeded [v | [v] <- singletons]
- _ -> Failed cycles
- where
- sccs = stronglyConnComp edges vertices
- (cycles, singletons) = partition (isCyclic edges) sccs
-
-
-type FlattenedDependencyInfo vertex name code
- = [(vertex, Set name, Set name, code)]
-
-mkVertices :: FlattenedDependencyInfo vertex name code -> [vertex]
-mkVertices info = [ vertex | (vertex,_,_,_) <- info]
-
-mkEdges :: (Eq vertex, Ord name) =>
- [vertex]
- -> FlattenedDependencyInfo vertex name code
- -> [Edge vertex]
-
-mkEdges vertices flat_info
- = [ (source_vertex, target_vertex)
- | (source_vertex, _, used_names, _) <- flat_info,
- target_name <- setToList used_names,
- target_vertex <- vertices_defining target_name flat_info
- ]
- where
- vertices_defining name flat_info
- = [ vertex | (vertex, names_defined, _, _) <- flat_info,
- name `elementOf` names_defined
- ]
-
-lookupVertex :: (Eq vertex, Ord name) =>
- FlattenedDependencyInfo vertex name code
- -> vertex
- -> code
-
-lookupVertex flat_info vertex
- = head code_list
- where
- code_list = [ code | (vertex',_,_,code) <- flat_info, vertex == vertex']
-
-
-isRecursiveCycle :: (Eq vertex) => Cycle vertex -> [Edge vertex] -> Bool
-isRecursiveCycle [vertex] edges = (vertex, vertex) `elem` edges
-isRecursiveCycle cycle edges = True
-
-
-
--- may go to TheUtils
-
-data MaybeErr a b = Succeeded a | Failed b
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc065.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc065.stderr
deleted file mode 100644
index dbaac2dcc86b..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc065.stderr
+++ /dev/null
@@ -1,486 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-Succeeded{-r4G,x-}{i} =
- _/\_ a{-r8v-} b{-r8w-} -> \ tpl_B1 ->
- Succeeded{-r4G,x-}{i}
- {_@_ a{-r8v-} _@_ b{-r8w-} tpl_B1}
-Failed{-r4F,x-}{i} =
- _/\_ a{-r8v-} b{-r8w-} -> \ tpl_B1 ->
- Failed{-r4F,x-}{i}
- {_@_ a{-r8v-} _@_ b{-r8w-} tpl_B1}
-{- nonrec -}
-MkDigraph{-r8L,x-}{i} =
- _/\_ vertex{-r8G-} -> \ tpl_B1 ->
- MkDigraph{-r8L,x-}{i}
- {_@_ vertex{-r8G-} tpl_B1}
-{- nonrec -}
-{- rec -}
-AbsBinds
-[a{-a1lz-}, b{-a1lA-}]
-[]
-[([a{-a1lz-}, b{-a1lA-}], $d1{-r1lE,x-}, d.Eval_a1kX)]
- d.Eval_a1kX =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds
-[vertex{-a1lB-}]
-[]
-[([vertex{-a1lB-}], $d2{-r1lS,x-}, d.Eval_a1l3)]
- d.Eval_a1l3 =
- ({-dict-} [] [])
-{- nonrec -}
-d.Monad_a1l5 =
- PrelBase.$d24{-rj0,p-}
->>=_a1lQ =
- PrelBase.>>={-811,p-}
- PrelBase.[]{-3j,p-}
- d.Monad_a1l5
-d.Monad_a1l8 =
- d.Monad_a1l5
-return_a1lP =
- PrelBase.return{-816,p-}
- PrelBase.[]{-3j,p-}
- d.Monad_a1l8
-d.MonadZero_a1la =
- PrelBase.$d23{-riZ,p-}
-zero_a1lO =
- PrelBase.zero{-810,p-}
- PrelBase.[]{-3j,p-}
- d.MonadZero_a1la
-d.Functor_a1ld =
- PrelBase.$d25{-rj1,p-}
-map_a1lN =
- PrelBase.map{-rkx,p-}
- PrelBase.[]{-3j,p-}
- d.Functor_a1ld
-d.MonadPlus_a1lg =
- PrelBase.$d22{-riY,p-}
-++_a1lM =
- PrelBase.++{-rnk,p-}
- PrelBase.[]{-3j,p-}
- d.MonadPlus_a1lg
->>=_a1lL =
- >>=_a1lQ
-return_a1lK =
- return_a1lP
->>=_a1lJ =
- >>=_a1lQ
-return_a1lI =
- return_a1lP
->>=_a1lH =
- >>=_a1lQ
-return_a1lG =
- return_a1lP
-zero_a1lF =
- zero_a1lO
-{- nonrec -}
-AbsBinds
-[vertex{-a1ba-}]
-[d.Eq_a1bl]
-[([vertex{-a1ba-}],
- isRecursiveCycle{-r6x,x-},
- isRecursiveCycle_a1b5)]
- d.Eq_a1bp =
- d.Eq_a1bl
- d.Eq_a1bq =
- d.Eq_a1bl
- d.Eq_a1bn =
- PrelTup.$d9{-rEY,p-}
- [vertex{-a1ba-}, vertex{-a1ba-}]
- [d.Eq_a1bp, d.Eq_a1bq]
- elem_a1lT =
- PrelList.elem{-rF6,p-}
- (vertex{-a1ba-}, vertex{-a1ba-})
- d.Eq_a1bn
- isRecursiveCycle_a1b5
- [vertex_r8n] edges_r8p
- = (vertex_r8n, vertex_r8n) elem_a1lT edges_r8p
- isRecursiveCycle_a1b5
- cycle_r8r edges_r8t
- = PrelBase.True{-5E,p-}{i}
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[vertex{-a1bC-}, name{-a1bD-}, code{-a1bE-}]
-[d.Eq_a1cs, d.Ord_a1ct]
-[([name{-a1bD-}, vertex{-a1bC-}, code{-a1bE-}],
- lookupVertex{-r6w,x-},
- lookupVertex_a1bz)]
- d.Eq_a1cv =
- d.Eq_a1cs
- ==_a1lU =
- PrelBase.=={-8Y,p-}
- vertex{-a1bC-}
- d.Eq_a1cv
- lookupVertex_a1bz
- flat_info_r8e vertex_r8g
- = PrelList.head{-rFm,p-}
- code{-a1bE-} code_list_r8i
- where
- {- nonrec -}
- AbsBinds [] [] [([], code_list_r8i, code_list_a1bI)]
- code_list_a1bI
- = [ code_r8l |
- (vertex'_r8k, _, _, code_r8l) <- flat_info_r8e, vertex_r8g
- ==_a1lU vertex'_r8k
- ]
- {- nonrec -}
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[vertex{-a1cO-}, name{-a1cR-}, code{-a1cS-}]
-[d.Eq_a1ei, d.Ord_a1ej]
-[([name{-a1cR-}, code{-a1cS-}, vertex{-a1cO-}],
- mkEdges{-r6v,x-},
- mkEdges_a1cL)]
- d.Ord_a1ek =
- d.Ord_a1ej
- d.MonadZero_a1el =
- PrelBase.$d23{-riZ,p-}
- mkEdges_a1cL
- vertices_r7U flat_info_r7W
- = [ (source_vertex_r87, target_vertex_r8c) |
- (source_vertex_r87, _, used_names_r88, _) <- flat_info_r7W, target_name_r8a <- Set.setToList{-rhd,p-}
- name{-a1cR-} used_names_r88, target_vertex_r8c <- vertices_defining_a1lV target_name_r8a
- flat_info_r7W
- ]
- where
- {- nonrec -}
- AbsBinds
- [t{-a1d5-}, t{-a1da-}, t{-a1dd-}, a{-a1dg-}, a{-a1di-}]
- [d.Ord_a1du, d.MonadZero_a1dA]
- [([t{-a1d5-}, t{-a1da-}, t{-a1dd-}, a{-a1dg-}, a{-a1di-}],
- vertices_defining_r7Y,
- vertices_defining_a1cU)]
- d.Monad_a1dw =
- PrelBase.scsel_MonadZeroPrelBaseMonad{-a1m0,p-}
- a{-a1dg-}
- d.MonadZero_a1dA
- elementOf_a1lZ =
- Set.elementOf{-rh5,p-}
- a{-a1di-}
- d.Ord_a1du
- >>=_a1lY =
- PrelBase.>>={-811,p-}
- a{-a1dg-}
- d.Monad_a1dw
- d.Monad_a1dy =
- d.Monad_a1dw
- return_a1lX =
- PrelBase.return{-816,p-}
- a{-a1dg-}
- d.Monad_a1dy
- zero_a1lW =
- PrelBase.zero{-810,p-}
- a{-a1dg-}
- d.MonadZero_a1dA
- vertices_defining_a1cU
- name_r80 flat_info_r82
- = [ vertex_r84 |
- (vertex_r84, names_defined_r85, _, _) <- flat_info_r82, name_r80
- elementOf_a1lZ names_defined_r85
- ]
- {- nonrec -}
- vertices_defining_a1lV =
- vertices_defining_r7Y
- [vertex{-a1cO-}, Set.Set{-rh2,p-} name{-a1cR-}, code{-a1cS-}, PrelBase.[]{-3j,p-}, name{-a1cR-}]
- [d.Ord_a1ek, d.MonadZero_a1el]
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[vertex{-a1eC-}, name{-a1eD-}, code{-a1eE-}]
-[]
-[([name{-a1eD-}, code{-a1eE-}, vertex{-a1eC-}],
- mkVertices{-r6u,x-},
- mkVertices_a1ez)]
- mkVertices_a1ez
- info_r7Q
- = [ vertex_r7S |
- (vertex_r7S, _, _, _) <- info_r7Q ]
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[vertex{-a1ff-}]
-[d.Eq_a1fs]
-[([vertex{-a1ff-}], isCyclic{-r6s,x-}, isCyclic_a1fc)]
- d.Eq_a1fw =
- d.Eq_a1fs
- d.Eq_a1fx =
- d.Eq_a1fs
- d.Eq_a1fu =
- PrelTup.$d9{-rEY,p-}
- [vertex{-a1ff-}, vertex{-a1ff-}]
- [d.Eq_a1fw, d.Eq_a1fx]
- elem_a1m1 =
- PrelList.elem{-rF6,p-}
- (vertex{-a1ff-}, vertex{-a1ff-})
- d.Eq_a1fu
- isCyclic_a1fc
- edges_r7w [v_r7y]
- = (v_r7y, v_r7y) elem_a1m1 edges_r7w
- isCyclic_a1fc
- edges_r7A vs_r7C
- = PrelBase.True{-5E,p-}{i}
-{- nonrec -}
-{- rec -}
-AbsBinds
-[t{-a1gi-}]
-[d.Eq_a1gA]
-[([t{-a1gi-}], dfs{-r6y,x-}, dfs_a1fz)]
- elem_a1m2 =
- PrelList.elem{-rF6,p-}
- t{-a1gi-}
- d.Eq_a1gA
- dfs_a1fz
- r_r7f (vs_r7h, ns_r7i) PrelBase.[]{-5i,p-}{i}
- = (vs_r7h, ns_r7i)
- dfs_a1fz
- r_r7l (vs_r7n, ns_r7o) (x_r7q PrelBase.:{-55,p-}{i} xs_r7r)
- | [x_r7q elem_a1m2 vs_r7n] =
- dfs_a1fz r_r7l (vs_r7n, ns_r7o) xs_r7r
- | [PrelBase.otherwise{-818,p-}] =
- dfs_a1fz r_r7l
- (vs'_r7t,
- ++_a1lM
- t{-a1gi-}
- (PrelBase.:{-55,p-}{i}
- t{-a1gi-}
- x_r7q ns'_r7u)
- ns_r7o)
- xs_r7r
- where
- {- nonrec -}
- AbsBinds [] [] [([], vs'_r7t, vs'_a1g4), ([], ns'_r7u, ns'_a1g5)]
- (vs'_a1g4, ns'_a1g5)
- = dfs_a1fz r_r7l
- (PrelBase.:{-55,p-}{i}
- t{-a1gi-}
- x_r7q vs_r7n,
- PrelBase.[]{-5i,p-}{i}
- t{-a1gi-})
- r_r7l x_r7q
- {- nonrec -}
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[vertex{-a1gK-}]
-[d.Eq_a1ju]
-[([vertex{-a1gK-}],
- stronglyConnComp{-r6r,x-},
- stronglyConnComp_a1gH)]
- d.Eq_a1jv =
- d.Eq_a1ju
- d.Eq_a1jq =
- d.Eq_a1ju
- d.Eq_a1jx =
- d.Eq_a1ju
- dfs_a1m3 =
- dfs{-r6y,x-}
- vertex{-a1gK-}
- d.Eq_a1jx
- d.Eq_a1jr =
- d.Eq_a1ju
- stronglyConnComp_a1gH
- es_r6B vs_r6D
- = PrelTup.snd{-rF4,p-}
- [[vertex{-a1gK-}], [[vertex{-a1gK-}]]] span_tree_a1m4 new_range_a1m6 reversed_edges_r6F
- (PrelBase.[]{-5i,p-}{i}
- vertex{-a1gK-},
- PrelBase.[]{-5i,p-}{i}
- [vertex{-a1gK-}])
- PrelTup.snd{-rF4,p-}
- [[vertex{-a1gK-}], [vertex{-a1gK-}]] dfs_a1m3 new_range_a1m5 es_r6B
- (PrelBase.[]{-5i,p-}{i}
- vertex{-a1gK-},
- PrelBase.[]{-5i,p-}{i}
- vertex{-a1gK-})
- vs_r6D
- where
- {- rec -}
- AbsBinds
- [t{-a1h2-}]
- [d.Eq_a1hJ]
- [([t{-a1h2-}], span_tree_r6I, span_tree_a1gO)]
- elem_a1m8 =
- PrelList.elem{-rF6,p-}
- t{-a1h2-}
- d.Eq_a1hJ
- d.Eq_a1hL =
- d.Eq_a1hJ
- dfs_a1m7 =
- dfs{-r6y,x-}
- t{-a1h2-}
- d.Eq_a1hL
- span_tree_a1gO
- r_r6Y (vs_r70, ns_r71) PrelBase.[]{-5i,p-}{i}
- = (vs_r70, ns_r71)
- span_tree_a1gO
- r_r74 (vs_r76, ns_r77) (x_r79 PrelBase.:{-55,p-}{i} xs_r7a)
- | [x_r79 elem_a1m8 vs_r76] =
- span_tree_a1gO r_r74 (vs_r76, ns_r77) xs_r7a
- | [PrelBase.otherwise{-818,p-}] =
- span_tree_a1gO r_r74
- (vs'_r7c,
- PrelBase.:{-55,p-}{i}
- [t{-a1h2-}]
- (PrelBase.:{-55,p-}{i}
- t{-a1h2-}
- x_r79 ns'_r7d)
- ns_r77)
- xs_r7a
- where
- {- nonrec -}
- AbsBinds
- []
- []
- [([], vs'_r7c, vs'_a1hj), ([], ns'_r7d, ns'_a1hk)]
- (vs'_a1hj, ns'_a1hk)
- = dfs_a1m7 r_r74
- (PrelBase.:{-55,p-}{i}
- t{-a1h2-}
- x_r79 vs_r76,
- PrelBase.[]{-5i,p-}{i}
- t{-a1h2-})
- r_r74 x_r79
- {- nonrec -}
- {- nonrec -}
- span_tree_a1m4 =
- span_tree_r6I
- vertex{-a1gK-}
- d.Eq_a1jv
- {- rec -}
- AbsBinds
- [t{-a1hV-}, t{-a1i0-}]
- [d.Eq_a1ig]
- [([t{-a1hV-}, t{-a1i0-}], new_range_r6H, new_range_a1hN)]
- ==_a1m9 =
- PrelBase.=={-8Y,p-}
- t{-a1i0-}
- d.Eq_a1ig
- new_range_a1hN
- PrelBase.[]{-5i,p-}{i} w_r6Q
- = PrelBase.[]{-5i,p-}{i}
- t{-a1hV-}
- new_range_a1hN
- ((x_r6S, y_r6T) PrelBase.:{-55,p-}{i} xys_r6U) w_r6W
- = if x_r6S ==_a1m9 w_r6W then
- PrelBase.:{-55,p-}{i}
- t{-a1hV-}
- y_r6T (new_range_a1hN xys_r6U w_r6W)
- else
- new_range_a1hN xys_r6U w_r6W
- {- nonrec -}
- new_range_a1m6 =
- new_range_r6H
- [vertex{-a1gK-}, vertex{-a1gK-}]
- d.Eq_a1jq
- new_range_a1m5 =
- new_range_r6H
- [vertex{-a1gK-}, vertex{-a1gK-}]
- d.Eq_a1jr
- {- nonrec -}
- AbsBinds [v{-a1iv-}] [] [([v{-a1iv-}], swap_r6G, swap_a1im)]
- swap_a1im
- (x_r6M, y_r6N)
- = (y_r6N, x_r6M)
- {- nonrec -}
- {- nonrec -}
- AbsBinds [] [] [([], reversed_edges_r6F, reversed_edges_a1iy)]
- reversed_edges_a1iy
- = map_a1lN
- [Edge{-r8K,x-} vertex{-a1gK-}, Edge{-r8K,x-} vertex{-a1gK-}] swap_r6G
- vertex{-a1gK-}
- es_r6B
- {- nonrec -}
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[vertex{-a1jI-}]
-[d.Eq_a1kA]
-[([vertex{-a1jI-}], topSort{-r6t,x-}, topSort_a1jF)]
- d.Eq_a1kI =
- d.Eq_a1kA
- isCyclic_a1mb =
- isCyclic{-r6s,x-}
- vertex{-a1jI-}
- d.Eq_a1kI
- d.Eq_a1kK =
- d.Eq_a1kA
- stronglyConnComp_a1ma =
- stronglyConnComp{-r6r,x-}
- vertex{-a1jI-}
- d.Eq_a1kK
- topSort_a1jF
- edges_r7E vertices_r7G
- = case cycles_r7J of
- PrelBase.[]{-5i,p-}{i}
- -> Succeeded{-r4G,x-}{i}
- [[vertex{-a1jI-}], [[vertex{-a1jI-}]]] [ v_r7N |
- [v_r7N] <- singletons_r7K
- ]
- _ -> Failed{-r4F,x-}{i}
- [[vertex{-a1jI-}], [[vertex{-a1jI-}]]] cycles_r7J
- where
- {- nonrec -}
- AbsBinds [] [] [([], sccs_r7I, sccs_a1jM)]
- sccs_a1jM
- = stronglyConnComp_a1ma edges_r7E vertices_r7G
- {- nonrec -}
- {- nonrec -}
- AbsBinds
- []
- []
- [([], cycles_r7J, cycles_a1jT), ([],
- singletons_r7K,
- singletons_a1jU)]
- (cycles_a1jT, singletons_a1jU)
- = List.partition{-rhM,p-}
- [vertex{-a1jI-}] isCyclic_a1mb edges_r7E sccs_r7I
- {- nonrec -}
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[vertex{-a1kQ-}]
-[]
-[([vertex{-a1kQ-}], mkDigraph{-r6z,x-}, mkDigraph_a1kM)]
- mkDigraph_a1kM
- = MkDigraph{-r8L,x-}{i}
- vertex{-a1kQ-}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ Digraphs 1
-_instance_modules_
-ArrBase Foreign IO PrelNum
-_usages_
-List 1 :: partition 1;
-PrelBase 1 :: $d14 1 $d15 1 $d22 1 $d23 1 $d24 1 $d25 1 $d26 1 $d27 1 $d32 1 $d34 1 $d37 1 $d39 1 $d41 1 $d44 1 $d45 1 $d46 1 $d49 1 $d51 1 $d6 1 $d7 1 otherwise 1 Eq 1 Eval 1 Functor 1 Monad 1 MonadPlus 1 MonadZero 1 Ord 1 Ordering 1;
-PrelList 1 :: elem 1 head 1;
-PrelNum 1 :: $d17 1 $d18 1;
-PrelTup 1 :: $d11 1 $d13 1 $d15 1 $d49 1 $d51 1 $d9 1 snd 1;
-Set 2 :: $d1 2 elementOf 2 setToList 2 Set 1;
-_exports_
-Digraphs dfs isCyclic isRecursiveCycle lookupVertex mkDigraph mkEdges mkVertices stronglyConnComp topSort Cycle Digraph(MkDigraph) Edge FlattenedDependencyInfo MaybeErr(Succeeded Failed);
-_instances_
-instance _forall_ [a b] => {PrelBase.Eval (MaybeErr a b)} = $d1;
-instance _forall_ [a] => {PrelBase.Eval (Digraph a)} = $d2;
-_declarations_
-1 $d1 _:_ _forall_ [a b] => {PrelBase.Eval (MaybeErr a b)} ;;
-1 $d2 _:_ _forall_ [a] => {PrelBase.Eval (Digraph a)} ;;
-1 type Cycle r8C = [r8C] ;
-1 data Digraph r8G = MkDigraph [r8G] ;
-1 type Edge r8E = (r8E, r8E) ;
-1 type FlattenedDependencyInfo r8y r8z r8A = [(r8y, Set.Set r8z, Set.Set r8z, r8A)] ;
-1 data MaybeErr r8v r8w = Succeeded r8v | Failed r8w ;
-1 dfs _:_ _forall_ [a] {PrelBase.Eq a} => (a -> [a]) -> ([a], [a]) -> [a] -> ([a], [a]) ;;
-1 isCyclic _:_ _forall_ [a] {PrelBase.Eq a} => [Edge a] -> [a] -> PrelBase.Bool ;;
-1 isRecursiveCycle _:_ _forall_ [a] {PrelBase.Eq a} => Cycle a -> [Edge a] -> PrelBase.Bool ;;
-1 lookupVertex _:_ _forall_ [a b c] {PrelBase.Eq b, PrelBase.Ord a} => FlattenedDependencyInfo b a c -> b -> c ;;
-1 mkDigraph _:_ _forall_ [a] => [a] -> Digraph a ;;
-1 mkEdges _:_ _forall_ [a b c] {PrelBase.Eq c, PrelBase.Ord a} => [c] -> FlattenedDependencyInfo c a b -> [Edge c] ;;
-1 mkVertices _:_ _forall_ [a b c] => FlattenedDependencyInfo c a b -> [c] ;;
-1 stronglyConnComp _:_ _forall_ [a] {PrelBase.Eq a} => [Edge a] -> [a] -> [[a]] ;;
-1 topSort _:_ _forall_ [a] {PrelBase.Eq a} => [Edge a] -> [a] -> MaybeErr [a] [[a]] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc066.hs b/ghc/compiler/tests/typecheck/should_succeed/tc066.hs
deleted file mode 100644
index 7c929516bc00..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc066.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldSucceed where
-
-data Pair a b = MkPair a b
-f x = [ a | (MkPair c a) <- x ]
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc066.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc066.stderr
deleted file mode 100644
index c9ad8870f229..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc066.stderr
+++ /dev/null
@@ -1,50 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-MkPair{-r3n,x-}{i} =
- _/\_ a{-r3k-} b{-r3l-} -> \ tpl_B1 tpl_B2 ->
- MkPair{-r3n,x-}{i}
- {_@_ a{-r3k-} _@_ b{-r3l-} tpl_B1 tpl_B2}
-{- rec -}
-AbsBinds
-[a{-aHg-}, b{-aHh-}]
-[]
-[([a{-aHg-}, b{-aHh-}], $d1{-rHk,x-}, d.Eval_aHc)]
- d.Eval_aHc =
- ({-dict-} [] [])
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aGO-}, t{-aGR-}, a{-aGT-}]
-[d.Monad_aH3]
-[([t{-aGO-}, t{-aGR-}, a{-aGT-}], f{-r3m,x-}, f_aGG)]
- >>=_aHm =
- PrelBase.>>={-811,p-}
- a{-aGT-}
- d.Monad_aH3
- d.Monad_aH5 =
- d.Monad_aH3
- return_aHl =
- PrelBase.return{-816,p-}
- a{-aGT-}
- d.Monad_aH5
- f_aGG
- x_r3f = [ a_r3i |
- (MkPair{-r3n,x-}{i} c_r3h a_r3i) <- x_r3f ]
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d37 1 $d39 1 $d41 1 $d46 1 Eval 1 Monad 1 MonadZero 1;
-_exports_
-ShouldSucceed f Pair(MkPair);
-_instances_
-instance _forall_ [a b] => {PrelBase.Eval (Pair a b)} = $d1;
-_declarations_
-1 $d1 _:_ _forall_ [a b] => {PrelBase.Eval (Pair a b)} ;;
-1 data Pair r3k r3l = MkPair r3k r3l ;
-1 f _:_ _forall_ [a b c :: (* -> *)] {PrelBase.Monad c} => c (Pair a b) -> c b ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc067.hs b/ghc/compiler/tests/typecheck/should_succeed/tc067.hs
deleted file mode 100644
index 59df10316cdc..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc067.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldSucc where
-
-f [] = []
-f (x:xs) = x : (f xs)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc067.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc067.stderr
deleted file mode 100644
index 7302e4618fb0..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc067.stderr
+++ /dev/null
@@ -1,25 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- rec -}
-AbsBinds [t{-ana-}] [] [([t{-ana-}], f{-r3g,x-}, f_an4)]
- f_an4
- PrelBase.[]{-5i,p-}{i}
- = PrelBase.[]{-5i,p-}{i}
- t{-ana-}
- f_an4
- (x_r3e PrelBase.:{-55,p-}{i} xs_r3f)
- = PrelBase.:{-55,p-}{i}
- t{-ana-}
- x_r3e (f_an4 xs_r3f)
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucc 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucc f;
-_declarations_
-1 f _:_ _forall_ [a] => [a] -> [a] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc068.hs b/ghc/compiler/tests/typecheck/should_succeed/tc068.hs
deleted file mode 100644
index 01f2d872e6cc..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc068.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-module ShouldSucc where
-
-data T a = D (B a) | C
-data B b = X | Y b
-
-instance (Eq a) => Eq (T a) where
- (D x) == (D y) = x == y
- C == C = True
- a == b = False
-
- a /= b = not (a == b)
-
-instance (Eq b) => Eq (B b) where
- X == X = True
- (Y a) == (Y b) = a == b
- a == b = False
-
- a /= b = not (a == b)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc068.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc068.stderr
deleted file mode 100644
index f9784b4e9e21..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc068.stderr
+++ /dev/null
@@ -1,114 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-X{-r4,x-}{i} =
- _/\_ b{-r42-} ->
- X{-r4,x-}{i}
- {_@_ b{-r42-}}
-Y{-r3,x-}{i} =
- _/\_ b{-r42-} -> \ tpl_B1 ->
- Y{-r3,x-}{i}
- {_@_ b{-r42-} tpl_B1}
-{- nonrec -}
-D{-r9,x-}{i} =
- _/\_ a{-r44-} -> \ tpl_B1 ->
- D{-r9,x-}{i}
- {_@_ a{-r44-} tpl_B1}
-C{-r8,x-}{i} =
- _/\_ a{-r44-} ->
- C{-r8,x-}{i}
- {_@_ a{-r44-}}
-{- rec -}
-AbsBinds [b{-aIF-}] [] [([b{-aIF-}], $d3{-rIJ,x-}, d.Eval_aH4)]
- d.Eval_aH4 =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds [a{-aIG-}] [] [([a{-aIG-}], $d4{-rIL,x-}, d.Eval_aHa)]
- d.Eval_aHa =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds
-[b{-aHm-}]
-[d.Eq_aHO]
-[([b{-aHm-}], $d1{-rIM,x-}, d.Eq_aHg)]
- d.Eq_aHS =
- d.Eq_aHO
- ==_aIQ =
- PrelBase.=={-8Y,p-}
- b{-aHm-}
- d.Eq_aHS
- ==_aIP =
- ==_aIO
- AbsBinds [] [] [([], ==_aIO, ==_aHj)]
- ==_aHj
- X{-r4,x-}{i} X{-r4,x-}{i}
- = PrelBase.True{-5E,p-}{i}
- ==_aHj
- (Y{-r3,x-}{i} a_r3s) (Y{-r3,x-}{i} b_r3u)
- = a_r3s ==_aIQ b_r3u
- ==_aHj
- a_r3w b_r3y
- = PrelBase.False{-58,p-}{i}
- AbsBinds [] [] [([], /=_aIN, /=_aHH)]
- /=_aHH
- a_r3C b_r3E
- = PrelBase.not{-rfZ,p-} a_r3C ==_aIP b_r3E
- d.Eq_aHg =
- ({-dict-} [] [==_aIO, /=_aIN])
-{- rec -}
-AbsBinds
-[a{-aI7-}]
-[d.Eq_aIx]
-[([a{-aI7-}], $d2{-rIR,x-}, d.Eq_aHZ)]
- d.Eq_aID =
- d.Eq_aIx
- d.Eq_aIB =
- $d1{-rIM,x-}
- a{-aI7-}
- d.Eq_aID
- ==_aIV =
- PrelBase.=={-8Y,p-}
- (B{-r45,x-} a{-aI7-})
- d.Eq_aIB
- ==_aIU =
- ==_aIT
- AbsBinds [] [] [([], ==_aIT, ==_aI2)]
- ==_aI2
- (D{-r9,x-}{i} x_r3L) (D{-r9,x-}{i} y_r3N)
- = x_r3L ==_aIV y_r3N
- ==_aI2
- C{-r8,x-}{i} C{-r8,x-}{i}
- = PrelBase.True{-5E,p-}{i}
- ==_aI2
- a_r3R b_r3T
- = PrelBase.False{-58,p-}{i}
- AbsBinds [] [] [([], /=_aIS, /=_aIq)]
- /=_aIq
- a_r3X b_r3Z
- = PrelBase.not{-rfZ,p-} a_r3X ==_aIU b_r3Z
- d.Eq_aHZ =
- ({-dict-} [] [==_aIT, /=_aIS])
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucc 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d15 1 $d32 1 $d37 1 $d39 1 $d41 1 $d46 1 $d7 1 not 1 Eq 1 Eval 1;
-PrelNum 1 :: $d18 1;
-_exports_
-ShouldSucc B(X Y) T(D C);
-_instances_
-instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} = $d1;
-instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (B a)} = $d3;
-instance _forall_ [a] => {PrelBase.Eval (T a)} = $d4;
-_declarations_
-1 $d1 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} ;;
-1 $d2 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (B a)} ;;
-1 $d4 _:_ _forall_ [a] => {PrelBase.Eval (T a)} ;;
-1 data B r42 = X | Y r42 ;
-1 data T r44 = D (B r44) | C ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc069.hs b/ghc/compiler/tests/typecheck/should_succeed/tc069.hs
deleted file mode 100644
index 539b3046da70..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc069.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-module ShouldSucceed where
-
-x = 'a'
-(y:ys) = ['a','b','c'] where p = x
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc069.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc069.stderr
deleted file mode 100644
index 65df942f12c0..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc069.stderr
+++ /dev/null
@@ -1,31 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], x{-r3i,x-}, x_an6)]
- x_an6
- = 'a'
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], y{-r3h,x-}, y_ana), ([], ys{-r3g,x-}, ys_anb)]
- (y_ana PrelBase.:{-55,p-}{i} ys_anb)
- = ['a', 'b', 'c'] (PrelBase.Char{-38,p-})
- where
- {- nonrec -}
- AbsBinds [] [] [([], p_r3f, p_anj)]
- p_anj
- = x{-r3i,x-}
- {- nonrec -}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucceed x y ys;
-_declarations_
-1 x _:_ PrelBase.Char ;;
-1 y _:_ PrelBase.Char ;;
-1 ys _:_ [PrelBase.Char] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc070.hs b/ghc/compiler/tests/typecheck/should_succeed/tc070.hs
deleted file mode 100644
index 831195f9f626..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc070.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-module ShouldSucceed where
-
-
-data Boolean = FF | TT
-
-
-idb :: Boolean -> Boolean
-idb x = x
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc070.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc070.stderr
deleted file mode 100644
index 5b346e862491..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc070.stderr
+++ /dev/null
@@ -1,35 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-FF{-r5,x-}{i} =
- FF{-r5,x-}{i}
- {}
-TT{-r4,x-}{i} =
- TT{-r4,x-}{i}
- {}
-{- rec -}
-AbsBinds [] [] [([], $d1{-rG8,x-}, d.Eval_aG5)]
- d.Eval_aG5 =
- ({-dict-} [] [])
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], idb{-r6,x-}, idb_aFY)]
- idb_aFY
- x_r3k = x_r3k
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d37 1 $d39 1 $d41 1 $d46 1 Eval 1;
-_exports_
-ShouldSucceed idb Boolean(FF TT);
-_instances_
-instance {PrelBase.Eval Boolean} = $d1;
-_declarations_
-1 $d1 _:_ {PrelBase.Eval Boolean} ;;
-1 data Boolean = FF | TT ;
-1 idb _:_ Boolean -> Boolean ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc073.hs b/ghc/compiler/tests/typecheck/should_succeed/tc073.hs
deleted file mode 100644
index ea4cb74675cd..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc073.hs
+++ /dev/null
@@ -1,5 +0,0 @@
-
-module ShouldSucc where
-
-f [] = []
-f (x:xs) = x : (f xs)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc073.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc073.stderr
deleted file mode 100644
index 7302e4618fb0..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc073.stderr
+++ /dev/null
@@ -1,25 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- rec -}
-AbsBinds [t{-ana-}] [] [([t{-ana-}], f{-r3g,x-}, f_an4)]
- f_an4
- PrelBase.[]{-5i,p-}{i}
- = PrelBase.[]{-5i,p-}{i}
- t{-ana-}
- f_an4
- (x_r3e PrelBase.:{-55,p-}{i} xs_r3f)
- = PrelBase.:{-55,p-}{i}
- t{-ana-}
- x_r3e (f_an4 xs_r3f)
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucc 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-ShouldSucc f;
-_declarations_
-1 f _:_ _forall_ [a] => [a] -> [a] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc074.hs b/ghc/compiler/tests/typecheck/should_succeed/tc074.hs
deleted file mode 100644
index 01f2d872e6cc..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc074.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-module ShouldSucc where
-
-data T a = D (B a) | C
-data B b = X | Y b
-
-instance (Eq a) => Eq (T a) where
- (D x) == (D y) = x == y
- C == C = True
- a == b = False
-
- a /= b = not (a == b)
-
-instance (Eq b) => Eq (B b) where
- X == X = True
- (Y a) == (Y b) = a == b
- a == b = False
-
- a /= b = not (a == b)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc074.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc074.stderr
deleted file mode 100644
index f9784b4e9e21..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc074.stderr
+++ /dev/null
@@ -1,114 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-X{-r4,x-}{i} =
- _/\_ b{-r42-} ->
- X{-r4,x-}{i}
- {_@_ b{-r42-}}
-Y{-r3,x-}{i} =
- _/\_ b{-r42-} -> \ tpl_B1 ->
- Y{-r3,x-}{i}
- {_@_ b{-r42-} tpl_B1}
-{- nonrec -}
-D{-r9,x-}{i} =
- _/\_ a{-r44-} -> \ tpl_B1 ->
- D{-r9,x-}{i}
- {_@_ a{-r44-} tpl_B1}
-C{-r8,x-}{i} =
- _/\_ a{-r44-} ->
- C{-r8,x-}{i}
- {_@_ a{-r44-}}
-{- rec -}
-AbsBinds [b{-aIF-}] [] [([b{-aIF-}], $d3{-rIJ,x-}, d.Eval_aH4)]
- d.Eval_aH4 =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds [a{-aIG-}] [] [([a{-aIG-}], $d4{-rIL,x-}, d.Eval_aHa)]
- d.Eval_aHa =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds
-[b{-aHm-}]
-[d.Eq_aHO]
-[([b{-aHm-}], $d1{-rIM,x-}, d.Eq_aHg)]
- d.Eq_aHS =
- d.Eq_aHO
- ==_aIQ =
- PrelBase.=={-8Y,p-}
- b{-aHm-}
- d.Eq_aHS
- ==_aIP =
- ==_aIO
- AbsBinds [] [] [([], ==_aIO, ==_aHj)]
- ==_aHj
- X{-r4,x-}{i} X{-r4,x-}{i}
- = PrelBase.True{-5E,p-}{i}
- ==_aHj
- (Y{-r3,x-}{i} a_r3s) (Y{-r3,x-}{i} b_r3u)
- = a_r3s ==_aIQ b_r3u
- ==_aHj
- a_r3w b_r3y
- = PrelBase.False{-58,p-}{i}
- AbsBinds [] [] [([], /=_aIN, /=_aHH)]
- /=_aHH
- a_r3C b_r3E
- = PrelBase.not{-rfZ,p-} a_r3C ==_aIP b_r3E
- d.Eq_aHg =
- ({-dict-} [] [==_aIO, /=_aIN])
-{- rec -}
-AbsBinds
-[a{-aI7-}]
-[d.Eq_aIx]
-[([a{-aI7-}], $d2{-rIR,x-}, d.Eq_aHZ)]
- d.Eq_aID =
- d.Eq_aIx
- d.Eq_aIB =
- $d1{-rIM,x-}
- a{-aI7-}
- d.Eq_aID
- ==_aIV =
- PrelBase.=={-8Y,p-}
- (B{-r45,x-} a{-aI7-})
- d.Eq_aIB
- ==_aIU =
- ==_aIT
- AbsBinds [] [] [([], ==_aIT, ==_aI2)]
- ==_aI2
- (D{-r9,x-}{i} x_r3L) (D{-r9,x-}{i} y_r3N)
- = x_r3L ==_aIV y_r3N
- ==_aI2
- C{-r8,x-}{i} C{-r8,x-}{i}
- = PrelBase.True{-5E,p-}{i}
- ==_aI2
- a_r3R b_r3T
- = PrelBase.False{-58,p-}{i}
- AbsBinds [] [] [([], /=_aIS, /=_aIq)]
- /=_aIq
- a_r3X b_r3Z
- = PrelBase.not{-rfZ,p-} a_r3X ==_aIU b_r3Z
- d.Eq_aHZ =
- ({-dict-} [] [==_aIT, /=_aIS])
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucc 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d15 1 $d32 1 $d37 1 $d39 1 $d41 1 $d46 1 $d7 1 not 1 Eq 1 Eval 1;
-PrelNum 1 :: $d18 1;
-_exports_
-ShouldSucc B(X Y) T(D C);
-_instances_
-instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} = $d1;
-instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (B a)} = $d3;
-instance _forall_ [a] => {PrelBase.Eval (T a)} = $d4;
-_declarations_
-1 $d1 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} ;;
-1 $d2 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (B a)} ;;
-1 $d4 _:_ _forall_ [a] => {PrelBase.Eval (T a)} ;;
-1 data B r42 = X | Y r42 ;
-1 data T r44 = D (B r44) | C ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc075.hs b/ghc/compiler/tests/typecheck/should_succeed/tc075.hs
deleted file mode 100644
index f7c31d8926c7..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc075.hs
+++ /dev/null
@@ -1,8 +0,0 @@
-module ShouldSucceed where
-
---!!! giving methods in a pattern binding (for no v good reason...)
-
-data Foo = MkFoo Int
-
-instance Eq Foo where
- ((==), (/=)) = (\x -> \y -> True, \x -> \y -> False)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc075.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc075.stderr
deleted file mode 100644
index 134637b8d4c3..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc075.stderr
+++ /dev/null
@@ -1,9 +0,0 @@
-
-tc075.hs:8:
- Can't handle multiple methods defined by one pattern binding
- `(==, /=)
- = (\ x -> \ y -> True,
- (\ x -> \ y -> False))'
-
-
-Compilation had errors
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc076.hs b/ghc/compiler/tests/typecheck/should_succeed/tc076.hs
deleted file mode 100644
index 5bf422e5c937..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc076.hs
+++ /dev/null
@@ -1,8 +0,0 @@
---!!! scoping in list comprehensions right way 'round?
--- a bug reported by Jon Hill
---
-module ShouldSucceed where
-
-x = [[True]]
-xs :: [Bool]
-xs = [x | x <- x, x <- x]
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc076.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc076.stderr
deleted file mode 100644
index 97720b4cb21a..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc076.stderr
+++ /dev/null
@@ -1,39 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Monad_aGO =
- PrelBase.$d24{-rb1,p-}
->>=_aGV =
- PrelBase.>>={-811,p-}
- PrelBase.[]{-3j,p-}
- d.Monad_aGO
-d.Monad_aGR =
- d.Monad_aGO
-return_aGW =
- PrelBase.return{-816,p-}
- PrelBase.[]{-3j,p-}
- d.Monad_aGR
-{- nonrec -}
-AbsBinds [] [] [([], x{-r3,x-}, x_aGp)]
- x_aGp
- = [[PrelBase.True{-5E,p-}{i}] (PrelBase.Bool{-34,p-})] ([PrelBase.Bool{-34,p-}])
-{- nonrec -}
-{- nonrec -}
-AbsBinds [] [] [([], xs{-r2,x-}, xs_aGx)]
- xs_aGx
- = [ x_r3j |
- x_r3h <- x{-r3,x-}, x_r3j <- x_r3h ]
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d23 1 $d24 1 Monad 1 MonadZero 1;
-_exports_
-ShouldSucceed x xs;
-_declarations_
-1 x _:_ [[PrelBase.Bool]] ;;
-1 xs _:_ [PrelBase.Bool] ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc077.hs b/ghc/compiler/tests/typecheck/should_succeed/tc077.hs
deleted file mode 100644
index c9bb8d53a886..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc077.hs
+++ /dev/null
@@ -1,9 +0,0 @@
---!!! make sure context of EQ is minimised in interface file.
---
-module M where
-
-data NUM = ONE | TWO
-class (Num a) => ORD a
-
-class (ORD a, Show a) => EQ a where
- (===) :: a -> a -> Bool
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc077.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc077.stderr
deleted file mode 100644
index 9894b8d9506e..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc077.stderr
+++ /dev/null
@@ -1,62 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-ONE{-r7,x-}{i} =
- ONE{-r7,x-}{i}
- {}
-TWO{-r6,x-}{i} =
- TWO{-r6,x-}{i}
- {}
-{- nonrec -}
-scsel_EQMORD{-aHj,x-} =
- _/\_ a{-r3k-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,,){-63,p-}{i} tpl_B1 tpl_B2 tpl_B3 ->
- tpl_B1;}
-scsel_EQPrelBaseShow{-aHk,x-} =
- _/\_ a{-r3k-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,,){-63,p-}{i} tpl_B1 tpl_B2 tpl_B3 ->
- tpl_B2;}
-==={-r3q,x-} =
- _/\_ a{-r3k-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,,){-63,p-}{i} tpl_B1 tpl_B2 tpl_B3 ->
- tpl_B3;}
-{- nonrec -}
-AbsBinds
-[a{-aHi-}]
-[d.EQ_aHb]
-[([a{-aHi-}], $m==={-rHl,x-}, ===_aHd)]
- AbsBinds [] [] [([], ===_aHd, ===_aHf)]
- ===_aHf
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-aHi-}
- -> a{-aHi-}
- -> PrelBase.Bool{-34,p-}) "Class EQ Method ==="
-{- nonrec -}
-scsel_ORDPrelBaseNum{-aHm,x-} =
- _/\_ a{-r3p-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-{- rec -}
-AbsBinds [] [] [([], $d1{-rHp,x-}, d.Eval_aH8)]
- d.Eval_aH8 =
- ({-dict-} [] [])
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ M 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-M EQ(===) NUM(ONE TWO) ORD;
-_instances_
-instance {PrelBase.Eval NUM} = $d1;
-_declarations_
-1 class {PrelBase.Num r3p} => ORD r3p ;
-1 $d1 _:_ {PrelBase.Eval NUM} ;;
-1 $m=== _:_ _forall_ [a] {EQ a} => a -> a -> PrelBase.Bool ;;
-1 class {ORD r3k, PrelBase.Show r3k} => EQ r3k where {=== :: r3k -> r3k -> PrelBase.Bool} ;
-1 data NUM = ONE | TWO ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc078.hs b/ghc/compiler/tests/typecheck/should_succeed/tc078.hs
deleted file mode 100644
index a35afef81e05..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc078.hs
+++ /dev/null
@@ -1,8 +0,0 @@
---!!! instance decls with no binds
---
-module M where
-
-data Bar a = MkBar Int a
-
-instance Eq a => Eq (Bar a)
-instance Ord a => Ord (Bar a)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc078.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc078.stderr
deleted file mode 100644
index 1baa76ef3d0f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc078.stderr
+++ /dev/null
@@ -1,132 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-MkBar{-r3l,x-}{i} =
- _/\_ a{-r3k-} -> \ tpl_B1 tpl_B2 ->
- MkBar{-r3l,x-}{i}
- {_@_ a{-r3k-} tpl_B1 tpl_B2}
-{- rec -}
-AbsBinds [a{-aId-}] [] [([a{-aId-}], $d3{-rIh,x-}, d.Eval_aGn)]
- d.Eval_aGn =
- ({-dict-} [] [])
-{- rec -}
-AbsBinds
-[a{-aGA-}]
-[d.Ord_aHn, d.Eq_aHo]
-[([a{-aGA-}], $d1{-rIi,x-}, d.Ord_aGt)]
- d.Eq_aHp =
- d.Eq_aHo
- d.Ord_aHt =
- d.Ord_aGt
- $mcompare_aIp =
- PrelBase.$mcompare{-rbW,p-}
- (Bar{-r3m,x-} a{-aGA-})
- d.Ord_aHt
- d.Ord_aHv =
- d.Ord_aGt
- $m<_aIo =
- PrelBase.$m<{-rbO,p-}
- (Bar{-r3m,x-} a{-aGA-})
- d.Ord_aHv
- d.Ord_aHx =
- d.Ord_aGt
- $m<=_aIn =
- PrelBase.$m<={-rbP,p-}
- (Bar{-r3m,x-} a{-aGA-})
- d.Ord_aHx
- d.Ord_aHz =
- d.Ord_aGt
- $m>=_aIm =
- PrelBase.$m>={-rbS,p-}
- (Bar{-r3m,x-} a{-aGA-})
- d.Ord_aHz
- d.Ord_aHB =
- d.Ord_aGt
- $m>_aIl =
- PrelBase.$m>{-rbR,p-}
- (Bar{-r3m,x-} a{-aGA-})
- d.Ord_aHB
- d.Ord_aHD =
- d.Ord_aGt
- $mmax_aIk =
- PrelBase.$mmax{-rc5,p-}
- (Bar{-r3m,x-} a{-aGA-})
- d.Ord_aHD
- d.Ord_aHF =
- d.Ord_aGt
- $mmin_aIj =
- PrelBase.$mmin{-rc7,p-}
- (Bar{-r3m,x-} a{-aGA-})
- d.Ord_aHF
- AbsBinds [] [] [([], compare_aGv, compare_aGx)]
- compare_aGx
- = $mcompare_aIp
- AbsBinds [] [] [([], <_aGE, <_aGG)]
- <_aGG
- = $m<_aIo
- AbsBinds [] [] [([], <=_aGM, <=_aGO)]
- <=_aGO
- = $m<=_aIn
- AbsBinds [] [] [([], >=_aGU, >=_aGW)]
- >=_aGW
- = $m>=_aIm
- AbsBinds [] [] [([], >_aH2, >_aH4)]
- >_aH4
- = $m>_aIl
- AbsBinds [] [] [([], max_aHa, max_aHc)]
- max_aHc
- = $mmax_aIk
- AbsBinds [] [] [([], min_aHi, min_aHk)]
- min_aHk
- = $mmin_aIj
- d.Ord_aGt =
- ({-dict-}
- [d.Eq_aHp]
- [compare_aGv, <_aGE, <=_aGM, >=_aGU, >_aH2, max_aHa, min_aHi])
-{- rec -}
-AbsBinds
-[a{-aHW-}]
-[d.Eq_aI5]
-[([a{-aHW-}], $d2{-rIq,x-}, d.Eq_aHP)]
- d.Eq_aI9 =
- d.Eq_aHP
- $m==_aIs =
- PrelBase.$m=={-rbQ,p-}
- (Bar{-r3m,x-} a{-aHW-})
- d.Eq_aI9
- d.Eq_aIb =
- d.Eq_aHP
- $m/=_aIr =
- PrelBase.$m/={-rbN,p-}
- (Bar{-r3m,x-} a{-aHW-})
- d.Eq_aIb
- AbsBinds [] [] [([], ==_aHR, ==_aHT)]
- ==_aHT
- = $m==_aIs
- AbsBinds [] [] [([], /=_aI0, /=_aI2)]
- /=_aI2
- = $m/=_aIr
- d.Eq_aHP =
- ({-dict-} [] [==_aHR, /=_aI0])
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ M 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d14 1 $d15 1 $d32 1 $d34 1 $d37 1 $d39 1 $d41 1 $d45 1 $d46 1 $d49 1 $d51 1 $d6 1 $d7 1 Eq 1 Eval 1 Ord 1 Ordering 1;
-PrelNum 1 :: $d17 1 $d18 1;
-_exports_
-M Bar(MkBar);
-_instances_
-instance _forall_ [a] {PrelBase.Ord a} => {PrelBase.Ord (Bar a)} = $d1;
-instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (Bar a)} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (Bar a)} = $d3;
-_declarations_
-1 $d1 _:_ _forall_ [a] {PrelBase.Ord a, PrelBase.Eq (Bar a)} => {PrelBase.Ord (Bar a)} ;;
-1 $d2 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (Bar a)} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (Bar a)} ;;
-1 data Bar r3k = MkBar PrelBase.Int r3k ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc079.hs b/ghc/compiler/tests/typecheck/should_succeed/tc079.hs
deleted file mode 100644
index d49f4ce43a6b..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc079.hs
+++ /dev/null
@@ -1,16 +0,0 @@
---!!! small class decl with local polymorphism;
---!!! "easy" to check default methods and such...
---!!! (this is the example given in TcClassDcl)
---
-module Test where
-
-class Foo a where
- op1 :: a -> Bool
- op2 :: Ord b => a -> b -> b -> b
-
- op1 x = True
- op2 x y z = if (op1 x) && (y < z) then y else z
-
-instance Foo Int where {}
-
-instance Foo a => Foo [a] where {}
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc079.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc079.stderr
deleted file mode 100644
index c26a3f4ca1db..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc079.stderr
+++ /dev/null
@@ -1,122 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-op1{-r3F,x-} =
- _/\_ a{-r3l-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B1;}
-op2{-r3E,x-} =
- _/\_ a{-r3l-} -> \ tpl_B1 ->
- case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2 -> tpl_B2;}
-{- nonrec -}
-AbsBinds
-[a{-aI8-}]
-[d.Foo_aI2]
-[([a{-aI8-}], $mop1{-rGN,x-}, op1_aIG)]
- AbsBinds [] [] [([], op1_aIG, op1_aI5)]
- op1_aI5
- x_r3u = PrelBase.True{-5E,p-}{i}
-AbsBinds
-[a{-aI8-}]
-[d.Foo_aIb]
-[([a{-aI8-}], $mop2{-rGQ,x-}, op2_aIJ)]
- d.Foo_aIA =
- d.Foo_aIb
- op1_aIK =
- op1{-r3F,x-}
- a{-aI8-}
- d.Foo_aIA
- AbsBinds [b{-aIm-}] [d.Ord_aIw] [([b{-aIm-}], op2_aIJ, op2_aIg)]
- d.Ord_aIy =
- d.Ord_aIw
- <_aIL =
- PrelBase.<{-rd6,p-}
- b{-aIm-}
- d.Ord_aIy
- op2_aIg
- x_r3y y_r3A z_r3C
- = if (op1_aIK x_r3y)
- PrelBase.&&{-r3D,p-} (y_r3A <_aIL z_r3C) then
- y_r3A
- else
- z_r3C
-{- rec -}
-AbsBinds
-[a{-aGT-}]
-[d.Foo_aHg]
-[([a{-aGT-}], $d1{-rIM,x-}, d.Foo_aGK)]
- d.Foo_aHi =
- d.Foo_aGK
- $mop1_aIO =
- $mop1{-rGN,x-}
- [a{-aGT-}]
- d.Foo_aHi
- d.Foo_aHk =
- d.Foo_aGK
- $mop2_aIN =
- $mop2{-rGQ,x-}
- [a{-aGT-}]
- d.Foo_aHk
- AbsBinds [] [] [([], op1_aGM, op1_aGP)]
- op1_aGP
- = $mop1_aIO
- AbsBinds [b{-aH7-}] [d.Ord_aHd] [([b{-aH7-}], op2_aGY, op2_aH1)]
- d.Ord_aHf =
- d.Ord_aHd
- $mop2_aIP =
- $mop2_aIN
- b{-aH7-}
- d.Ord_aHf
- op2_aH1
- = $mop2_aIP
- d.Foo_aGK =
- ({-dict-} [] [op1_aGM, op2_aGY])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rIQ,x-}, d.Foo_aHq)]
- AbsBinds [] [] [([], op1_aHs, op1_aHu)]
- op1_aHu
- = $mop1_aII
- AbsBinds [b{-aHL-}] [d.Ord_aHR] [([b{-aHL-}], op2_aHC, op2_aHF)]
- d.Ord_aHV =
- d.Ord_aHR
- $mop2_aIR =
- $mop2_aIH
- b{-aHL-}
- d.Ord_aHV
- op2_aHF
- = $mop2_aIR
- d.Foo_aHq =
- ({-dict-} [] [op1_aHs, op2_aHC])
-{- nonrec -}
-d.Foo_aIC =
- $d2{-rIQ,x-}
-$mop1_aII =
- $mop1{-rGN,x-}
- PrelBase.Int{-3g,p-}
- d.Foo_aIC
-d.Foo_aIF =
- d.Foo_aIC
-$mop2_aIH =
- $mop2{-rGQ,x-}
- PrelBase.Int{-3g,p-}
- d.Foo_aIF
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ Test 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d14 1 $d15 1 $d26 1 $d27 1 $d32 1 $d34 1 $d49 1 $d51 1 $d6 1 $d7 1 && 1 Eq 1 Ord 1 Ordering 1;
-PrelNum 1 :: $d17 1 $d18 1;
-_exports_
-Test Foo(op1 op2);
-_instances_
-instance _forall_ [a] {Foo a} => {Foo [a]} = $d1;
-instance {Foo PrelBase.Int} = $d2;
-_declarations_
-1 $d1 _:_ _forall_ [a] {Foo a} => {Foo [a]} ;;
-1 $d2 _:_ {Foo PrelBase.Int} ;;
-1 $mop1 _:_ _forall_ [a] {Foo a} => a -> PrelBase.Bool ;;
-1 $mop2 _:_ _forall_ [a] {Foo a} => _forall_ [b] {PrelBase.Ord b} => a -> b -> b -> b ;;
-1 class Foo r3l where {op1 :: r3l -> PrelBase.Bool; op2 :: _forall_ [r3p] {PrelBase.Ord r3p} => r3l -> r3p -> r3p -> r3p} ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc080.hs b/ghc/compiler/tests/typecheck/should_succeed/tc080.hs
deleted file mode 100644
index d9ad6e9902f4..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc080.hs
+++ /dev/null
@@ -1,53 +0,0 @@
---module Parse(Parse(..),whiteSpace,seperatedBy) where
---import StdLib
-class Parse a where
- parseFile :: String -> [a]
- parseFile string | all forced x = x
- where x = map parseLine (lines' string)
- parseLine :: String -> a
- parseLine = pl.parse where pl (a,_) = a
- parse :: String -> (a,String)
- parse = parseType.whiteSpace
- parseType :: String -> (a,String)
- forced :: a -> Bool
- forced x = True
-
-instance Parse Int where
- parseType str = pl (span' isDigit str)
- where pl (l,r) = (strToInt l,r)
- forced n | n>=0 = True
-
-instance Parse Char where
- parseType (ch:str) = (ch,str)
- forced n = True
-
-instance (Parse a) => Parse [a] where
- parseType more = (map parseLine (seperatedBy ',' (l++",")),out)
- where (l,']':out) = span' (\x->x/=']') (tail more)
- forced = all forced
-
-seperatedBy :: Char -> String -> [String]
-seperatedBy ch [] = []
-seperatedBy ch xs = twaddle ch (span' (\x->x/=ch) xs)
- where twaddle ch (l,_:r) = l:seperatedBy ch r
-
-whiteSpace :: String -> String
-whiteSpace = dropWhile isSpace
-
-span' :: (a->Bool) -> [a] -> ([a],[a])
-span' p [] = ([],[])
-span' p (x:xs') | p x = fixLeak x (span' p xs') where fixLeak x (xs,ys) = (x:xs,ys)
-span' _ xs = ([],xs)
-
-lines' :: [Char] -> [[Char]]
-lines' "" = []
-lines' s = plumb (span' ((/=) '\n') s)
- where plumb (l,s') = l:if null s' then [] else lines' (tail s')
-
-strToInt :: String -> Int
-strToInt x = strToInt' (length x-1) x
- where strToInt' _ [] = 0
- strToInt' x (a:l) = (charToInt a)*(10^x) + (strToInt' (x-1) l)
-
-charToInt :: Char -> Int
-charToInt x = (ord x - ord '0')
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc080.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc080.stderr
deleted file mode 100644
index ef30af27aebd..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc080.stderr
+++ /dev/null
@@ -1 +0,0 @@
-tc080.hs:15:1: Signature appears after definition in class body on input: "instance"
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc081.hs b/ghc/compiler/tests/typecheck/should_succeed/tc081.hs
deleted file mode 100644
index 6590550cf670..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc081.hs
+++ /dev/null
@@ -1,28 +0,0 @@
---!!! an example Simon made up
---
-module ShouldSucceed where
-
-f x = (x+1, x<3, g True, g 'c')
- where
- g y = if x>2 then [] else [y]
-{-
-Here the type-check of g will yield an LIE with an Ord dict
-for x. g still has type forall a. a -> [a]. The dictionary is
-free, bound by the x.
-
-It should be ok to add the signature:
--}
-
-f2 x = (x+1, x<3, g2 True, g2 'c')
- where
- -- NB: this sig:
- g2 :: a -> [a]
- g2 y = if x>2 then [] else [y]
-{-
-or to write:
--}
-
-f3 x = (x+1, x<3, g3 True, g3 'c')
- where
- -- NB: this line:
- g3 = (\ y -> if x>2 then [] else [y])::(a -> [a])
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc081.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc081.stderr
deleted file mode 100644
index 96670584a2c8..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc081.stderr
+++ /dev/null
@@ -1,179 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aY0-}]
-[d.Num_aY7, d.Ord_aYc]
-[([t{-aY0-}], f3{-r3A,x-}, f3_aXr)]
- +_a100 =
- PrelBase.+{-rcZ,p-}
- t{-aY0-}
- d.Num_aY7
- d.Num_aYa =
- d.Num_aY7
- fromInt_aZZ =
- PrelBase.fromInt{-8R,p-}
- t{-aY0-}
- d.Num_aYa
- lit_aZY =
- fromInt_aZZ PrelBase.I#{-5b,p-}{i} 1#
- <_aZX =
- PrelBase.<{-raS,p-}
- t{-aY0-}
- d.Ord_aYc
- fromInt_aZW =
- fromInt_aZZ
- lit_aZV =
- fromInt_aZW PrelBase.I#{-5b,p-}{i} 3#
- d.Ord_aYf =
- d.Ord_aYc
- >_aZU =
- PrelBase.>{-rd6,p-}
- t{-aY0-}
- d.Ord_aYf
- fromInt_aZT =
- fromInt_aZZ
- lit_aZS =
- fromInt_aZT PrelBase.I#{-5b,p-}{i} 2#
- f3_aXr
- x_r3t = (x_r3t +_a100 lit_aZY,
- x_r3t <_aZX lit_aZV,
- g3_r3v
- PrelBase.Bool{-34,p-} PrelBase.True{-5E,p-}{i},
- g3_r3v
- PrelBase.Char{-38,p-} 'c')
- where
- {- nonrec -}
- AbsBinds [a{-aXM-}] [] [([a{-aXM-}], g3_r3v, g3_aXv)]
- g3_aXv
- = \ y_r3x -> if x_r3t >_aZU lit_aZS then
- PrelBase.[]{-5i,p-}{i}
- a{-aXM-}
- else
- [y_r3x] (a{-aXM-})
- {- nonrec -}
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aYP-}]
-[d.Num_aYW, d.Ord_aZ1]
-[([t{-aYP-}], f2{-r3B,x-}, f2_aYi)]
- +_a109 =
- PrelBase.+{-rcZ,p-}
- t{-aYP-}
- d.Num_aYW
- d.Num_aYZ =
- d.Num_aYW
- fromInt_a108 =
- PrelBase.fromInt{-8R,p-}
- t{-aYP-}
- d.Num_aYZ
- lit_a107 =
- fromInt_a108 PrelBase.I#{-5b,p-}{i} 1#
- <_a106 =
- PrelBase.<{-raS,p-}
- t{-aYP-}
- d.Ord_aZ1
- fromInt_a105 =
- fromInt_a108
- lit_a104 =
- fromInt_a105 PrelBase.I#{-5b,p-}{i} 3#
- d.Ord_aZ4 =
- d.Ord_aZ1
- >_a103 =
- PrelBase.>{-rd6,p-}
- t{-aYP-}
- d.Ord_aZ4
- fromInt_a102 =
- fromInt_a108
- lit_a101 =
- fromInt_a102 PrelBase.I#{-5b,p-}{i} 2#
- f2_aYi
- x_r3l = (x_r3l +_a109 lit_a107,
- x_r3l <_a106 lit_a104,
- g2_r3n
- PrelBase.Bool{-34,p-} PrelBase.True{-5E,p-}{i},
- g2_r3n
- PrelBase.Char{-38,p-} 'c')
- where
- {- nonrec -}
- AbsBinds [a{-aYr-}] [] [([a{-aYr-}], g2_r3n, g2_aYo)]
- g2_aYo
- y_r3r = if x_r3l >_a103 lit_a101 then
- PrelBase.[]{-5i,p-}{i}
- a{-aYr-}
- else
- [y_r3r] (a{-aYr-})
- {- nonrec -}
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aZC-}]
-[d.Num_aZJ, d.Ord_aZO]
-[([t{-aZC-}], f{-r3C,x-}, f_aZ7)]
- +_a10j =
- PrelBase.+{-rcZ,p-}
- t{-aZC-}
- d.Num_aZJ
- d.Num_aZM =
- d.Num_aZJ
- fromInt_a10i =
- PrelBase.fromInt{-8R,p-}
- t{-aZC-}
- d.Num_aZM
- lit_a10h =
- fromInt_a10i PrelBase.I#{-5b,p-}{i} 1#
- <_a10g =
- PrelBase.<{-raS,p-}
- t{-aZC-}
- d.Ord_aZO
- fromInt_a10f =
- fromInt_a10i
- lit_a10e =
- fromInt_a10f PrelBase.I#{-5b,p-}{i} 3#
- d.Ord_aZR =
- d.Ord_aZO
- >_a10d =
- PrelBase.>{-rd6,p-}
- t{-aZC-}
- d.Ord_aZR
- fromInt_a10c =
- fromInt_a10i
- lit_a10a =
- fromInt_a10c PrelBase.I#{-5b,p-}{i} 2#
- f_aZ7
- x_r3f = (x_r3f +_a10j lit_a10h,
- x_r3f <_a10g lit_a10e,
- g_r3h
- PrelBase.Bool{-34,p-} PrelBase.True{-5E,p-}{i},
- g_r3h
- PrelBase.Char{-38,p-} 'c')
- where
- {- nonrec -}
- AbsBinds [t{-aZn-}] [] [([t{-aZn-}], g_r3h, g_aZb)]
- g_aZb
- y_r3j = if x_r3f >_a10d lit_a10a then
- PrelBase.[]{-5i,p-}{i}
- t{-aZn-}
- else
- [y_r3j] (t{-aZn-})
- {- nonrec -}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d14 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d3 1 $d32 1 $d33 1 $d34 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d45 1 $d46 1 $d49 1 $d50 1 $d51 1 $d54 1 $d55 1 $d6 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d17 1 $d18 1 $d29 1 $d33 1 $d34 1 $d35 1;
-PrelTup 1 :: $d11 1 $d15 1 $d2 1 $d51 1;
-_exports_
-ShouldSucceed f f2 f3;
-_declarations_
-1 f _:_ _forall_ [a] {PrelBase.Num a, PrelBase.Ord a} => a -> (a, PrelBase.Bool, [PrelBase.Bool], [PrelBase.Char]) ;;
-1 f2 _:_ _forall_ [a] {PrelBase.Num a, PrelBase.Ord a} => a -> (a, PrelBase.Bool, [PrelBase.Bool], [PrelBase.Char]) ;;
-1 f3 _:_ _forall_ [a] {PrelBase.Num a, PrelBase.Ord a} => a -> (a, PrelBase.Bool, [PrelBase.Bool], [PrelBase.Char]) ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc082.hs b/ghc/compiler/tests/typecheck/should_succeed/tc082.hs
deleted file mode 100644
index f2ccb367361b..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc082.hs
+++ /dev/null
@@ -1,12 +0,0 @@
---!!! tc082: an instance for functions
---
-module N where
-
-class Normal a
- where
- normal :: a -> Bool
-
-instance Normal ( a -> b ) where
- normal _ = True
-
-f x = normal id
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc082.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc082.stderr
deleted file mode 100644
index 4dadbcebed6d..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc082.stderr
+++ /dev/null
@@ -1,56 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-normal{-r3q,x-} =
- _/\_ a{-r3o-} -> \ tpl_B1 ->
- tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-avr-}]
-[d.Normal_avk]
-[([a{-avr-}], $mnormal{-ruO,x-}, normal_avm)]
- AbsBinds [] [] [([], normal_avm, normal_avo)]
- normal_avo
- = GHCerr.noDefaultMethodError{-8k,p-}
- (a{-avr-} -> PrelBase.Bool{-34,p-}) "Class Normal Method normal"
-{- rec -}
-AbsBinds
-[a{-avf-}, b{-avg-}]
-[]
-[([a{-avf-}, b{-avg-}], $d1{-rvs,x-}, d.Normal_av9)]
- AbsBinds [] [] [([], normal_avt, normal_avc)]
- normal_avc
- _ = PrelBase.True{-5E,p-}{i}
- d.Normal_av9 =
- ({-dict-} [] [normal_avt])
-{- nonrec -}
-{- nonrec -}
-AbsBinds [t{-auZ-}] [] [([t{-auZ-}], f{-r3p,x-}, f_auN)]
- d.Normal_av1 =
- $d1{-rvs,x-}
- [GHC.Void{-3T,p-}, GHC.Void{-3T,p-}]
- normal_avu =
- normal{-r3q,x-}
- (GHC.Void{-3T,p-} -> GHC.Void{-3T,p-})
- d.Normal_av1
- f_auN
- x_r3f = normal_avu PrelBase.id{-raJ,p-}
- GHC.Void{-3T,p-}
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ N 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: id 1;
-_exports_
-N f Normal(normal);
-_instances_
-instance _forall_ [a b] => {Normal (a -> b)} = $d1;
-_declarations_
-1 $d1 _:_ _forall_ [a b] => {Normal (a -> b)} ;;
-1 $mnormal _:_ _forall_ [a] {Normal a} => a -> PrelBase.Bool ;;
-1 class Normal r3o where {normal :: r3o -> PrelBase.Bool} ;
-1 f _:_ _forall_ [a] => a -> PrelBase.Bool ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc083.hs b/ghc/compiler/tests/typecheck/should_succeed/tc083.hs
deleted file mode 100644
index 1c5321e63115..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc083.hs
+++ /dev/null
@@ -1,10 +0,0 @@
---!!! instances with no binds;
---!!! be sure we get a legit .hi file
---
-module Bar where
-
-import ClassFoo
-
-instance Foo Int
-
-instance Foo a => Foo [a]
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc083.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc083.stderr
deleted file mode 100644
index 818976feaaff..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc083.stderr
+++ /dev/null
@@ -1,65 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- rec -}
-AbsBinds
-[a{-auS-}]
-[d.Foo_av1]
-[([a{-auS-}], $d1{-rvF,x-}, d.Foo_auJ)]
- d.Foo_av5 =
- d.Foo_auJ
- $mop1_avJ =
- ClassFoo.$mop1{-ruM,p-}
- [a{-auS-}]
- d.Foo_av5
- d.Foo_av7 =
- d.Foo_auJ
- $mop2_avI =
- ClassFoo.$mop2{-ruP,p-}
- [a{-auS-}]
- d.Foo_av7
- AbsBinds [] [] [([], op1_auL, op1_auO)]
- op1_auO
- = $mop1_avJ
- AbsBinds [] [] [([], op2_auW, op2_auY)]
- op2_auY
- = $mop2_avI
- d.Foo_auJ =
- ({-dict-} [] [op1_auL, op2_auW])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rvK,x-}, d.Foo_avd)]
- AbsBinds [] [] [([], op1_avf, op1_avh)]
- op1_avh
- = $mop1_avH
- AbsBinds [] [] [([], op2_avo, op2_avq)]
- op2_avq
- = $mop2_avG
- d.Foo_avd =
- ({-dict-} [] [op1_avf, op2_avo])
-{- nonrec -}
-d.Foo_avB =
- $d2{-rvK,x-}
-$mop1_avH =
- ClassFoo.$mop1{-ruM,p-}
- PrelBase.Int{-3g,p-}
- d.Foo_avB
-d.Foo_avE =
- d.Foo_avB
-$mop2_avG =
- ClassFoo.$mop2{-ruP,p-}
- PrelBase.Int{-3g,p-}
- d.Foo_avE
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ Bar 1
-_instance_modules_
-ArrBase Bar IO PrelNum
-_usages_
-ClassFoo 1 :: Foo 1;
-_exports_
-_instances_
-instance _forall_ [a] {ClassFoo.Foo a} => {ClassFoo.Foo [a]} = $d1;
-instance {ClassFoo.Foo PrelBase.Int} = $d2;
-_declarations_
-1 $d1 _:_ _forall_ [a] {ClassFoo.Foo a} => {ClassFoo.Foo [a]} ;;
-1 $d2 _:_ {ClassFoo.Foo PrelBase.Int} ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc084.hs b/ghc/compiler/tests/typecheck/should_succeed/tc084.hs
deleted file mode 100644
index 572bbe31dc97..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc084.hs
+++ /dev/null
@@ -1,23 +0,0 @@
-{- This program shows up a bug in the handling of
- the monomorphism restriction in an earlier version of
- ghc. With ghc 0.18 and before, f gets a type with
- an unbound type variable, which shows up in the
- interface file. Reason: it was being monomorphised.
-
- Simon PJ
--}
-
-module Foo where
-
-
-g :: Num a => Bool -> a -> b -> a
-g b x y = if b then x+x else x-x
-
--- Everything is ok if this signature is put in
--- but the program should be perfectly legal without it.
--- f :: Num a => a -> b -> a
-f = g True
-
-h y x = f (x::Int) y
- -- This use of f binds the overloaded monomorphic
- -- type to Int
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc084.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc084.stderr
deleted file mode 100644
index 630058c708d2..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc084.stderr
+++ /dev/null
@@ -1,57 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-d.Num_aHu =
- PrelBase.$d3{-rbi,p-}
-{- nonrec -}
-AbsBinds
-[a{-aH2-}, b{-aH5-}]
-[d.Num_aHd]
-[([b{-aH5-}, a{-aH2-}], g{-r3h,x-}, g_aGY)]
- d.Num_aHf =
- d.Num_aHd
- +_aHG =
- PrelBase.+{-rcQ,p-}
- a{-aH2-}
- d.Num_aHf
- d.Num_aHh =
- d.Num_aHd
- -_aHF =
- PrelBase.-{-817,p-}
- a{-aH2-}
- d.Num_aHh
- g_aGY
- b_r3l x_r3n y_r3p
- = if b_r3l then x_r3n +_aHG x_r3n else x_r3n -_aHF x_r3n
-{- nonrec -}
-{- nonrec -}
-AbsBinds [b{-aHp-}] [] [([b{-aHp-}], f{-r3j,x-}, f_aHj)]
- g_aHH =
- g{-r3h,x-}
- [b{-aHp-}, PrelBase.Int{-3g,p-}]
- d.Num_aHu
- f_aHj
- = g_aHH PrelBase.True{-5E,p-}{i}
-{- nonrec -}
-{- nonrec -}
-AbsBinds [b{-aHE-}] [] [([b{-aHE-}], h{-r3i,x-}, h_aHw)]
- h_aHw
- y_r3r x_r3t
- = f{-r3j,x-}
- b{-aHE-} x_r3t y_r3r
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ Foo 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-Foo f g h;
-_declarations_
-1 f _:_ _forall_ [a] => PrelBase.Int -> a -> PrelBase.Int ;;
-1 g _:_ _forall_ [a b] {PrelBase.Num b} => PrelBase.Bool -> b -> a -> b ;;
-1 h _:_ _forall_ [a] => a -> PrelBase.Int -> PrelBase.Int ;;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc085.hs b/ghc/compiler/tests/typecheck/should_succeed/tc085.hs
deleted file mode 100644
index fe5ad6a8ae7f..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc085.hs
+++ /dev/null
@@ -1,9 +0,0 @@
---!!! From a bug report from Satnam.
---!!! To do with re-exporting importees from PreludeGla* modules.
-module Foo ( module GlaExts, module Foo ) where
-
---OLD: import PreludeGlaIO
-import GlaExts
-
-type FooType = Int
-data FooData = FooData
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc085.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc085.stderr
deleted file mode 100644
index f47847008187..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc085.stderr
+++ /dev/null
@@ -1,38 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-FooData{-r2,x-}{i} =
- FooData{-r2,x-}{i}
- {}
-{- rec -}
-AbsBinds [] [] [([], $d1{-rGv,x-}, d.Eval_aGs)]
- d.Eval_aGs =
- ({-dict-} [] [])
-{- nonrec -}
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ Foo 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-GlaExts 1 :: ;
-PrelBase 1 :: $d37 1 $d39 1 $d41 1 $d46 1 Eval 1;
-_exports_
-ArrBase boundsOfArray boundsOfByteArray freezeAddrArray freezeArray freezeCharArray freezeDoubleArray freezeFloatArray freezeIntArray indexAddrArray indexAddrOffAddr indexCharArray indexCharOffAddr indexDoubleArray indexDoubleOffAddr indexFloatArray indexFloatOffAddr indexIntArray indexIntOffAddr newAddrArray newArray newCharArray newDoubleArray newFloatArray newIntArray readAddrArray readArray readCharArray readDoubleArray readFloatArray readIntArray thawArray unsafeFreezeArray unsafeFreezeByteArray writeAddrArray writeArray writeCharArray writeDoubleArray writeFloatArray writeIntArray ByteArray(ByteArray) MutableArray(MutableArray) MutableByteArray(MutableByteArray);
-Foo FooData(FooData) FooType;
-Foreign Addr(A#) Word(W#);
-GHC *# *## **## +# +## -# -## /## /=# /=## <# <## <=# <=## ==# ==## ># >## >=# >=## acosDouble# acosFloat# addr2Int# and# asinDouble# asinFloat# atanDouble# atanFloat# chr# cmpInteger# cosDouble# cosFloat# coshDouble# coshFloat# deRefStablePtr# decodeDouble# decodeFloat# delay# divideFloat# double2Float# double2Int# encodeDouble# encodeFloat# eqAddr# eqChar# eqFloat# eqWord# errorIO# expDouble# expFloat# float2Double# float2Int# fork# geAddr# geChar# geFloat# geWord# gtAddr# gtChar# gtFloat# gtWord# iShiftL# iShiftRA# iShiftRL# indexAddrArray# indexAddrOffAddr# indexArray# indexCharArray# indexCharOffAddr# indexDoubleArray# indexDoubleOffAddr# indexFloatArray# indexFloatOffAddr# indexIntArray# indexIntOffAddr# int2Addr# int2Double# int2Float# int2Integer# int2Word# integer2Int# leAddr# leChar# leFloat# leWord# logDouble# logFloat# ltAddr# ltChar# ltFloat# ltWord# makeForeignObj# makeStablePtr# minusFloat# minusInteger# neAddr# neChar# neFloat# neWord# negateDouble# negateFloat# negateInt# negateInteger# newAddrArray# newArray# newCharArray# newDoubleArray# newFloatArray# newIntArray# newSynchVar# not# or# ord# par# parAt# parAtForNow# parGlobal# parLocal# plusFloat# plusInteger# powerFloat# putMVar# quotInt# quotRemInteger# readAddrArray# readArray# readCharArray# readDoubleArray# readFloatArray# readIntArray# realWorld# remInt# sameMutableArray# sameMutableByteArray# seq# shiftL# shiftRA# shiftRL# sinDouble# sinFloat# sinhDouble# sinhFloat# sqrtDouble# sqrtFloat# takeMVar# tanDouble# tanFloat# tanhDouble# tanhFloat# timesFloat# timesInteger# unsafeFreezeArray# unsafeFreezeByteArray# waitRead# waitWrite# word2Int# writeAddrArray# writeArray# writeCharArray# writeDoubleArray# writeFloatArray# writeForeignObj# writeIntArray# -> Addr# All Array# ByteArray# Char# Double# Float# ForeignObj# Int# MutableArray# MutableByteArray# RealWorld StablePtr# State# SynchVar# Void Word#;
-IOBase ioToPrimIO ioToST primIOToIO seqIO_Prim stToIO thenIO_Prim trace;
-Ix Ix;
-PrelBase Char(C#) Double(D#) Float(F#) Int(I#) Integer(J#);
-STBase fixPrimIO listPrimIO mapAndUnzipPrimIO mapPrimIO returnPrimIO seqPrimIO thenPrimIO unsafeInterleavePrimIO unsafePerformPrimIO PrimIO ST;
-_fixities_
-infixr 1 seqIO_Prim;
-infixr 1 thenIO_Prim;
-_instances_
-instance {PrelBase.Eval FooData} = $d1;
-_declarations_
-1 $d1 _:_ {PrelBase.Eval FooData} ;;
-1 data FooData = FooData ;
-1 type FooType = PrelBase.Int ;
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc086.hs b/ghc/compiler/tests/typecheck/should_succeed/tc086.hs
deleted file mode 100644
index 4d9ba6edb646..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc086.hs
+++ /dev/null
@@ -1,60 +0,0 @@
-{-
- From: Marc van Dongen <dongen@cs.ucc.ie>
- Date: Sat, 31 May 1997 19:57:46 +0100 (BST)
-
- panic! (the `impossible' happened):
- tcLookupTyVar:a_r6F
-
- Please report it as a compiler bug to glasgow-haskell-bugs@dcs.gla.ac.uk.
-
-
-If the instance definition for (*) at the end of this toy module
-is replaced by the definition that is commented, this all compiles
-fine. Strange, because the two implementations are equivalent modulo
-the theory {(*) = multiply}.
-
-Remove the `multiply :: a -> a -> a' part, and it compiles without
-problems.
-
-
-SPJ note: the type signature on "multiply" should be
- multiply :: Group a => a -> a -> a
-
--}
-
-module Rings( Group, Ring ) where
-
-import qualified Prelude( Ord(..), Eq(..), Num(..) )
-import Prelude hiding( Ord(..), Eq(..), Num(..), MonadZero( zero ) )
-
-class Group a where
- compare :: a -> a -> Prelude.Ordering
- fromInteger :: Integer -> a
- (+) :: a -> a -> a
- (-) :: a -> a -> a
- zero :: a
- one :: a
- zero = fromInteger 0
- one = fromInteger 1
-
--- class (Group a) => Ring a where
--- (*) :: a -> a -> a
--- (*) a b =
--- case (compare a zero) of
--- EQ -> zero
--- LT -> zero - ((*) (zero - a) b)
--- GT -> case compare a one of
--- EQ -> b
--- _ -> b + ((*) (a - one) b)
-
-class (Group a) => Ring a where
- (*) :: a -> a -> a
- (*) a b = multiply a b
- where multiply :: Group a => a -> a ->a
- multiply a b
- = case (compare a zero) of
- EQ -> zero
- LT -> zero - (multiply (zero - a) b)
- GT -> case compare a one of
- EQ -> b
- _ -> b + (multiply (a - one) b)
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc087.hs b/ghc/compiler/tests/typecheck/should_succeed/tc087.hs
deleted file mode 100644
index 8477427e1176..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc087.hs
+++ /dev/null
@@ -1,32 +0,0 @@
-module SOL where
-
-import GlaExts
-
-data SeqView t a = Null
- | Cons a (t a)
-
-class PriorityQueue q where
- empty :: (Ord a) => q a
- single :: (Ord a) => a -> q a
- insert :: (Ord a) => a -> q a -> q a
- meld :: (Ord a) => q a -> q a -> q a
- splitMin :: (Ord a) => q a -> SeqView q a
- insert a q = single a `meld` q
-
-toOrderedList q = case splitMin q of
- Null -> []
- Cons a q -> a : toOrderedList q
-
-insertMany x q = foldr insert q x
-pqSort q x = toOrderedList (insertMany x q)
-
-check :: (PriorityQueue q) => (Ord a => q a) -> IO ()
-check empty = do
- putStr "*** sorting\n"
- out (pqSort empty [1 .. 99])
- out (pqSort empty [1.0, 1.1 ..99.9])
-
-out :: (Num a) => [a] -> IO ()
-out x | sum x == 0 = putStr "ok\n"
- | otherwise = putStr "ok\n"
-
diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc088.hs b/ghc/compiler/tests/typecheck/should_succeed/tc088.hs
deleted file mode 100644
index e1b8b88dd6eb..000000000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc088.hs
+++ /dev/null
@@ -1,18 +0,0 @@
--- Check that "->" is an instance of Eval
-
-module Foo where
-
-instance (Eq b) => Eq (a -> b) where
- (==) f g = error "attempt to compare functions"
-
- -- Since Eval is a superclass of Num this fails
- -- unless -> is an instance of Eval
-instance (Num b) => Num (a -> b) where
- f + g = \a -> f a + g a
- f - g = \a -> f a - g a
- f * g = \a -> f a * g a
- negate f = \a -> negate (f a)
- abs f = \a -> abs (f a)
- signum f = \a -> signum (f a)
- fromInteger n = \a -> fromInteger n
- fromInt n = \a -> fromInt n
diff --git a/ghc/compiler/tests/typecheck/stress/Makefile b/ghc/compiler/tests/typecheck/stress/Makefile
deleted file mode 100644
index 641ad12986eb..000000000000
--- a/ghc/compiler/tests/typecheck/stress/Makefile
+++ /dev/null
@@ -1,16 +0,0 @@
-TOP = ../../../..
-include $(TOP)/mk/boilerplate.mk
-
-HS_SRCS = $(wildcard *.hs)
-
-SRC_RUNTEST_OPTS += -o1 $*.stdout -o2 $*.stderr -x 0
-HC_OPTS += -noC -ddump-tc -dcore-lint -hi
-
-%.o : %.hs
-
-%.o : %.hs
- $(RUNTEST) $(HC) $(RUNTEST_OPTS) -- $(HC_OPTS) -c $< -o $@ -osuf $(subst .,,$(suffix $@))
-
-all :: $(HS_OBJS)
-
-include $(TOP)/mk/target.mk
diff --git a/ghc/compiler/tests/typecheck/stress/tcstress001.hs b/ghc/compiler/tests/typecheck/stress/tcstress001.hs
deleted file mode 100644
index bbb6508b3808..000000000000
--- a/ghc/compiler/tests/typecheck/stress/tcstress001.hs
+++ /dev/null
@@ -1,73 +0,0 @@
-
-module Prims where
-
-import Prelude hiding (head)
-
-one = one
-
-head (x:xs) = x
-
-bottom = head
-
-absIf a b c = a
-
-absAnd a b = head [a,b]
-
-fac_rec fac0 n a
- = (absIf (absAnd (s_3_0 n) one)
- (s_2_0 a)
- (fac0 (absAnd (s_3_2 n) one) (absAnd (s_3_1 n) (s_2_1 a))))
-
-f_rec f0 a
- = (f0 (s_1_0 a))
-
-g_rec g0 g1 x y z p
- = (absIf (absAnd (s_3_0 p) one)
- (absAnd (s_1_0 x) (s_3_0 z))
- (absAnd
- (g0 (s_1_0 y) one one (absAnd (s_3_1 p) one))
- (g1 (s_3_2 z) (s_3_1 z) one (absAnd (s_3_2 p) one))))
-
-s_2_0 (v0,v1) = v0
-s_2_1 (v0,v1) = v1
-s_1_0 v0 = v0
-s_3_0 (v0,v1,v2) = v0
-s_3_1 (v0,v1,v2) = v1
-s_3_2 (v0,v1,v2) = v2
-
-fac n a
- = (fac_rec fac_rec4 n a)
-
-fac_rec4 n a = (fac_rec fac_rec3 n a)
-fac_rec3 n a = (fac_rec fac_rec2 n a)
-fac_rec2 n a = (fac_rec fac_rec1 n a)
-fac_rec1 n a = (fac_rec fac_rec0 n a)
-fac_rec0 n a = (bottom [n,a])
-
-f a
- = (f_rec f_rec2 a)
-
-f_rec2 a = (f_rec f_rec1 a)
-f_rec1 a = (f_rec f_rec0 a)
-f_rec0 a = (bottom [a])
-
-g x y z p
- = (g_rec g_rec16 g_rec16 x y z p)
-
-g_rec16 x y z p = (g_rec g_rec15 g_rec15 x y z p)
-g_rec15 x y z p = (g_rec g_rec14 g_rec14 x y z p)
-g_rec14 x y z p = (g_rec g_rec13 g_rec13 x y z p)
-g_rec13 x y z p = (g_rec g_rec12 g_rec12 x y z p)
-g_rec12 x y z p = (g_rec g_rec11 g_rec11 x y z p)
-g_rec11 x y z p = (g_rec g_rec10 g_rec10 x y z p)
-g_rec10 x y z p = (g_rec g_rec9 g_rec9 x y z p)
-g_rec9 x y z p = (g_rec g_rec8 g_rec8 x y z p)
-g_rec8 x y z p = (g_rec g_rec7 g_rec7 x y z p)
-g_rec7 x y z p = (g_rec g_rec6 g_rec6 x y z p)
-g_rec6 x y z p = (g_rec g_rec5 g_rec5 x y z p)
-g_rec5 x y z p = (g_rec g_rec4 g_rec4 x y z p)
-g_rec4 x y z p = (g_rec g_rec3 g_rec3 x y z p)
-g_rec3 x y z p = (g_rec g_rec2 g_rec2 x y z p)
-g_rec2 x y z p = (g_rec g_rec1 g_rec1 x y z p)
-g_rec1 x y z p = (g_rec g_rec0 g_rec0 x y z p)
-g_rec0 x y z p = (bottom [x,y,z,p])
diff --git a/ghc/compiler/tests/typecheck/stress/tcstress001.stderr b/ghc/compiler/tests/typecheck/stress/tcstress001.stderr
deleted file mode 100644
index e69de29bb2d1..000000000000
--
GitLab