From 4c5f550b0089fba3490a1c08f78647e4f00ce81a Mon Sep 17 00:00:00 2001 From: sof Date: Sat, 23 Jan 1999 17:59:06 +0000 Subject: [PATCH] [project @ 1999-01-23 17:57:35 by sof] Updated for H98 --- ghc/tests/typecheck/should_compile/TheUtils.hi | 124 ++++++++++------------ ghc/tests/typecheck/should_compile/tc001.stderr | 6 +- ghc/tests/typecheck/should_compile/tc002.stderr | 6 +- ghc/tests/typecheck/should_compile/tc003.stderr | 10 +- ghc/tests/typecheck/should_compile/tc004.stderr | 6 +- ghc/tests/typecheck/should_compile/tc005.stderr | 6 +- ghc/tests/typecheck/should_compile/tc006.stderr | 6 +- ghc/tests/typecheck/should_compile/tc007.stderr | 12 +-- ghc/tests/typecheck/should_compile/tc008.stderr | 6 +- ghc/tests/typecheck/should_compile/tc009.stderr | 6 +- ghc/tests/typecheck/should_compile/tc010.stderr | 6 +- ghc/tests/typecheck/should_compile/tc011.stderr | 6 +- ghc/tests/typecheck/should_compile/tc012.stderr | 6 +- ghc/tests/typecheck/should_compile/tc013.stderr | 8 +- ghc/tests/typecheck/should_compile/tc014.stderr | 6 +- ghc/tests/typecheck/should_compile/tc015.stderr | 6 +- ghc/tests/typecheck/should_compile/tc016.stderr | 6 +- ghc/tests/typecheck/should_compile/tc017.stderr | 6 +- ghc/tests/typecheck/should_compile/tc018.stderr | 6 +- ghc/tests/typecheck/should_compile/tc019.stderr | 8 +- ghc/tests/typecheck/should_compile/tc020.stderr | 6 +- ghc/tests/typecheck/should_compile/tc021.stderr | 10 +- ghc/tests/typecheck/should_compile/tc022.stderr | 8 +- ghc/tests/typecheck/should_compile/tc023.stderr | 10 +- ghc/tests/typecheck/should_compile/tc024.stderr | 10 +- ghc/tests/typecheck/should_compile/tc025.stderr | 6 +- ghc/tests/typecheck/should_compile/tc026.stderr | 8 +- ghc/tests/typecheck/should_compile/tc027.stderr | 10 +- ghc/tests/typecheck/should_compile/tc028.stderr | 4 +- ghc/tests/typecheck/should_compile/tc029.stderr | 4 +- ghc/tests/typecheck/should_compile/tc030.stderr | 4 +- ghc/tests/typecheck/should_compile/tc031.stderr | 4 +- ghc/tests/typecheck/should_compile/tc032.stderr | 6 +- ghc/tests/typecheck/should_compile/tc033.stderr | 4 +- ghc/tests/typecheck/should_compile/tc034.stderr | 8 +- ghc/tests/typecheck/should_compile/tc035.stderr | 10 +- ghc/tests/typecheck/should_compile/tc036.stderr | 6 +- ghc/tests/typecheck/should_compile/tc037.stderr | 11 +- ghc/tests/typecheck/should_compile/tc038.stderr | 6 +- ghc/tests/typecheck/should_compile/tc039.stderr | 6 +- ghc/tests/typecheck/should_compile/tc040.hs | 2 +- ghc/tests/typecheck/should_compile/tc040.stderr | 6 +- ghc/tests/typecheck/should_compile/tc041.hs | 2 +- ghc/tests/typecheck/should_compile/tc041.stderr | 13 +-- ghc/tests/typecheck/should_compile/tc042.hs | 4 +- ghc/tests/typecheck/should_compile/tc042.stderr | 34 +++--- ghc/tests/typecheck/should_compile/tc043.hs | 2 +- ghc/tests/typecheck/should_compile/tc043.stderr | 19 ++-- ghc/tests/typecheck/should_compile/tc044.stderr | 6 +- ghc/tests/typecheck/should_compile/tc045.stderr | 17 ++- ghc/tests/typecheck/should_compile/tc046.stderr | 8 +- ghc/tests/typecheck/should_compile/tc047.stderr | 12 +-- ghc/tests/typecheck/should_compile/tc048.stderr | 18 ++-- ghc/tests/typecheck/should_compile/tc049.stderr | 26 +++-- ghc/tests/typecheck/should_compile/tc050.stderr | 19 ++-- ghc/tests/typecheck/should_compile/tc051.stderr | 21 ++-- ghc/tests/typecheck/should_compile/tc052.stderr | 8 +- ghc/tests/typecheck/should_compile/tc053.stderr | 17 ++- ghc/tests/typecheck/should_compile/tc054.stderr | 19 ++-- ghc/tests/typecheck/should_compile/tc055.stderr | 8 +- ghc/tests/typecheck/should_compile/tc056.hs | 2 +- ghc/tests/typecheck/should_compile/tc056.stderr | 19 ++-- ghc/tests/typecheck/should_compile/tc057.stderr | 19 ++-- ghc/tests/typecheck/should_compile/tc058.stderr | 23 ++-- ghc/tests/typecheck/should_compile/tc059.stderr | 17 ++- ghc/tests/typecheck/should_compile/tc060.stderr | 15 ++- ghc/tests/typecheck/should_compile/tc061.stderr | 15 ++- ghc/tests/typecheck/should_compile/tc062.stderr | 17 ++- ghc/tests/typecheck/should_compile/tc063.stderr | 19 ++-- ghc/tests/typecheck/should_compile/tc064.stderr | 6 +- ghc/tests/typecheck/should_compile/tc065.stderr | 27 ++--- ghc/tests/typecheck/should_compile/tc066.stderr | 8 +- ghc/tests/typecheck/should_compile/tc067.stderr | 6 +- ghc/tests/typecheck/should_compile/tc068.stderr | 17 ++- ghc/tests/typecheck/should_compile/tc069.stderr | 10 +- ghc/tests/typecheck/should_compile/tc070.stderr | 6 +- ghc/tests/typecheck/should_compile/tc073.stderr | 6 +- ghc/tests/typecheck/should_compile/tc074.stderr | 17 ++- ghc/tests/typecheck/should_compile/tc076.hs | 2 +- ghc/tests/typecheck/should_compile/tc076.stderr | 8 +- ghc/tests/typecheck/should_compile/tc077.hs | 2 +- ghc/tests/typecheck/should_compile/tc077.stderr | 8 +- ghc/tests/typecheck/should_compile/tc078.hs | 2 +- ghc/tests/typecheck/should_compile/tc078.stderr | 20 ++-- ghc/tests/typecheck/should_compile/tc079.hs | 6 +- ghc/tests/typecheck/should_compile/tc079.stderr | 19 ++-- ghc/tests/typecheck/should_compile/tc080.stderr | 39 ++++--- ghc/tests/typecheck/should_compile/tc081.hs | 2 +- ghc/tests/typecheck/should_compile/tc081.stderr | 10 +- ghc/tests/typecheck/should_compile/tc082.hs | 2 +- ghc/tests/typecheck/should_compile/tc082.stderr | 13 +-- ghc/tests/typecheck/should_compile/tc084.stderr | 10 +- ghc/tests/typecheck/should_compile/tc085.hs | 4 +- ghc/tests/typecheck/should_compile/tc085.stderr | 10 +- ghc/tests/typecheck/should_compile/tc086.hs | 4 +- ghc/tests/typecheck/should_compile/tc086.stderr | 14 ++- ghc/tests/typecheck/should_compile/tc087.stderr | 20 ++-- ghc/tests/typecheck/should_compile/tc088.stderr | 11 +- ghc/tests/typecheck/should_compile/tc089.hs | 2 +- ghc/tests/typecheck/should_compile/tc089.stderr | 72 ++++++------- ghc/tests/typecheck/should_compile/tc090.stderr | 8 +- ghc/tests/typecheck/should_compile/tc091.hs | 2 +- ghc/tests/typecheck/should_compile/tc091.stderr | 10 +- ghc/tests/typecheck/should_compile/tc092.stderr | 14 ++- ghc/tests/typecheck/should_compile/tc093.hs | 2 +- ghc/tests/typecheck/should_compile/tc093.stderr | 31 +++--- ghc/tests/typecheck/should_compile/tc094.stderr | 6 +- ghc/tests/typecheck/should_compile/tc095.hs | 4 +- ghc/tests/typecheck/should_compile/tc096.hs | 2 +- ghc/tests/typecheck/should_compile/tc097.hs | 2 +- ghc/tests/typecheck/should_compile/tc098.hs | 2 +- ghc/tests/typecheck/should_fail/Digraph.hs | 2 +- ghc/tests/typecheck/should_fail/Digraph.stderr | 50 +++++---- ghc/tests/typecheck/should_fail/tcfail001.hs | 4 +- ghc/tests/typecheck/should_fail/tcfail001.stderr | 5 +- ghc/tests/typecheck/should_fail/tcfail002.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail003.stderr | 3 +- ghc/tests/typecheck/should_fail/tcfail004.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail005.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail006.stderr | 3 +- ghc/tests/typecheck/should_fail/tcfail007.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail008.stderr | 9 +- ghc/tests/typecheck/should_fail/tcfail009.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail010.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail011.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail012.stderr | 5 +- ghc/tests/typecheck/should_fail/tcfail013.stderr | 5 +- ghc/tests/typecheck/should_fail/tcfail014.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail015.stderr | 3 +- ghc/tests/typecheck/should_fail/tcfail016.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail017.stderr | 3 +- ghc/tests/typecheck/should_fail/tcfail018.stderr | 5 +- ghc/tests/typecheck/should_fail/tcfail019.stderr | 5 +- ghc/tests/typecheck/should_fail/tcfail020.stderr | 3 +- ghc/tests/typecheck/should_fail/tcfail021.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail021.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail023.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail023.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail027.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail027.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail028.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail028.stderr | 11 +- ghc/tests/typecheck/should_fail/tcfail029.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail029.stderr | 4 +- ghc/tests/typecheck/should_fail/tcfail030.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail030.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail031.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail032.stderr | 15 ++- ghc/tests/typecheck/should_fail/tcfail033.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail034.stderr | 10 +- ghc/tests/typecheck/should_fail/tcfail035.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail035.stderr | 73 +++++-------- ghc/tests/typecheck/should_fail/tcfail036.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail036.stderr | 81 +++++++------- ghc/tests/typecheck/should_fail/tcfail037.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail037.stderr | 17 ++- ghc/tests/typecheck/should_fail/tcfail038.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail038.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail039.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail039.stderr | 9 +- ghc/tests/typecheck/should_fail/tcfail040.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail040.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail042.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail042.stderr | 8 +- ghc/tests/typecheck/should_fail/tcfail043.stderr | 53 +++++++-- ghc/tests/typecheck/should_fail/tcfail044.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail044.stderr | 21 ++-- ghc/tests/typecheck/should_fail/tcfail045.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail045.stderr | 3 +- ghc/tests/typecheck/should_fail/tcfail046.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail046.stderr | 3 +- ghc/tests/typecheck/should_fail/tcfail047.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail048.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail049.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail050.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail051.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail052.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail053.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail054.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail055.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail056.stderr | 10 +- ghc/tests/typecheck/should_fail/tcfail057.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail057.stderr | 3 +- ghc/tests/typecheck/should_fail/tcfail058.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail058.stderr | 6 +- ghc/tests/typecheck/should_fail/tcfail061.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail061.stderr | 9 +- ghc/tests/typecheck/should_fail/tcfail062.hs | 4 +- ghc/tests/typecheck/should_fail/tcfail062.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail063.hs | 4 +- ghc/tests/typecheck/should_fail/tcfail065.stderr | 10 +- ghc/tests/typecheck/should_fail/tcfail067.stderr | 40 +++---- ghc/tests/typecheck/should_fail/tcfail068.hs | 4 +- ghc/tests/typecheck/should_fail/tcfail068.stderr | 84 +++++++++------ ghc/tests/typecheck/should_fail/tcfail069.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail070.stderr | 9 +- ghc/tests/typecheck/should_fail/tcfail071.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail071.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail072.stderr | 5 +- ghc/tests/typecheck/should_fail/tcfail073.stderr | 12 ++- ghc/tests/typecheck/should_fail/tcfail074.stderr | 7 +- ghc/tests/typecheck/should_fail/tcfail075.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail076.stderr | 12 ++- ghc/tests/typecheck/should_fail/tcfail077.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail077.stderr | 1 + ghc/tests/typecheck/should_fail/tcfail078.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail078.stderr | 4 +- ghc/tests/typecheck/should_fail/tcfail079.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail079.stderr | 8 +- ghc/tests/typecheck/should_fail/tcfail080.hs | 2 +- ghc/tests/typecheck/should_fail/tcfail080.stderr | 1 + ghc/tests/typecheck/should_run/tcrun001.hs | 2 +- ghc/tests/typecheck/should_run/tcrun002.hs | 2 +- 213 files changed, 984 insertions(+), 1089 deletions(-) diff --git a/ghc/tests/typecheck/should_compile/TheUtils.hi b/ghc/tests/typecheck/should_compile/TheUtils.hi index a0f21b1..77bc310 100644 --- a/ghc/tests/typecheck/should_compile/TheUtils.hi +++ b/ghc/tests/typecheck/should_compile/TheUtils.hi @@ -1,68 +1,60 @@ -_interface_ TheUtils 2 400 -_instance_modules_ -PrelArr 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# ;; +__interface TheUtils 2 0 where +import PrelBase 1 :: Int 1 Maybe 1; +__instimport PrelArr ; __instimport IO ; __instimport PrelNum ; +__export 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}; + +instance {Ord3 PrelBase.Int} = _fOrdc; +instance __forall [a] {Ord3 a} => {Ord3 (PrelBase.Maybe a)} = _fOrda; +instance __forall [a] {Ord3 a} => {Ord3 [a]} = _fOrdb; + +2 _fOrdc :: {Ord3 PrelBase.Int} ; +1 _fOrda :: __forall [a] {Ord3 a} => {Ord3 (PrelBase.Maybe a)} ; +1 _fOrdb :: __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] ;; +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 infixr 9 thenCmp ; +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/tests/typecheck/should_compile/tc001.stderr b/ghc/tests/typecheck/should_compile/tc001.stderr index 16f2f54..1bf09a3 100644 --- a/ghc/tests/typecheck/should_compile/tc001.stderr +++ b/ghc/tests/typecheck/should_compile/tc001.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed a; -_declarations_ -1 a _:_ _forall_ [$a] {PrelBase.Num $a} => $a -> $a ;; +__export ShouldSucceed a; +1 a :: __forall [a] {PrelBase.Num a} => a -> a ; diff --git a/ghc/tests/typecheck/should_compile/tc002.stderr b/ghc/tests/typecheck/should_compile/tc002.stderr index ef62899..1fe360d 100644 --- a/ghc/tests/typecheck/should_compile/tc002.stderr +++ b/ghc/tests/typecheck/should_compile/tc002.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed b; -_declarations_ -1 b _:_ PrelBase.Int ;; +__export ShouldSucceed b; +1 b :: PrelBase.Integer ; diff --git a/ghc/tests/typecheck/should_compile/tc003.stderr b/ghc/tests/typecheck/should_compile/tc003.stderr index f2bae39..93af2b4 100644 --- a/ghc/tests/typecheck/should_compile/tc003.stderr +++ b/ghc/tests/typecheck/should_compile/tc003.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed c d e; -_declarations_ -1 c _:_ (PrelBase.Int, PrelBase.Int) ;; -1 d _:_ PrelBase.Int ;; -1 e _:_ PrelBase.Int ;; +__export ShouldSucceed c d e; +1 c :: (PrelBase.Integer, PrelBase.Integer) ; +1 d :: PrelBase.Integer ; +1 e :: PrelBase.Integer ; diff --git a/ghc/tests/typecheck/should_compile/tc004.stderr b/ghc/tests/typecheck/should_compile/tc004.stderr index 118b498..f7baa06 100644 --- a/ghc/tests/typecheck/should_compile/tc004.stderr +++ b/ghc/tests/typecheck/should_compile/tc004.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f; -_declarations_ -1 f _:_ PrelBase.Bool -> PrelBase.Bool ;; +__export ShouldSucceed f; +1 f :: PrelBase.Bool -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc005.stderr b/ghc/tests/typecheck/should_compile/tc005.stderr index 460d320..12f3124 100644 --- a/ghc/tests/typecheck/should_compile/tc005.stderr +++ b/ghc/tests/typecheck/should_compile/tc005.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed g; -_declarations_ -1 g _:_ _forall_ [$a $b] {PrelBase.Num $b} => ([$b], $a) -> $b ;; +__export ShouldSucceed g; +1 g :: __forall [t _116] {PrelBase.Num t} => ([t], _116) -> t ; diff --git a/ghc/tests/typecheck/should_compile/tc006.stderr b/ghc/tests/typecheck/should_compile/tc006.stderr index b728f25..243ff4a 100644 --- a/ghc/tests/typecheck/should_compile/tc006.stderr +++ b/ghc/tests/typecheck/should_compile/tc006.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed h; -_declarations_ -1 h _:_ [PrelBase.Int] ;; +__export ShouldSucceed h; +1 h :: [PrelBase.Integer] ; diff --git a/ghc/tests/typecheck/should_compile/tc007.stderr b/ghc/tests/typecheck/should_compile/tc007.stderr index eb40bf8..56862a0 100644 --- a/ghc/tests/typecheck/should_compile/tc007.stderr +++ b/ghc/tests/typecheck/should_compile/tc007.stderr @@ -1,8 +1,6 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed j k l m; -_declarations_ -1 j _:_ PrelBase.Int ;; -1 k _:_ [PrelBase.Int] ;; -1 l _:_ [PrelBase.Int] ;; -1 m _:_ PrelBase.Int ;; +__export ShouldSucceed j k l m; +1 j :: PrelBase.Integer ; +1 k :: [PrelBase.Integer] ; +1 l :: [PrelBase.Integer] ; +1 m :: PrelBase.Integer ; diff --git a/ghc/tests/typecheck/should_compile/tc008.stderr b/ghc/tests/typecheck/should_compile/tc008.stderr index 4f8abeb..d74ee46 100644 --- a/ghc/tests/typecheck/should_compile/tc008.stderr +++ b/ghc/tests/typecheck/should_compile/tc008.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed n; -_declarations_ -1 n _:_ _forall_ [$a] {PrelBase.Num $a} => PrelBase.Bool -> $a ;; +__export ShouldSucceed n; +1 n :: __forall [t] {PrelBase.Num t} => PrelBase.Bool -> t ; diff --git a/ghc/tests/typecheck/should_compile/tc009.stderr b/ghc/tests/typecheck/should_compile/tc009.stderr index 2cfaf7e..4d9b431 100644 --- a/ghc/tests/typecheck/should_compile/tc009.stderr +++ b/ghc/tests/typecheck/should_compile/tc009.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed o; -_declarations_ -1 o _:_ _forall_ [$a] {PrelBase.Num $a} => (PrelBase.Bool, $a) -> $a ;; +__export ShouldSucceed o; +1 o :: __forall [a] {PrelBase.Num a} => (PrelBase.Bool, a) -> a ; diff --git a/ghc/tests/typecheck/should_compile/tc010.stderr b/ghc/tests/typecheck/should_compile/tc010.stderr index 203846d..6ee8e40 100644 --- a/ghc/tests/typecheck/should_compile/tc010.stderr +++ b/ghc/tests/typecheck/should_compile/tc010.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed p; -_declarations_ -1 p _:_ [(PrelBase.Int, PrelBase.Bool)] ;; +__export ShouldSucceed p; +1 p :: [(PrelBase.Integer, PrelBase.Bool)] ; diff --git a/ghc/tests/typecheck/should_compile/tc011.stderr b/ghc/tests/typecheck/should_compile/tc011.stderr index 37537b1..cc1e5fb 100644 --- a/ghc/tests/typecheck/should_compile/tc011.stderr +++ b/ghc/tests/typecheck/should_compile/tc011.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed x; -_declarations_ -1 x _:_ _forall_ [$a] => $a ;; +__export ShouldSucceed x; +1 x :: __forall [t] => t ; diff --git a/ghc/tests/typecheck/should_compile/tc012.stderr b/ghc/tests/typecheck/should_compile/tc012.stderr index 34a14d0..7441966 100644 --- a/ghc/tests/typecheck/should_compile/tc012.stderr +++ b/ghc/tests/typecheck/should_compile/tc012.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed q; -_declarations_ -1 q _:_ _forall_ [$a] => $a -> $a ;; +__export ShouldSucceed q; +1 q :: __forall [t] => t -> t ; diff --git a/ghc/tests/typecheck/should_compile/tc013.stderr b/ghc/tests/typecheck/should_compile/tc013.stderr index 116c33a..d984bee 100644 --- a/ghc/tests/typecheck/should_compile/tc013.stderr +++ b/ghc/tests/typecheck/should_compile/tc013.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed r s; -_declarations_ -1 r _:_ PrelBase.Int ;; -1 s _:_ PrelBase.Char ;; +__export ShouldSucceed r s; +1 r :: PrelBase.Integer ; +1 s :: PrelBase.Char ; diff --git a/ghc/tests/typecheck/should_compile/tc014.stderr b/ghc/tests/typecheck/should_compile/tc014.stderr index 1686aac..ec9651f 100644 --- a/ghc/tests/typecheck/should_compile/tc014.stderr +++ b/ghc/tests/typecheck/should_compile/tc014.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed t; -_declarations_ -1 t _:_ PrelBase.Int ;; +__export ShouldSucceed t; +1 t :: PrelBase.Integer ; diff --git a/ghc/tests/typecheck/should_compile/tc015.stderr b/ghc/tests/typecheck/should_compile/tc015.stderr index c010997..0bec60a 100644 --- a/ghc/tests/typecheck/should_compile/tc015.stderr +++ b/ghc/tests/typecheck/should_compile/tc015.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed u; -_declarations_ -1 u _:_ _forall_ [$a $b $c] => $a -> ($b, $c) -> $a ;; +__export ShouldSucceed u; +1 u :: __forall [t _116 _1161] => t -> (_116, _1161) -> t ; diff --git a/ghc/tests/typecheck/should_compile/tc016.stderr b/ghc/tests/typecheck/should_compile/tc016.stderr index ed5d48f..79c6d1d 100644 --- a/ghc/tests/typecheck/should_compile/tc016.stderr +++ b/ghc/tests/typecheck/should_compile/tc016.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f; -_declarations_ -1 f _:_ _forall_ [$a $b] => $b -> $a -> $b ;; +__export ShouldSucceed f; +1 f :: __forall [t _116] => t -> _116 -> t ; diff --git a/ghc/tests/typecheck/should_compile/tc017.stderr b/ghc/tests/typecheck/should_compile/tc017.stderr index a595c10..696bcd2 100644 --- a/ghc/tests/typecheck/should_compile/tc017.stderr +++ b/ghc/tests/typecheck/should_compile/tc017.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed v; -_declarations_ -1 v _:_ PrelBase.Int ;; +__export ShouldSucceed v; +1 v :: PrelBase.Integer ; diff --git a/ghc/tests/typecheck/should_compile/tc018.stderr b/ghc/tests/typecheck/should_compile/tc018.stderr index 58ed185..167497a 100644 --- a/ghc/tests/typecheck/should_compile/tc018.stderr +++ b/ghc/tests/typecheck/should_compile/tc018.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed w; -_declarations_ -1 w _:_ PrelBase.Int ;; +__export ShouldSucceed w; +1 w :: PrelBase.Integer ; diff --git a/ghc/tests/typecheck/should_compile/tc019.stderr b/ghc/tests/typecheck/should_compile/tc019.stderr index 3dbc6eb..e3c3db6 100644 --- a/ghc/tests/typecheck/should_compile/tc019.stderr +++ b/ghc/tests/typecheck/should_compile/tc019.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed al am; -_declarations_ -1 al _:_ PrelBase.Int ;; -1 am _:_ [PrelBase.Int] ;; +__export ShouldSucceed al am; +1 al :: PrelBase.Integer ; +1 am :: [PrelBase.Integer] ; diff --git a/ghc/tests/typecheck/should_compile/tc020.stderr b/ghc/tests/typecheck/should_compile/tc020.stderr index a2ccf24..af0656b 100644 --- a/ghc/tests/typecheck/should_compile/tc020.stderr +++ b/ghc/tests/typecheck/should_compile/tc020.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f; -_declarations_ -1 f _:_ _forall_ [$a] => $a -> [$a] ;; +__export ShouldSucceed f; +1 f :: __forall [t] => t -> [t] ; diff --git a/ghc/tests/typecheck/should_compile/tc021.stderr b/ghc/tests/typecheck/should_compile/tc021.stderr index 004a98a..d302f76 100644 --- a/ghc/tests/typecheck/should_compile/tc021.stderr +++ b/ghc/tests/typecheck/should_compile/tc021.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_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 ;; +__export ShouldSucceed a f x; +1 a :: __forall [t _116] => (t, _116) ; +1 f :: __forall [t _116 _1161] => t -> (_116, _1161) ; +1 x :: __forall [t] => t ; diff --git a/ghc/tests/typecheck/should_compile/tc022.stderr b/ghc/tests/typecheck/should_compile/tc022.stderr index 45cd09e..fe63e43 100644 --- a/ghc/tests/typecheck/should_compile/tc022.stderr +++ b/ghc/tests/typecheck/should_compile/tc022.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed iD main; -_declarations_ -1 iD _:_ _forall_ [$a] => $a -> $a ;; -1 main _:_ _forall_ [$a] => $a -> $a ;; +__export ShouldSucceed iD main; +1 iD :: __forall [t] => t -> t ; +1 main :: __forall [t] => t -> t ; diff --git a/ghc/tests/typecheck/should_compile/tc023.stderr b/ghc/tests/typecheck/should_compile/tc023.stderr index db99b11..9e7987a 100644 --- a/ghc/tests/typecheck/should_compile/tc023.stderr +++ b/ghc/tests/typecheck/should_compile/tc023.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed k main s; -_declarations_ -1 k _:_ _forall_ [$a $b] => $b -> $a -> $b ;; -1 main _:_ _forall_ [$a] => $a -> $a ;; -1 s _:_ _forall_ [$a $b $c] => ($c -> $b -> $a) -> ($c -> $b) -> $c -> $a ;; +__export ShouldSucceed k main s; +1 k :: __forall [t _116] => t -> _116 -> t ; +1 main :: __forall [t] => t -> t ; +1 s :: __forall [t _116 _1161] => (_1161 -> _116 -> t) -> (_1161 -> _116) -> _1161 -> t ; diff --git a/ghc/tests/typecheck/should_compile/tc024.stderr b/ghc/tests/typecheck/should_compile/tc024.stderr index db99b11..9e7987a 100644 --- a/ghc/tests/typecheck/should_compile/tc024.stderr +++ b/ghc/tests/typecheck/should_compile/tc024.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed k main s; -_declarations_ -1 k _:_ _forall_ [$a $b] => $b -> $a -> $b ;; -1 main _:_ _forall_ [$a] => $a -> $a ;; -1 s _:_ _forall_ [$a $b $c] => ($c -> $b -> $a) -> ($c -> $b) -> $c -> $a ;; +__export ShouldSucceed k main s; +1 k :: __forall [t _116] => t -> _116 -> t ; +1 main :: __forall [t] => t -> t ; +1 s :: __forall [t _116 _1161] => (_1161 -> _116 -> t) -> (_1161 -> _116) -> _1161 -> t ; diff --git a/ghc/tests/typecheck/should_compile/tc025.stderr b/ghc/tests/typecheck/should_compile/tc025.stderr index d9d1935..ce35c34 100644 --- a/ghc/tests/typecheck/should_compile/tc025.stderr +++ b/ghc/tests/typecheck/should_compile/tc025.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed g; -_declarations_ -1 g _:_ PrelBase.Bool -> PrelBase.Bool ;; +__export ShouldSucceed g; +1 g :: PrelBase.Bool -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc026.stderr b/ghc/tests/typecheck/should_compile/tc026.stderr index a8bc395..b916e5a 100644 --- a/ghc/tests/typecheck/should_compile/tc026.stderr +++ b/ghc/tests/typecheck/should_compile/tc026.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f g; -_declarations_ -1 f _:_ _forall_ [$a] => PrelBase.Bool -> $a -> $a ;; -1 g _:_ PrelBase.Bool -> PrelBase.Bool ;; +__export ShouldSucceed f g; +1 f :: __forall [t] => PrelBase.Bool -> t -> t ; +1 g :: PrelBase.Bool -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc027.stderr b/ghc/tests/typecheck/should_compile/tc027.stderr index 2061985..0081393 100644 --- a/ghc/tests/typecheck/should_compile/tc027.stderr +++ b/ghc/tests/typecheck/should_compile/tc027.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_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 ;; +__export ShouldSucceed f g h; +1 f :: __forall [t] => PrelBase.Bool -> t -> t ; +1 g :: __forall [t] => t -> PrelBase.Bool -> t ; +1 h :: PrelBase.Bool -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc028.stderr b/ghc/tests/typecheck/should_compile/tc028.stderr index 0ec287b..3bacaa8 100644 --- a/ghc/tests/typecheck/should_compile/tc028.stderr +++ b/ghc/tests/typecheck/should_compile/tc028.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed H; -_declarations_ +__export ShouldSucceed H; 1 type H = (PrelBase.Int, PrelBase.Bool) ; diff --git a/ghc/tests/typecheck/should_compile/tc029.stderr b/ghc/tests/typecheck/should_compile/tc029.stderr index d16a48a..b352b51 100644 --- a/ghc/tests/typecheck/should_compile/tc029.stderr +++ b/ghc/tests/typecheck/should_compile/tc029.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed G K{H M}; -_declarations_ +__export ShouldSucceed G K{H M}; 1 data K = H PrelBase.Bool | M G ; 1 type G = [PrelBase.Int] ; diff --git a/ghc/tests/typecheck/should_compile/tc030.stderr b/ghc/tests/typecheck/should_compile/tc030.stderr index 6c905b7..82d6b39 100644 --- a/ghc/tests/typecheck/should_compile/tc030.stderr +++ b/ghc/tests/typecheck/should_compile/tc030.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed G H; -_declarations_ +__export ShouldSucceed G H; 1 type G = (H, PrelBase.Char) ; 1 type H = [PrelBase.Bool] ; diff --git a/ghc/tests/typecheck/should_compile/tc031.stderr b/ghc/tests/typecheck/should_compile/tc031.stderr index 02aaf35..2272d48 100644 --- a/ghc/tests/typecheck/should_compile/tc031.stderr +++ b/ghc/tests/typecheck/should_compile/tc031.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed Rec{Node}; -_declarations_ +__export ShouldSucceed Rec{Node}; 1 data Rec = Node PrelBase.Int Rec ; diff --git a/ghc/tests/typecheck/should_compile/tc032.stderr b/ghc/tests/typecheck/should_compile/tc032.stderr index 29aa472..0788789 100644 --- a/ghc/tests/typecheck/should_compile/tc032.stderr +++ b/ghc/tests/typecheck/should_compile/tc032.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed AList{Node Other}; -_declarations_ -1 data AList $r3u = Node $r3u [$r3u] | Other ($r3u, PrelBase.Char) ; +__export ShouldSucceed AList{Node Other}; +1 data AList b = Node b [b] | Other (b, PrelBase.Char) ; diff --git a/ghc/tests/typecheck/should_compile/tc033.stderr b/ghc/tests/typecheck/should_compile/tc033.stderr index 6391216..02f23e8 100644 --- a/ghc/tests/typecheck/should_compile/tc033.stderr +++ b/ghc/tests/typecheck/should_compile/tc033.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed F Twine{Twine2} Twist{Twist2}; -_declarations_ +__export ShouldSucceed F Twine{Twine2} Twist{Twist2}; 1 data Twine = Twine2 Twist ; 1 data Twist = Twist2 Twine ; 1 type F = Twine ; diff --git a/ghc/tests/typecheck/should_compile/tc034.stderr b/ghc/tests/typecheck/should_compile/tc034.stderr index faa3404..1ec12a9 100644 --- a/ghc/tests/typecheck/should_compile/tc034.stderr +++ b/ghc/tests/typecheck/should_compile/tc034.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed g AList{ANull ANode} IntList; -_declarations_ -1 data AList $r3C = ANull | ANode $r3C (AList $r3C) ; -1 g _:_ _forall_ [$a] {PrelBase.Num $a} => AList PrelBase.Bool -> $a ;; +__export ShouldSucceed g AList{ANull ANode} IntList; +1 data AList a = ANull | ANode a (AList a) ; +1 g :: __forall [t] {PrelBase.Num t} => AList PrelBase.Bool -> t ; 1 type IntList = AList PrelBase.Int ; diff --git a/ghc/tests/typecheck/should_compile/tc035.stderr b/ghc/tests/typecheck/should_compile/tc035.stderr index c3ed042..4d85e65 100644 --- a/ghc/tests/typecheck/should_compile/tc035.stderr +++ b/ghc/tests/typecheck/should_compile/tc035.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed g AnnExpr Expr{Var App}; -_declarations_ -1 data Expr $r3E = Var [PrelBase.Char] | App (AnnExpr $r3E) (AnnExpr $r3E) ; -1 g _:_ _forall_ [$a] => ($a, Expr $a) -> [[PrelBase.Char]] ;; -1 type AnnExpr $r3I = ($r3I, Expr $r3I) ; +__export ShouldSucceed g AnnExpr Expr{Var App}; +1 data Expr a = Var [PrelBase.Char] | App (AnnExpr a) (AnnExpr a) ; +1 g :: __forall [a] => (a, Expr a) -> [[PrelBase.Char]] ; +1 type AnnExpr a = (a, Expr a) ; diff --git a/ghc/tests/typecheck/should_compile/tc036.stderr b/ghc/tests/typecheck/should_compile/tc036.stderr index 633196f..7203d34 100644 --- a/ghc/tests/typecheck/should_compile/tc036.stderr +++ b/ghc/tests/typecheck/should_compile/tc036.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed A{:A :A op1}; -_declarations_ -1 class {PrelBase.Eq $r3t} => A $r3t where {op1 :: $r3t -> $r3t} ; +__export ShouldSucceed A{op1}; +1 class {PrelBase.Eq a} => A a where {op1 :: a -> a} ; diff --git a/ghc/tests/typecheck/should_compile/tc037.stderr b/ghc/tests/typecheck/should_compile/tc037.stderr index f9130c8..6c4a493 100644 --- a/ghc/tests/typecheck/should_compile/tc037.stderr +++ b/ghc/tests/typecheck/should_compile/tc037.stderr @@ -1,8 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed Eq'{:Eq' :Eq' deq}; -_instances_ -instance _forall_ [$a] {Eq' $a} => {Eq' [$a]} = $dEq'0; -_declarations_ -1 $dEq'0 _:_ _forall_ [$a] {Eq' $a} => {Eq' [$a]} ;; -1 class Eq' $r3G where {deq :: $r3G -> $r3G -> PrelBase.Bool} ; +__export ShouldSucceed Eq'{deq}; +instance __forall [a] {Eq' a} => {Eq' [a]} = _gEq'_91_93; +1 _gEq'_91_93 :: __forall [a] {Eq' a} => {Eq' [a]} ; +1 class Eq' a where {deq :: a -> a -> PrelBase.Bool} ; diff --git a/ghc/tests/typecheck/should_compile/tc038.stderr b/ghc/tests/typecheck/should_compile/tc038.stderr index 86ef92b..9e85b16 100644 --- a/ghc/tests/typecheck/should_compile/tc038.stderr +++ b/ghc/tests/typecheck/should_compile/tc038.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f; -_declarations_ -1 f _:_ _forall_ [$a] {PrelBase.Num $a, PrelBase.Eq $a} => [$a] -> [$a] ;; +__export ShouldSucceed f; +1 f :: __forall [a] {PrelBase.Num a, PrelBase.Eq a} => [a] -> [a] ; diff --git a/ghc/tests/typecheck/should_compile/tc039.stderr b/ghc/tests/typecheck/should_compile/tc039.stderr index 633196f..7203d34 100644 --- a/ghc/tests/typecheck/should_compile/tc039.stderr +++ b/ghc/tests/typecheck/should_compile/tc039.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed A{:A :A op1}; -_declarations_ -1 class {PrelBase.Eq $r3t} => A $r3t where {op1 :: $r3t -> $r3t} ; +__export ShouldSucceed A{op1}; +1 class {PrelBase.Eq a} => A a where {op1 :: a -> a} ; diff --git a/ghc/tests/typecheck/should_compile/tc040.hs b/ghc/tests/typecheck/should_compile/tc040.hs index 33113cc..4897a2b 100644 --- a/ghc/tests/typecheck/should_compile/tc040.hs +++ b/ghc/tests/typecheck/should_compile/tc040.hs @@ -1,6 +1,6 @@ module ShouldSucceed where ---!!! tests the deduction of contexts. +-- !!! tests the deduction of contexts. f :: (Eq a) => a -> [a] diff --git a/ghc/tests/typecheck/should_compile/tc040.stderr b/ghc/tests/typecheck/should_compile/tc040.stderr index c5b8a06..2f2762c 100644 --- a/ghc/tests/typecheck/should_compile/tc040.stderr +++ b/ghc/tests/typecheck/should_compile/tc040.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f; -_declarations_ -1 f _:_ _forall_ [$a] {PrelBase.Eq $a} => $a -> [$a] ;; +__export ShouldSucceed f; +1 f :: __forall [a] {PrelBase.Eq a} => a -> [a] ; diff --git a/ghc/tests/typecheck/should_compile/tc041.hs b/ghc/tests/typecheck/should_compile/tc041.hs index 730af9c..b42374f 100644 --- a/ghc/tests/typecheck/should_compile/tc041.hs +++ b/ghc/tests/typecheck/should_compile/tc041.hs @@ -1,4 +1,4 @@ ---!!! a very simple test of class and instance declarations +-- !!! a very simple test of class and instance declarations module ShouldSucceed where diff --git a/ghc/tests/typecheck/should_compile/tc041.stderr b/ghc/tests/typecheck/should_compile/tc041.stderr index 5f0b57b..552aa39 100644 --- a/ghc/tests/typecheck/should_compile/tc041.stderr +++ b/ghc/tests/typecheck/should_compile/tc041.stderr @@ -1,9 +1,6 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f H{:H :H op1}; -_instances_ -instance {H PrelBase.Bool} = $dHBool0; -_declarations_ -1 $dHBool0 _:_ {H PrelBase.Bool} ;; -1 class H $r3F where {op1 :: $r3F -> $r3F -> $r3F} ; -1 f _:_ PrelBase.Bool -> PrelBase.Int -> PrelBase.Bool ;; +__export ShouldSucceed f H{op1}; +instance {H PrelBase.Bool} = _fHBool; +1 _fHBool :: {H PrelBase.Bool} ; +1 class H a where {op1 :: a -> a -> a} ; +1 f :: PrelBase.Bool -> PrelBase.Int -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc042.hs b/ghc/tests/typecheck/should_compile/tc042.hs index 708ea26..58a120c 100644 --- a/ghc/tests/typecheck/should_compile/tc042.hs +++ b/ghc/tests/typecheck/should_compile/tc042.hs @@ -1,5 +1,5 @@ ---!!! a file mailed us by Ryzard Kubiak. This provides a good test of the code ---!!! handling type signatures and recursive data types. +-- !!! 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 diff --git a/ghc/tests/typecheck/should_compile/tc042.stderr b/ghc/tests/typecheck/should_compile/tc042.stderr index b27ae35..cdba6f1 100644 --- a/ghc/tests/typecheck/should_compile/tc042.stderr +++ b/ghc/tests/typecheck/should_compile/tc042.stderr @@ -1,21 +1,19 @@ ghc: module version changed to 1; reason: no old .hi file -_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}; -_declarations_ -1 add _:_ Nat -> Nat -> Nat ;; -1 app _:_ _forall_ [$a] => List $a -> List $a -> List $a ;; -1 before _:_ List Nat -> List Nat ;; +__export 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}; +1 add :: Nat -> Nat -> Nat ; +1 app :: __forall [alpha] => List alpha -> List alpha -> List alpha ; +1 before :: List Nat -> List Nat ; 1 data Boolean = FF | TT ; -1 data List $r5K = Nil | Cons $r5K (List $r5K) ; +1 data List alpha = Nil | Cons alpha (List alpha) ; 1 data Nat = Zero | Succ Nat ; -1 data Pair $r5O $r5P = Mkpair $r5O $r5P ; -1 data Tree $r5D = Leaf $r5D | Node (Tree $r5D) (Tree $r5D) ; -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 $a $b -> Pair $b $a ;; +1 data Pair a b = Mkpair a b ; +1 data Tree t = Leaf t | Node (Tree t) (Tree t) ; +1 flatten :: __forall [alpha] => Tree alpha -> List alpha ; +1 idb :: Boolean -> Boolean ; +1 idl :: __forall [a] => List a -> List a ; +1 lEngth :: __forall [a] => List a -> Nat ; +1 nUll :: __forall [alpha] => List alpha -> Boolean ; +1 neg :: Boolean -> Boolean ; +1 rEverse :: __forall [alpha] => List alpha -> List alpha ; +1 sUm :: Tree Nat -> Nat ; +1 swap :: __forall [a b] => Pair a b -> Pair b a ; diff --git a/ghc/tests/typecheck/should_compile/tc043.hs b/ghc/tests/typecheck/should_compile/tc043.hs index 727f288..2a2e5f0 100644 --- a/ghc/tests/typecheck/should_compile/tc043.hs +++ b/ghc/tests/typecheck/should_compile/tc043.hs @@ -1,6 +1,6 @@ module ShouldSucceed where ---!!! another simple test of class and instance code. +-- !!! another simple test of class and instance code. class A a where op1 :: a diff --git a/ghc/tests/typecheck/should_compile/tc043.stderr b/ghc/tests/typecheck/should_compile/tc043.stderr index f85d585..bc905fe 100644 --- a/ghc/tests/typecheck/should_compile/tc043.stderr +++ b/ghc/tests/typecheck/should_compile/tc043.stderr @@ -1,12 +1,9 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f A{:A :A op1} B{:B :B op2}; -_instances_ -instance {A PrelBase.Int} = $dAInt0; -instance _forall_ [$a] {B $a} => {B [$a]} = $dB0; -_declarations_ -1 $dAInt0 _:_ {A PrelBase.Int} ;; -1 $dB0 _:_ _forall_ [$a] {B $a} => {B [$a]} ;; -1 class A $r3P where {op1 :: $r3P} ; -1 class B $r3K where {op2 :: $r3K -> PrelBase.Int} ; -1 f _:_ _forall_ [$a $b] {A $b} => $a -> $b ;; +__export ShouldSucceed f A{op1} B{op2}; +instance {A PrelBase.Int} = _fAInt; +instance __forall [a] {B a} => {B [a]} = _gB_91_93; +1 _fAInt :: {A PrelBase.Int} ; +1 _gB_91_93 :: __forall [a] {B a} => {B [a]} ; +1 class A a where {op1 :: a} ; +1 class B b where {op2 :: b -> PrelBase.Int} ; +1 f :: __forall [t a] {A a} => t -> a ; diff --git a/ghc/tests/typecheck/should_compile/tc044.stderr b/ghc/tests/typecheck/should_compile/tc044.stderr index 0c66ee7..ca6a89a 100644 --- a/ghc/tests/typecheck/should_compile/tc044.stderr +++ b/ghc/tests/typecheck/should_compile/tc044.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f; -_declarations_ -1 f _:_ _forall_ [$a] => $a -> PrelBase.() ;; +__export ShouldSucceed f; +1 f :: __forall [t] => t -> PrelBase.() ; diff --git a/ghc/tests/typecheck/should_compile/tc045.stderr b/ghc/tests/typecheck/should_compile/tc045.stderr index e24e4f6..6b2d62d 100644 --- a/ghc/tests/typecheck/should_compile/tc045.stderr +++ b/ghc/tests/typecheck/should_compile/tc045.stderr @@ -1,11 +1,8 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed B{:B :B op2} C{:C :C op1}; -_instances_ -instance _forall_ [$a] {B $a} => {B [$a]} = $dB0; -instance _forall_ [$a] => {C [$a]} = $dC0; -_declarations_ -1 $dB0 _:_ _forall_ [$a] {B $a, C [$a]} => {B [$a]} ;; -1 $dC0 _:_ _forall_ [$a] => {C [$a]} ;; -1 class {C $r3I} => B $r3I where {op2 :: $r3I -> $r3I -> $r3I} ; -1 class C $r3L where {op1 :: $r3L -> $r3L} ; +__export ShouldSucceed B{op2} C{op1}; +instance __forall [a] {B a} => {B [a]} = _gB_91_93; +instance __forall [a] => {C [a]} = _gC_91_93; +1 _gB_91_93 :: __forall [a] {B a, C [a]} => {B [a]} ; +1 _gC_91_93 :: __forall [a] => {C [a]} ; +1 class {C a} => B a where {op2 :: a -> a -> a} ; +1 class C a where {op1 :: a -> a} ; diff --git a/ghc/tests/typecheck/should_compile/tc046.stderr b/ghc/tests/typecheck/should_compile/tc046.stderr index 63621c0..d6bfcd4 100644 --- a/ghc/tests/typecheck/should_compile/tc046.stderr +++ b/ghc/tests/typecheck/should_compile/tc046.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed B{:B :B op2} C{:C :C op1}; -_declarations_ -1 class {C $r3x} => B $r3x where {op2 :: $r3x -> $r3x -> $r3x} ; -1 class C $r3A where {op1 :: $r3A -> $r3A} ; +__export ShouldSucceed B{op2} C{op1}; +1 class {C a} => B a where {op2 :: a -> a -> a} ; +1 class C a where {op1 :: a -> a} ; diff --git a/ghc/tests/typecheck/should_compile/tc047.stderr b/ghc/tests/typecheck/should_compile/tc047.stderr index 512ff5c..78107a3 100644 --- a/ghc/tests/typecheck/should_compile/tc047.stderr +++ b/ghc/tests/typecheck/should_compile/tc047.stderr @@ -1,8 +1,6 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f mp sd OL; -_declarations_ -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 ;; -1 type OL $r3K = [$r3K] ; +__export ShouldSucceed f mp sd OL; +1 f :: __forall [t _116 _1161] => t -> [(_116, _1161)] -> [_1161] ; +1 mp :: __forall [t _116] => (_116 -> t) -> [_116] -> [t] ; +1 sd :: __forall [t _116] => (_116, t) -> t ; +1 type OL a = [a] ; diff --git a/ghc/tests/typecheck/should_compile/tc048.stderr b/ghc/tests/typecheck/should_compile/tc048.stderr index 173db16..72be5f6 100644 --- a/ghc/tests/typecheck/should_compile/tc048.stderr +++ b/ghc/tests/typecheck/should_compile/tc048.stderr @@ -1,11 +1,9 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed mAp ranAFE ranOAL sNd AFE{MkAFE} FG{MkFG} OL{MkOL}; -_declarations_ -1 data AFE $r3X $r3Y $r3Z = MkAFE (OL ($r3X, FG $r3Y $r3Z)) ; -1 data FG $r42 $r43 = MkFG (OL ($r42, $r43)) ; -1 data OL $r46 = MkOL [$r46] ; -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 ;; +__export ShouldSucceed mAp ranAFE ranOAL sNd AFE{MkAFE} FG{MkFG} OL{MkOL}; +1 data AFE n a b = MkAFE (OL (n, FG a b)) ; +1 data FG a b = MkFG (OL (a, b)) ; +1 data OL a = MkOL [a] ; +1 mAp :: __forall [t _116] => (_116 -> t) -> [_116] -> [t] ; +1 ranAFE :: __forall [n a b] => AFE n a b -> [FG a b] ; +1 ranOAL :: __forall [a v] => OL (a, v) -> [v] ; +1 sNd :: __forall [t _116] => (_116, t) -> t ; diff --git a/ghc/tests/typecheck/should_compile/tc049.stderr b/ghc/tests/typecheck/should_compile/tc049.stderr index eb84e61..7d174b2 100644 --- a/ghc/tests/typecheck/should_compile/tc049.stderr +++ b/ghc/tests/typecheck/should_compile/tc049.stderr @@ -1,15 +1,13 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed fib main1 main2 main3 mem mem1 mem2 mem3 mem4 oR oR1; -_declarations_ -1 fib _:_ _forall_ [$a] {PrelBase.Num $a, PrelBase.Ord $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 ;; +__export ShouldSucceed fib main1 main2 main3 mem mem1 mem2 mem3 mem4 oR oR1; +1 fib :: __forall [a] {PrelBase.Num a, PrelBase.Ord 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 [t] {PrelBase.Eq [t]} => t -> [t] -> PrelBase.Bool ; +1 mem4 :: __forall [t] {PrelBase.Eq [t]} => t -> [t] -> PrelBase.Bool ; +1 oR :: PrelBase.Bool -> PrelBase.Bool -> PrelBase.Bool ; +1 oR1 :: PrelBase.Bool -> PrelBase.Bool -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc050.stderr b/ghc/tests/typecheck/should_compile/tc050.stderr index babed2c..43a7fd3 100644 --- a/ghc/tests/typecheck/should_compile/tc050.stderr +++ b/ghc/tests/typecheck/should_compile/tc050.stderr @@ -1,12 +1,9 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f g Foo{:Foo :Foo o_and}; -_instances_ -instance {Foo PrelBase.Bool} = $dFooBool0; -instance {Foo PrelBase.Int} = $dFooInt0; -_declarations_ -1 $dFooBool0 _:_ {Foo PrelBase.Bool} ;; -1 $dFooInt0 _:_ {Foo PrelBase.Int} ;; -1 class Foo $r3Q where {o_and :: $r3Q -> $r3Q -> $r3Q} ; -1 f _:_ _forall_ [$a] => PrelBase.Bool -> $a -> PrelBase.Bool ;; -1 g _:_ _forall_ [$a $b] {PrelBase.Num $b, Foo $b} => $b -> $a -> $b ;; +__export ShouldSucceed f g Foo{o_and}; +instance {Foo PrelBase.Bool} = _fFooBool; +instance {Foo PrelBase.Int} = _fFooInt; +1 _fFooBool :: {Foo PrelBase.Bool} ; +1 _fFooInt :: {Foo PrelBase.Int} ; +1 class Foo a where {o_and :: a -> a -> a} ; +1 f :: __forall [t] => PrelBase.Bool -> t -> PrelBase.Bool ; +1 g :: __forall [t a] {PrelBase.Num a, Foo a} => a -> t -> a ; diff --git a/ghc/tests/typecheck/should_compile/tc051.stderr b/ghc/tests/typecheck/should_compile/tc051.stderr index 711eb20..9e88ca9 100644 --- a/ghc/tests/typecheck/should_compile/tc051.stderr +++ b/ghc/tests/typecheck/should_compile/tc051.stderr @@ -1,13 +1,10 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed Eq'{:Eq' :Eq' doubleeq} Ord'{:Ord' :Ord' lt}; -_instances_ -instance _forall_ [$a] {Eq' $a} => {Eq' [$a]} = $dEq'0; -instance {Eq' PrelBase.Int} = $dEq'Int0; -instance {Ord' PrelBase.Int} = $dOrd'Int0; -_declarations_ -1 $dEq'0 _:_ _forall_ [$a] {Eq' $a} => {Eq' [$a]} ;; -1 $dEq'Int0 _:_ {Eq' PrelBase.Int} ;; -1 $dOrd'Int0 _:_ {Ord' PrelBase.Int} ;; -1 class Eq' $r3Q where {doubleeq :: $r3Q -> $r3Q -> PrelBase.Bool} ; -1 class {Eq' $r3N} => Ord' $r3N where {lt :: $r3N -> $r3N -> PrelBase.Bool} ; +__export ShouldSucceed Eq'{doubleeq} Ord'{lt}; +instance {Eq' PrelBase.Int} = _fEq'Int; +instance {Ord' PrelBase.Int} = _fOrd'Int; +instance __forall [a] {Eq' a} => {Eq' [a]} = _gEq'_91_93; +1 _fEq'Int :: {Eq' PrelBase.Int} ; +1 _fOrd'Int :: {Ord' PrelBase.Int} ; +1 _gEq'_91_93 :: __forall [a] {Eq' a} => {Eq' [a]} ; +1 class Eq' a where {doubleeq :: a -> a -> PrelBase.Bool} ; +1 class {Eq' a} => Ord' a where {lt :: a -> a -> PrelBase.Bool} ; diff --git a/ghc/tests/typecheck/should_compile/tc052.stderr b/ghc/tests/typecheck/should_compile/tc052.stderr index baee018..fb1ffea 100644 --- a/ghc/tests/typecheck/should_compile/tc052.stderr +++ b/ghc/tests/typecheck/should_compile/tc052.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed A B C; -_declarations_ -1 type A $r3v = B $r3v ; -1 type B $r3t = C ; +__export ShouldSucceed A B C; +1 type A a = B a ; +1 type B c = C ; 1 type C = PrelBase.Int ; diff --git a/ghc/tests/typecheck/should_compile/tc053.stderr b/ghc/tests/typecheck/should_compile/tc053.stderr index 72d70c0..05c54ff 100644 --- a/ghc/tests/typecheck/should_compile/tc053.stderr +++ b/ghc/tests/typecheck/should_compile/tc053.stderr @@ -1,11 +1,8 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f Eq'{:Eq' :Eq' deq}; -_instances_ -instance _forall_ [$a] {Eq' $a} => {Eq' [$a]} = $dEq'0; -instance {Eq' PrelBase.Int} = $dEq'Int0; -_declarations_ -1 $dEq'0 _:_ _forall_ [$a] {Eq' $a} => {Eq' [$a]} ;; -1 $dEq'Int0 _:_ {Eq' PrelBase.Int} ;; -1 class Eq' $r3K where {deq :: $r3K -> $r3K -> PrelBase.Bool} ; -1 f _:_ _forall_ [$a] {PrelBase.Num $a, Eq' [$a]} => [$a] -> PrelBase.Bool ;; +__export ShouldSucceed f Eq'{deq}; +instance {Eq' PrelBase.Int} = _fEq'Int; +instance __forall [a] {Eq' a} => {Eq' [a]} = _gEq'_91_93; +1 _fEq'Int :: {Eq' PrelBase.Int} ; +1 _gEq'_91_93 :: __forall [a] {Eq' a} => {Eq' [a]} ; +1 class Eq' a where {deq :: a -> a -> PrelBase.Bool} ; +1 f :: __forall [t] {PrelBase.Num t, Eq' [t]} => [t] -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc054.stderr b/ghc/tests/typecheck/should_compile/tc054.stderr index 334bd7f..46806e2 100644 --- a/ghc/tests/typecheck/should_compile/tc054.stderr +++ b/ghc/tests/typecheck/should_compile/tc054.stderr @@ -1,12 +1,9 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f Eq'{:Eq' :Eq' doubleeq} Ord'{:Ord' :Ord' lt}; -_instances_ -instance {Eq' PrelBase.Int} = $dEq'Int0; -instance {Ord' PrelBase.Int} = $dOrd'Int0; -_declarations_ -1 $dEq'Int0 _:_ {Eq' PrelBase.Int} ;; -1 $dOrd'Int0 _:_ {Ord' PrelBase.Int} ;; -1 class Eq' $r3P where {doubleeq :: $r3P -> $r3P -> PrelBase.Bool} ; -1 class {Eq' $r3M} => Ord' $r3M where {lt :: $r3M -> $r3M -> PrelBase.Bool} ; -1 f _:_ _forall_ [$a $b] {PrelBase.Num $b, Ord' $b} => $b -> $a -> PrelBase.Bool ;; +__export ShouldSucceed f Eq'{doubleeq} Ord'{lt}; +instance {Eq' PrelBase.Int} = _fEq'Int; +instance {Ord' PrelBase.Int} = _fOrd'Int; +1 _fEq'Int :: {Eq' PrelBase.Int} ; +1 _fOrd'Int :: {Ord' PrelBase.Int} ; +1 class Eq' a where {doubleeq :: a -> a -> PrelBase.Bool} ; +1 class {Eq' a} => Ord' a where {lt :: a -> a -> PrelBase.Bool} ; +1 f :: __forall [t a] {PrelBase.Num a, Ord' a} => a -> t -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc055.stderr b/ghc/tests/typecheck/should_compile/tc055.stderr index 945f274..c883b48 100644 --- a/ghc/tests/typecheck/should_compile/tc055.stderr +++ b/ghc/tests/typecheck/should_compile/tc055.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed x y; -_declarations_ -1 x _:_ _forall_ [$a $b] => $a -> $a ;; -1 y _:_ _forall_ [$a $b] => $b -> $b ;; +__export ShouldSucceed x y; +1 x :: __forall [t _116] => t -> t ; +1 y :: __forall [t _116] => _116 -> _116 ; diff --git a/ghc/tests/typecheck/should_compile/tc056.hs b/ghc/tests/typecheck/should_compile/tc056.hs index a920685..da51fc7 100644 --- a/ghc/tests/typecheck/should_compile/tc056.hs +++ b/ghc/tests/typecheck/should_compile/tc056.hs @@ -1,4 +1,4 @@ ---!!! Duplicate class assertion +-- !!! Duplicate class assertion module ShouldSucceed where diff --git a/ghc/tests/typecheck/should_compile/tc056.stderr b/ghc/tests/typecheck/should_compile/tc056.stderr index f9b1457..7f18754 100644 --- a/ghc/tests/typecheck/should_compile/tc056.stderr +++ b/ghc/tests/typecheck/should_compile/tc056.stderr @@ -3,14 +3,11 @@ tc056.hs:15: Warning: Duplicate class assertion `Eq' a' in the context: (Eq' a, Eq' a) => ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f Eq'{:Eq' :Eq' doubleeq} Ord'{:Ord' :Ord' lt}; -_instances_ -instance _forall_ [$a] {Eq' $a, Eq' $a} => {Eq' [$a]} = $dEq'0; -instance {Eq' PrelBase.Int} = $dEq'Int0; -_declarations_ -1 $dEq'0 _:_ _forall_ [$a] {Eq' $a} => {Eq' [$a]} ;; -1 $dEq'Int0 _:_ {Eq' PrelBase.Int} ;; -1 class Eq' $r3R where {doubleeq :: $r3R -> $r3R -> PrelBase.Bool} ; -1 class {Eq' $r3O} => Ord' $r3O where {lt :: $r3O -> $r3O -> PrelBase.Bool} ; -1 f _:_ _forall_ [$a $b] {PrelBase.Num $b, Eq' [$b]} => [$b] -> $a -> PrelBase.Bool ;; +__export ShouldSucceed f Eq'{doubleeq} Ord'{lt}; +instance {Eq' PrelBase.Int} = _fEq'Int; +instance __forall [a] {Eq' a, Eq' a} => {Eq' [a]} = _gEq'_91_93; +1 _fEq'Int :: {Eq' PrelBase.Int} ; +1 _gEq'_91_93 :: __forall [a] {Eq' a} => {Eq' [a]} ; +1 class Eq' a where {doubleeq :: a -> a -> PrelBase.Bool} ; +1 class {Eq' a} => Ord' a where {lt :: a -> a -> PrelBase.Bool} ; +1 f :: __forall [t _116] {PrelBase.Num _116, Eq' [_116]} => [_116] -> t -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc057.stderr b/ghc/tests/typecheck/should_compile/tc057.stderr index 5a23333..92186f1 100644 --- a/ghc/tests/typecheck/should_compile/tc057.stderr +++ b/ghc/tests/typecheck/should_compile/tc057.stderr @@ -1,12 +1,9 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed dand f Eq'{:Eq' :Eq' deq}; -_instances_ -instance _forall_ [$a] {Eq' $a} => {Eq' [$a]} = $dEq'0; -instance {Eq' PrelBase.Int} = $dEq'Int0; -_declarations_ -1 $dEq'0 _:_ _forall_ [$a] {Eq' $a} => {Eq' [$a]} ;; -1 $dEq'Int0 _:_ {Eq' PrelBase.Int} ;; -1 class Eq' $r3W where {deq :: $r3W -> $r3W -> PrelBase.Bool} ; -1 dand _:_ PrelBase.Bool -> PrelBase.Bool -> PrelBase.Bool ;; -1 f _:_ _forall_ [$a] {Eq' $a} => $a -> $a -> PrelBase.Bool ;; +__export ShouldSucceed dand f Eq'{deq}; +instance {Eq' PrelBase.Int} = _fEq'Int; +instance __forall [a] {Eq' a} => {Eq' [a]} = _gEq'_91_93; +1 _fEq'Int :: {Eq' PrelBase.Int} ; +1 _gEq'_91_93 :: __forall [a] {Eq' a} => {Eq' [a]} ; +1 class Eq' a where {deq :: a -> a -> PrelBase.Bool} ; +1 dand :: PrelBase.Bool -> PrelBase.Bool -> PrelBase.Bool ; +1 f :: __forall [a] {Eq' a} => a -> a -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc058.stderr b/ghc/tests/typecheck/should_compile/tc058.stderr index a4b2af2..e3aad7a 100644 --- a/ghc/tests/typecheck/should_compile/tc058.stderr +++ b/ghc/tests/typecheck/should_compile/tc058.stderr @@ -1,14 +1,11 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f Eq2{:Eq2 :Eq2 doubleeq} Ord2{:Ord2 :Ord2 lt}; -_instances_ -instance _forall_ [$a] {Eq2 $a, Ord2 $a} => {Eq2 [$a]} = $dEq20; -instance {Eq2 PrelBase.Int} = $dEq2Int0; -instance {Ord2 PrelBase.Int} = $dOrd2Int0; -_declarations_ -1 $dEq20 _:_ _forall_ [$a] {Eq2 $a, Ord2 $a} => {Eq2 [$a]} ;; -1 $dEq2Int0 _:_ {Eq2 PrelBase.Int} ;; -1 $dOrd2Int0 _:_ {Ord2 PrelBase.Int} ;; -1 class Eq2 $r3X where {doubleeq :: $r3X -> $r3X -> PrelBase.Bool} ; -1 class {Eq2 $r3U} => Ord2 $r3U where {lt :: $r3U -> $r3U -> PrelBase.Bool} ; -1 f _:_ _forall_ [$a $b] {PrelBase.Num $b, Eq2 [$b]} => [$b] -> $a -> PrelBase.Bool ;; +__export ShouldSucceed f Eq2{doubleeq} Ord2{lt}; +instance {Eq2 PrelBase.Int} = _fEq2Int; +instance {Ord2 PrelBase.Int} = _fOrd2Int; +instance __forall [a] {Eq2 a, Ord2 a} => {Eq2 [a]} = _gEq2_91_93; +1 _fEq2Int :: {Eq2 PrelBase.Int} ; +1 _fOrd2Int :: {Ord2 PrelBase.Int} ; +1 _gEq2_91_93 :: __forall [a] {Eq2 a, Ord2 a} => {Eq2 [a]} ; +1 class Eq2 a where {doubleeq :: a -> a -> PrelBase.Bool} ; +1 class {Eq2 a} => Ord2 a where {lt :: a -> a -> PrelBase.Bool} ; +1 f :: __forall [t _116] {PrelBase.Num _116, Eq2 [_116]} => [_116] -> t -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc059.stderr b/ghc/tests/typecheck/should_compile/tc059.stderr index fdac88b..7a2aa08 100644 --- a/ghc/tests/typecheck/should_compile/tc059.stderr +++ b/ghc/tests/typecheck/should_compile/tc059.stderr @@ -1,11 +1,8 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f Eq2{:Eq2 :Eq2 foo deq}; -_instances_ -instance _forall_ [$a] {Eq2 $a} => {Eq2 [$a]} = $dEq20; -instance {Eq2 PrelBase.Int} = $dEq2Int0; -_declarations_ -1 $dEq20 _:_ _forall_ [$a] {Eq2 $a} => {Eq2 [$a]} ;; -1 $dEq2Int0 _:_ {Eq2 PrelBase.Int} ;; -1 class Eq2 $r3Q where {foo :: $r3Q -> $r3Q; deq :: $r3Q -> $r3Q -> PrelBase.Bool} ; -1 f _:_ _forall_ [$a] {PrelBase.Num $a, Eq2 [$a]} => [$a] -> PrelBase.Bool ;; +__export ShouldSucceed f Eq2{foo deq}; +instance {Eq2 PrelBase.Int} = _fEq2Int; +instance __forall [a] {Eq2 a} => {Eq2 [a]} = _gEq2_91_93; +1 _fEq2Int :: {Eq2 PrelBase.Int} ; +1 _gEq2_91_93 :: __forall [a] {Eq2 a} => {Eq2 [a]} ; +1 class Eq2 a where {foo :: a -> a; deq :: a -> a -> PrelBase.Bool} ; +1 f :: __forall [t] {PrelBase.Num t, Eq2 [t]} => [t] -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc060.stderr b/ghc/tests/typecheck/should_compile/tc060.stderr index f4b6aa3..dfaeb77 100644 --- a/ghc/tests/typecheck/should_compile/tc060.stderr +++ b/ghc/tests/typecheck/should_compile/tc060.stderr @@ -1,10 +1,7 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed Eq2{:Eq2 :Eq2 deq}; -_instances_ -instance _forall_ [$a] {Eq2 $a} => {Eq2 [$a]} = $dEq20; -instance {Eq2 PrelBase.Int} = $dEq2Int0; -_declarations_ -1 $dEq20 _:_ _forall_ [$a] {Eq2 $a} => {Eq2 [$a]} ;; -1 $dEq2Int0 _:_ {Eq2 PrelBase.Int} ;; -1 class Eq2 $r3H where {deq :: $r3H -> $r3H -> PrelBase.Bool} ; +__export ShouldSucceed Eq2{deq}; +instance {Eq2 PrelBase.Int} = _fEq2Int; +instance __forall [a] {Eq2 a} => {Eq2 [a]} = _gEq2_91_93; +1 _fEq2Int :: {Eq2 PrelBase.Int} ; +1 _gEq2_91_93 :: __forall [a] {Eq2 a} => {Eq2 [a]} ; +1 class Eq2 a where {deq :: a -> a -> PrelBase.Bool} ; diff --git a/ghc/tests/typecheck/should_compile/tc061.stderr b/ghc/tests/typecheck/should_compile/tc061.stderr index ce9b08c..ce5d6cf 100644 --- a/ghc/tests/typecheck/should_compile/tc061.stderr +++ b/ghc/tests/typecheck/should_compile/tc061.stderr @@ -1,10 +1,7 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed Eq1{:Eq1 :Eq1 deq}; -_instances_ -instance _forall_ [$a] {Eq1 $a} => {Eq1 [$a]} = $dEq10; -instance {Eq1 PrelBase.Int} = $dEq1Int0; -_declarations_ -1 $dEq10 _:_ _forall_ [$a] {Eq1 $a} => {Eq1 [$a]} ;; -1 $dEq1Int0 _:_ {Eq1 PrelBase.Int} ;; -1 class Eq1 $r3H where {deq :: $r3H -> $r3H -> PrelBase.Bool} ; +__export ShouldSucceed Eq1{deq}; +instance {Eq1 PrelBase.Int} = _fEq1Int; +instance __forall [a] {Eq1 a} => {Eq1 [a]} = _gEq1_91_93; +1 _fEq1Int :: {Eq1 PrelBase.Int} ; +1 _gEq1_91_93 :: __forall [a] {Eq1 a} => {Eq1 [a]} ; +1 class Eq1 a where {deq :: a -> a -> PrelBase.Bool} ; diff --git a/ghc/tests/typecheck/should_compile/tc062.stderr b/ghc/tests/typecheck/should_compile/tc062.stderr index 515302d..73966d6 100644 --- a/ghc/tests/typecheck/should_compile/tc062.stderr +++ b/ghc/tests/typecheck/should_compile/tc062.stderr @@ -1,11 +1,8 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f Eq1{:Eq1 :Eq1 deq}; -_instances_ -instance _forall_ [$a] {Eq1 $a} => {Eq1 [$a]} = $dEq10; -instance {Eq1 PrelBase.Int} = $dEq1Int0; -_declarations_ -1 $dEq10 _:_ _forall_ [$a] {Eq1 $a} => {Eq1 [$a]} ;; -1 $dEq1Int0 _:_ {Eq1 PrelBase.Int} ;; -1 class Eq1 $r3M where {deq :: $r3M -> $r3M -> PrelBase.Bool} ; -1 f _:_ _forall_ [$a] {Eq1 [$a]} => [$a] -> [$a] -> PrelBase.Bool ;; +__export ShouldSucceed f Eq1{deq}; +instance {Eq1 PrelBase.Int} = _fEq1Int; +instance __forall [a] {Eq1 a} => {Eq1 [a]} = _gEq1_91_93; +1 _fEq1Int :: {Eq1 PrelBase.Int} ; +1 _gEq1_91_93 :: __forall [a] {Eq1 a} => {Eq1 [a]} ; +1 class Eq1 a where {deq :: a -> a -> PrelBase.Bool} ; +1 f :: __forall [t] {Eq1 [t]} => [t] -> [t] -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc063.stderr b/ghc/tests/typecheck/should_compile/tc063.stderr index b131219..aec818d 100644 --- a/ghc/tests/typecheck/should_compile/tc063.stderr +++ b/ghc/tests/typecheck/should_compile/tc063.stderr @@ -1,12 +1,9 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed g Reps{:Reps :Reps f} X{Tag}; -_instances_ -instance {Reps PrelBase.Bool} = $dRepsBool0; -instance _forall_ [$a] => {Reps (X $a)} = $dRepsX0; -_declarations_ -1 $dRepsBool0 _:_ {Reps PrelBase.Bool} ;; -1 $dRepsX0 _:_ _forall_ [$a] => {Reps (X $a)} ;; -1 class Reps $r3L where {f :: $r3L -> $r3L -> $r3L} ; -1 data X $r3O = Tag $r3O ; -1 g _:_ _forall_ [$a] {Reps $a} => $a -> $a ;; +__export ShouldSucceed g Reps{f} X{Tag}; +instance {Reps PrelBase.Bool} = _fRepsBool; +instance __forall [q] => {Reps (X q)} = _fRepsX; +1 _fRepsBool :: {Reps PrelBase.Bool} ; +1 _fRepsX :: __forall [q] => {Reps (X q)} ; +1 class Reps r where {f :: r -> r -> r} ; +1 data X a = Tag a ; +1 g :: __forall [r] {Reps r} => r -> r ; diff --git a/ghc/tests/typecheck/should_compile/tc064.stderr b/ghc/tests/typecheck/should_compile/tc064.stderr index 7e78f40..fea6ee5 100644 --- a/ghc/tests/typecheck/should_compile/tc064.stderr +++ b/ghc/tests/typecheck/should_compile/tc064.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed idb Boolean{FF TT}; -_declarations_ +__export ShouldSucceed idb Boolean{FF TT}; 1 data Boolean = FF | TT ; -1 idb _:_ Boolean -> Boolean ;; +1 idb :: Boolean -> Boolean ; diff --git a/ghc/tests/typecheck/should_compile/tc065.stderr b/ghc/tests/typecheck/should_compile/tc065.stderr index b3bc34a..fc69c10 100644 --- a/ghc/tests/typecheck/should_compile/tc065.stderr +++ b/ghc/tests/typecheck/should_compile/tc065.stderr @@ -1,23 +1,16 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed dfs isCyclic isRecursiveCycle lookupVertex mkDigraph mkEdges mkVertices stronglyConnComp topSort Cycle Digraph(MkDigraph) Edge FlattenedDependencyInfo MaybeErr(Succeeded Failed); -_instances_ -instance _forall_ [a] => {PrelBase.Eval (Digraph a)} = $dEvalDigraph0; -instance _forall_ [a b] => {PrelBase.Eval (MaybeErr a b)} = $dEvalMaybeErr0; -_declarations_ -1 $dEvalDigraph0 _:_ _forall_ [a] => {PrelBase.Eval (Digraph a)} ;; -1 $dEvalMaybeErr0 _:_ _forall_ [a b] => {PrelBase.Eval (MaybeErr a b)} ;; +__export ShouldSucceed dfs isCyclic isRecursiveCycle lookupVertex mkDigraph mkEdges mkVertices stronglyConnComp topSort Cycle Digraph{MkDigraph} Edge FlattenedDependencyInfo MaybeErr{Succeeded Failed}; 1 data Digraph vertex = MkDigraph [vertex] ; 1 data MaybeErr a b = Succeeded a | Failed b ; -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 a, PrelBase.Ord b} => FlattenedDependencyInfo a b c -> a -> c ;; -1 mkDigraph _:_ _forall_ [a] => [a] -> Digraph a ;; -1 mkEdges _:_ _forall_ [a b c] {PrelBase.Eq a, PrelBase.Ord b} => [a] -> FlattenedDependencyInfo a b c -> [Edge a] ;; -1 mkVertices _:_ _forall_ [a b c] => FlattenedDependencyInfo a b c -> [a] ;; -1 stronglyConnComp _:_ _forall_ [a] {PrelBase.Eq a} => [Edge a] -> [a] -> [[a]] ;; -1 topSort _:_ _forall_ [a] {PrelBase.Eq a} => [Edge a] -> [a] -> MaybeErr [a] [[a]] ;; +1 dfs :: __forall [a] {PrelBase.Eq a} => (a -> [a]) -> ([a], [a]) -> [a] -> ([a], [a]) ; +1 isCyclic :: __forall [vertex] {PrelBase.Eq vertex} => [Edge vertex] -> [vertex] -> PrelBase.Bool ; +1 isRecursiveCycle :: __forall [vertex] {PrelBase.Eq vertex} => Cycle vertex -> [Edge vertex] -> PrelBase.Bool ; +1 lookupVertex :: __forall [vertex name code] {PrelBase.Eq vertex, PrelBase.Ord name} => FlattenedDependencyInfo vertex name code -> vertex -> code ; +1 mkDigraph :: __forall [vertex] => [vertex] -> Digraph vertex ; +1 mkEdges :: __forall [vertex name code] {PrelBase.Eq vertex, PrelBase.Ord name} => [vertex] -> FlattenedDependencyInfo vertex name code -> [Edge vertex] ; +1 mkVertices :: __forall [vertex name code] => FlattenedDependencyInfo vertex name code -> [vertex] ; +1 stronglyConnComp :: __forall [vertex] {PrelBase.Eq vertex} => [Edge vertex] -> [vertex] -> [[vertex]] ; +1 topSort :: __forall [vertex] {PrelBase.Eq vertex} => [Edge vertex] -> [vertex] -> MaybeErr [vertex] [[vertex]] ; 1 type Cycle vertex = [vertex] ; 1 type Edge vertex = (vertex, vertex) ; 1 type FlattenedDependencyInfo vertex name code = [(vertex, Set.Set name, Set.Set name, code)] ; diff --git a/ghc/tests/typecheck/should_compile/tc066.stderr b/ghc/tests/typecheck/should_compile/tc066.stderr index babf6d9..8189323 100644 --- a/ghc/tests/typecheck/should_compile/tc066.stderr +++ b/ghc/tests/typecheck/should_compile/tc066.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f Pair{MkPair}; -_declarations_ -1 data Pair $r3x $r3y = MkPair $r3x $r3y ; -1 f _:_ _forall_ [$a :: (* -> *) $b $c] {PrelBase.Monad $a} => $a (Pair $b $c) -> $a $c ;; +__export ShouldSucceed f Pair{MkPair}; +1 data Pair a b = MkPair a b ; +1 f :: __forall [a b] => [Pair a b] -> [b] ; diff --git a/ghc/tests/typecheck/should_compile/tc067.stderr b/ghc/tests/typecheck/should_compile/tc067.stderr index 079db7f..c2e1573 100644 --- a/ghc/tests/typecheck/should_compile/tc067.stderr +++ b/ghc/tests/typecheck/should_compile/tc067.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f; -_declarations_ -1 f _:_ _forall_ [$a] => [$a] -> [$a] ;; +__export ShouldSucceed f; +1 f :: __forall [t] => [t] -> [t] ; diff --git a/ghc/tests/typecheck/should_compile/tc068.stderr b/ghc/tests/typecheck/should_compile/tc068.stderr index 6b96b5c..e3c8be1 100644 --- a/ghc/tests/typecheck/should_compile/tc068.stderr +++ b/ghc/tests/typecheck/should_compile/tc068.stderr @@ -1,11 +1,8 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed B{X Y} T{D C}; -_instances_ -instance _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Eq (B $a)} = $dEqB0; -instance _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Eq (T $a)} = $dEqT0; -_declarations_ -1 $dEqB0 _:_ _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Eq (B $a)} ;; -1 $dEqT0 _:_ _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Eq (T $a)} ;; -1 data B $r40 = X | Y $r40 ; -1 data T $r44 = D (B $r44) | C ; +__export ShouldSucceed B{X Y} T{D C}; +instance __forall [b] {PrelBase.Eq b} => {PrelBase.Eq (B b)} = _fEqB; +instance __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} = _fEqT; +1 _fEqB :: __forall [b] {PrelBase.Eq b} => {PrelBase.Eq (B b)} ; +1 _fEqT :: __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} ; +1 data B b = X | Y b ; +1 data T a = D (B a) | C ; diff --git a/ghc/tests/typecheck/should_compile/tc069.stderr b/ghc/tests/typecheck/should_compile/tc069.stderr index d6c4003..681c176 100644 --- a/ghc/tests/typecheck/should_compile/tc069.stderr +++ b/ghc/tests/typecheck/should_compile/tc069.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed x y ys; -_declarations_ -1 x _:_ PrelBase.Char ;; -1 y _:_ PrelBase.Char ;; -1 ys _:_ [PrelBase.Char] ;; +__export ShouldSucceed x y ys; +1 x :: PrelBase.Char ; +1 y :: PrelBase.Char ; +1 ys :: [PrelBase.Char] ; diff --git a/ghc/tests/typecheck/should_compile/tc070.stderr b/ghc/tests/typecheck/should_compile/tc070.stderr index 7e78f40..fea6ee5 100644 --- a/ghc/tests/typecheck/should_compile/tc070.stderr +++ b/ghc/tests/typecheck/should_compile/tc070.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed idb Boolean{FF TT}; -_declarations_ +__export ShouldSucceed idb Boolean{FF TT}; 1 data Boolean = FF | TT ; -1 idb _:_ Boolean -> Boolean ;; +1 idb :: Boolean -> Boolean ; diff --git a/ghc/tests/typecheck/should_compile/tc073.stderr b/ghc/tests/typecheck/should_compile/tc073.stderr index 079db7f..c2e1573 100644 --- a/ghc/tests/typecheck/should_compile/tc073.stderr +++ b/ghc/tests/typecheck/should_compile/tc073.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f; -_declarations_ -1 f _:_ _forall_ [$a] => [$a] -> [$a] ;; +__export ShouldSucceed f; +1 f :: __forall [t] => [t] -> [t] ; diff --git a/ghc/tests/typecheck/should_compile/tc074.stderr b/ghc/tests/typecheck/should_compile/tc074.stderr index 6b96b5c..e3c8be1 100644 --- a/ghc/tests/typecheck/should_compile/tc074.stderr +++ b/ghc/tests/typecheck/should_compile/tc074.stderr @@ -1,11 +1,8 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed B{X Y} T{D C}; -_instances_ -instance _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Eq (B $a)} = $dEqB0; -instance _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Eq (T $a)} = $dEqT0; -_declarations_ -1 $dEqB0 _:_ _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Eq (B $a)} ;; -1 $dEqT0 _:_ _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Eq (T $a)} ;; -1 data B $r40 = X | Y $r40 ; -1 data T $r44 = D (B $r44) | C ; +__export ShouldSucceed B{X Y} T{D C}; +instance __forall [b] {PrelBase.Eq b} => {PrelBase.Eq (B b)} = _fEqB; +instance __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} = _fEqT; +1 _fEqB :: __forall [b] {PrelBase.Eq b} => {PrelBase.Eq (B b)} ; +1 _fEqT :: __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} ; +1 data B b = X | Y b ; +1 data T a = D (B a) | C ; diff --git a/ghc/tests/typecheck/should_compile/tc076.hs b/ghc/tests/typecheck/should_compile/tc076.hs index 5bf422e..493e967 100644 --- a/ghc/tests/typecheck/should_compile/tc076.hs +++ b/ghc/tests/typecheck/should_compile/tc076.hs @@ -1,4 +1,4 @@ ---!!! scoping in list comprehensions right way 'round? +-- !!! scoping in list comprehensions right way 'round? -- a bug reported by Jon Hill -- module ShouldSucceed where diff --git a/ghc/tests/typecheck/should_compile/tc076.stderr b/ghc/tests/typecheck/should_compile/tc076.stderr index 39e0613..c0cf92a 100644 --- a/ghc/tests/typecheck/should_compile/tc076.stderr +++ b/ghc/tests/typecheck/should_compile/tc076.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed x xs; -_declarations_ -1 x _:_ [[PrelBase.Bool]] ;; -1 xs _:_ [PrelBase.Bool] ;; +__export ShouldSucceed x xs; +1 x :: [[PrelBase.Bool]] ; +1 xs :: [PrelBase.Bool] ; diff --git a/ghc/tests/typecheck/should_compile/tc077.hs b/ghc/tests/typecheck/should_compile/tc077.hs index 45e4d11..c4f6c4e 100644 --- a/ghc/tests/typecheck/should_compile/tc077.hs +++ b/ghc/tests/typecheck/should_compile/tc077.hs @@ -1,4 +1,4 @@ ---!!! make sure context of EQ is minimised in interface file. +-- !!! make sure context of EQ is minimised in interface file. -- module ShouldSucceed where diff --git a/ghc/tests/typecheck/should_compile/tc077.stderr b/ghc/tests/typecheck/should_compile/tc077.stderr index f162b32..d4a3c4b 100644 --- a/ghc/tests/typecheck/should_compile/tc077.stderr +++ b/ghc/tests/typecheck/should_compile/tc077.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed EQ{:EQ :EQ ===} NUM{ONE TWO} ORD{:ORD :ORD}; -_declarations_ -1 class {ORD $r3B, PrelBase.Show $r3B} => EQ $r3B where {=== :: $r3B -> $r3B -> PrelBase.Bool} ; -1 class {PrelBase.Num $r3F} => ORD $r3F ; +__export ShouldSucceed EQ{===} NUM{ONE TWO} ORD; +1 class {ORD a, PrelBase.Show a} => EQ a where {=== :: a -> a -> PrelBase.Bool} ; +1 class {PrelBase.Num a} => ORD a ; 1 data NUM = ONE | TWO ; diff --git a/ghc/tests/typecheck/should_compile/tc078.hs b/ghc/tests/typecheck/should_compile/tc078.hs index 4625f65..de5e748 100644 --- a/ghc/tests/typecheck/should_compile/tc078.hs +++ b/ghc/tests/typecheck/should_compile/tc078.hs @@ -1,4 +1,4 @@ ---!!! instance decls with no binds +-- !!! instance decls with no binds -- module ShouldFail where diff --git a/ghc/tests/typecheck/should_compile/tc078.stderr b/ghc/tests/typecheck/should_compile/tc078.stderr index cb57d73..4dd15bb 100644 --- a/ghc/tests/typecheck/should_compile/tc078.stderr +++ b/ghc/tests/typecheck/should_compile/tc078.stderr @@ -1,15 +1,7 @@ - -tc078.hs:7: Warning: - No explicit method nor default method for `==' - in an instance declaration for `Eq' - ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldFail Bar{MkBar}; -_instances_ -instance _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Eq (Bar $a)} = $dEqBar0; -instance _forall_ [$a] {PrelBase.Ord $a} => {PrelBase.Ord (Bar $a)} = $dOrdBar0; -_declarations_ -1 $dEqBar0 _:_ _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Eq (Bar $a)} ;; -1 $dOrdBar0 _:_ _forall_ [$a] {PrelBase.Ord $a, PrelBase.Eq (Bar $a)} => {PrelBase.Ord (Bar $a)} ;; -1 data Bar $r3x = MkBar PrelBase.Int $r3x ; +__export ShouldFail Bar{MkBar}; +instance __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (Bar a)} = _fEqBar; +instance __forall [a] {PrelBase.Ord a} => {PrelBase.Ord (Bar a)} = _fOrdBar; +1 _fEqBar :: __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (Bar a)} ; +1 _fOrdBar :: __forall [a] {PrelBase.Ord a, PrelBase.Eq (Bar a)} => {PrelBase.Ord (Bar a)} ; +1 data Bar a = MkBar PrelBase.Int a ; diff --git a/ghc/tests/typecheck/should_compile/tc079.hs b/ghc/tests/typecheck/should_compile/tc079.hs index 99a73cc..db07ad1 100644 --- a/ghc/tests/typecheck/should_compile/tc079.hs +++ b/ghc/tests/typecheck/should_compile/tc079.hs @@ -1,6 +1,6 @@ ---!!! small class decl with local polymorphism; ---!!! "easy" to check default methods and such... ---!!! (this is the example given in TcClassDcl) +-- !!! small class decl with local polymorphism; +-- !!! "easy" to check default methods and such... +-- !!! (this is the example given in TcClassDcl) -- module ShouldSucceed where diff --git a/ghc/tests/typecheck/should_compile/tc079.stderr b/ghc/tests/typecheck/should_compile/tc079.stderr index 56b5e08..6e89914 100644 --- a/ghc/tests/typecheck/should_compile/tc079.stderr +++ b/ghc/tests/typecheck/should_compile/tc079.stderr @@ -1,12 +1,9 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed Foo{:Foo :Foo op2 op1}; -_instances_ -instance _forall_ [$a] {Foo $a} => {Foo [$a]} = $dFoo0; -instance {Foo PrelBase.Int} = $dFooInt0; -_declarations_ -1 $dFoo0 _:_ _forall_ [$a] {Foo $a} => {Foo [$a]} ;; -1 $dFooInt0 _:_ {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 $r3z where {op2 = :: _forall_ [$r3B] {PrelBase.Ord $r3B} => $r3z -> $r3B -> $r3B -> $r3B; op1 = :: $r3z -> PrelBase.Bool} ; +__export ShouldSucceed Foo{op2 op1}; +instance {Foo PrelBase.Int} = _fFooInt; +instance __forall [a] {Foo a} => {Foo [a]} = _gFoo_91_93; +1 _fFooInt :: {Foo PrelBase.Int} ; +1 _gFoo_91_93 :: __forall [a] {Foo a} => {Foo [a]} ; +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 a where {op2 = :: __forall [b] {PrelBase.Ord b} => a -> b -> b -> b; op1 = :: a -> PrelBase.Bool} ; diff --git a/ghc/tests/typecheck/should_compile/tc080.stderr b/ghc/tests/typecheck/should_compile/tc080.stderr index 549b1e1..b389bdd 100644 --- a/ghc/tests/typecheck/should_compile/tc080.stderr +++ b/ghc/tests/typecheck/should_compile/tc080.stderr @@ -1,22 +1,19 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed charToInt lines' seperatedBy span' strToInt whiteSpace Parse{:Parse :Parse forced parse parseType parseLine parseFile}; -_instances_ -instance _forall_ [$a] {Parse $a} => {Parse [$a]} = $dParse0; -instance {Parse PrelBase.Char} = $dParseChar0; -instance {Parse PrelBase.Int} = $dParseInt0; -_declarations_ -1 $dParse0 _:_ _forall_ [$a] {Parse $a} => {Parse [$a]} ;; -1 $dParseChar0 _:_ {Parse PrelBase.Char} ;; -1 $dParseInt0 _:_ {Parse PrelBase.Int} ;; -1 $mforced _:_ _forall_ [$a] {Parse $a} => $a -> PrelBase.Bool ;; -1 $mparse _:_ _forall_ [$a] {Parse $a} => PrelBase.String -> ($a, PrelBase.String) ;; -1 $mparseFile _:_ _forall_ [$a] {Parse $a} => PrelBase.String -> [$a] ;; -1 $mparseLine _:_ _forall_ [$a] {Parse $a} => PrelBase.String -> $a ;; -1 charToInt _:_ PrelBase.Char -> PrelBase.Int ;; -1 class Parse $r5B where {forced = :: $r5B -> PrelBase.Bool; parse = :: PrelBase.String -> ($r5B, PrelBase.String); parseType :: PrelBase.String -> ($r5B, PrelBase.String); parseLine = :: PrelBase.String -> $r5B; parseFile = :: PrelBase.String -> [$r5B]} ; -1 lines' _:_ [PrelBase.Char] -> [[PrelBase.Char]] ;; -1 seperatedBy _:_ PrelBase.Char -> PrelBase.String -> [PrelBase.String] ;; -1 span' _:_ _forall_ [$a] => ($a -> PrelBase.Bool) -> [$a] -> ([$a], [$a]) ;; -1 strToInt _:_ PrelBase.String -> PrelBase.Int ;; -1 whiteSpace _:_ PrelBase.String -> PrelBase.String ;; +__export ShouldSucceed charToInt lines' seperatedBy span' strToInt whiteSpace Parse{forced parse parseType parseLine parseFile}; +instance {Parse PrelBase.Char} = _fParseChar; +instance {Parse PrelBase.Int} = _fParseInt; +instance __forall [a] {Parse a} => {Parse [a]} = _gParse_91_93; +1 _fParseChar :: {Parse PrelBase.Char} ; +1 _fParseInt :: {Parse PrelBase.Int} ; +1 _gParse_91_93 :: __forall [a] {Parse a} => {Parse [a]} ; +1 _mforced :: __forall [a] {Parse a} => a -> PrelBase.Bool ; +1 _mparse :: __forall [a] {Parse a} => PrelBase.String -> (a, PrelBase.String) ; +1 _mparseFile :: __forall [a] {Parse a} => PrelBase.String -> [a] ; +1 _mparseLine :: __forall [a] {Parse a} => PrelBase.String -> a ; +1 charToInt :: PrelBase.Char -> PrelBase.Int ; +1 class Parse a where {forced = :: a -> PrelBase.Bool; parse = :: PrelBase.String -> (a, PrelBase.String); parseType :: PrelBase.String -> (a, PrelBase.String); parseLine = :: PrelBase.String -> a; parseFile = :: PrelBase.String -> [a]} ; +1 lines' :: [PrelBase.Char] -> [[PrelBase.Char]] ; +1 seperatedBy :: PrelBase.Char -> PrelBase.String -> [PrelBase.String] ; +1 span' :: __forall [a] => (a -> PrelBase.Bool) -> [a] -> ([a], [a]) ; +1 strToInt :: PrelBase.String -> PrelBase.Int ; +1 whiteSpace :: PrelBase.String -> PrelBase.String ; diff --git a/ghc/tests/typecheck/should_compile/tc081.hs b/ghc/tests/typecheck/should_compile/tc081.hs index 6590550..a01eaa9 100644 --- a/ghc/tests/typecheck/should_compile/tc081.hs +++ b/ghc/tests/typecheck/should_compile/tc081.hs @@ -1,4 +1,4 @@ ---!!! an example Simon made up +-- !!! an example Simon made up -- module ShouldSucceed where diff --git a/ghc/tests/typecheck/should_compile/tc081.stderr b/ghc/tests/typecheck/should_compile/tc081.stderr index 1d22d27..249ebff 100644 --- a/ghc/tests/typecheck/should_compile/tc081.stderr +++ b/ghc/tests/typecheck/should_compile/tc081.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f f2 f3; -_declarations_ -1 f _:_ _forall_ [$a] {PrelBase.Ord $a, PrelBase.Num $a} => $a -> ($a, PrelBase.Bool, [PrelBase.Bool], [PrelBase.Char]) ;; -1 f2 _:_ _forall_ [$a] {PrelBase.Ord $a, PrelBase.Num $a} => $a -> ($a, PrelBase.Bool, [PrelBase.Bool], [PrelBase.Char]) ;; -1 f3 _:_ _forall_ [$a] {PrelBase.Ord $a, PrelBase.Num $a} => $a -> ($a, PrelBase.Bool, [PrelBase.Bool], [PrelBase.Char]) ;; +__export ShouldSucceed f f2 f3; +1 f :: __forall [a] {PrelBase.Ord a, PrelBase.Num a} => a -> (a, PrelBase.Bool, [PrelBase.Bool], [PrelBase.Char]) ; +1 f2 :: __forall [a] {PrelBase.Ord a, PrelBase.Num a} => a -> (a, PrelBase.Bool, [PrelBase.Bool], [PrelBase.Char]) ; +1 f3 :: __forall [a] {PrelBase.Ord a, PrelBase.Num a} => a -> (a, PrelBase.Bool, [PrelBase.Bool], [PrelBase.Char]) ; diff --git a/ghc/tests/typecheck/should_compile/tc082.hs b/ghc/tests/typecheck/should_compile/tc082.hs index 07df34b..8ef70af 100644 --- a/ghc/tests/typecheck/should_compile/tc082.hs +++ b/ghc/tests/typecheck/should_compile/tc082.hs @@ -1,4 +1,4 @@ ---!!! tc082: an instance for functions +-- !!! tc082: an instance for functions -- module ShouldSucceed where diff --git a/ghc/tests/typecheck/should_compile/tc082.stderr b/ghc/tests/typecheck/should_compile/tc082.stderr index e81df92..3823a79 100644 --- a/ghc/tests/typecheck/should_compile/tc082.stderr +++ b/ghc/tests/typecheck/should_compile/tc082.stderr @@ -1,9 +1,6 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f Normal{:Normal :Normal normal}; -_instances_ -instance _forall_ [$a $b] => {Normal ($a -> $b)} = $dNormal0; -_declarations_ -1 $dNormal0 _:_ _forall_ [$a $b] => {Normal ($a -> $b)} ;; -1 class Normal $r3D where {normal :: $r3D -> PrelBase.Bool} ; -1 f _:_ _forall_ [$a] => $a -> PrelBase.Bool ;; +__export ShouldSucceed f Normal{normal}; +instance __forall [a b] => {Normal (a -> b)} = _gNormalmg; +1 _gNormalmg :: __forall [a b] => {Normal (a -> b)} ; +1 class Normal a where {normal :: a -> PrelBase.Bool} ; +1 f :: __forall [t] => t -> PrelBase.Bool ; diff --git a/ghc/tests/typecheck/should_compile/tc084.stderr b/ghc/tests/typecheck/should_compile/tc084.stderr index 70a6203..4e91922 100644 --- a/ghc/tests/typecheck/should_compile/tc084.stderr +++ b/ghc/tests/typecheck/should_compile/tc084.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed f g h; -_declarations_ -1 f _:_ _forall_ [$a] => PrelBase.Int -> $a -> PrelBase.Int ;; -1 g _:_ _forall_ [$a $b] {PrelBase.Num $a} => PrelBase.Bool -> $a -> $b -> $a ;; -1 h _:_ _forall_ [$a] => $a -> PrelBase.Int -> PrelBase.Int ;; +__export ShouldSucceed f g h; +1 f :: __forall [b] => PrelBase.Int -> b -> PrelBase.Int ; +1 g :: __forall [a b] {PrelBase.Num a} => PrelBase.Bool -> a -> b -> a ; +1 h :: __forall [b] => b -> PrelBase.Int -> PrelBase.Int ; diff --git a/ghc/tests/typecheck/should_compile/tc085.hs b/ghc/tests/typecheck/should_compile/tc085.hs index 8c0b8c7..958c2b0 100644 --- a/ghc/tests/typecheck/should_compile/tc085.hs +++ b/ghc/tests/typecheck/should_compile/tc085.hs @@ -1,6 +1,6 @@ {-# OPTIONS -fglasgow-exts #-} ---!!! From a bug report from Satnam. ---!!! To do with re-exporting importees from PreludeGla* modules. +-- !!! From a bug report from Satnam. +-- !!! To do with re-exporting importees from PreludeGla* modules. module ShouldSucceed ( module IOExts, module PrelGHC ) where --OLD: import GlaExts diff --git a/ghc/tests/typecheck/should_compile/tc085.stderr b/ghc/tests/typecheck/should_compile/tc085.stderr index cdd95a7..6fa0afb 100644 --- a/ghc/tests/typecheck/should_compile/tc085.stderr +++ b/ghc/tests/typecheck/should_compile/tc085.stderr @@ -1,9 +1,7 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -IOExts boundsIOArray freezeIOArray newIOArray newIORef performGC readIOArray readIORef trace unsafeIOToST unsafePtrEq writeIOArray writeIORef IOArray IORef; -PrelGHC *# *## **## +# +## -# -## /# /## /=# /=## <# <## <=# <=## ==# ==## ># >## >=# >=## acosDouble# acosFloat# addr2Int# addr2Integer# and# asinDouble# asinFloat# assert atanDouble# atanFloat# catch# chr# cmpInteger# cosDouble# cosFloat# coshDouble# coshFloat# deRefStablePtr# decodeDouble# decodeFloat# delay# divideFloat# double2Float# double2Int# encodeDouble# encodeFloat# eqAddr# eqChar# eqFloat# eqWord# expDouble# expFloat# float2Double# float2Int# fork# geAddr# geChar# geFloat# geWord# gtAddr# gtChar# gtFloat# gtWord# iShiftL# iShiftRA# iShiftRL# indexAddrArray# indexAddrOffAddr# indexAddrOffForeignObj# indexArray# indexCharArray# indexCharOffAddr# indexCharOffForeignObj# indexDoubleArray# indexDoubleOffAddr# indexDoubleOffForeignObj# indexFloatArray# indexFloatOffAddr# indexFloatOffForeignObj# indexInt64Array# indexInt64OffAddr# indexInt64OffForeignObj# indexIntArray# indexIntOffAddr# indexIntOffForeignObj# indexStablePtrArray# indexStablePtrOffAddr# indexStablePtrOffForeignObj# indexWord64Array# indexWord64OffAddr# indexWord64OffForeignObj# indexWordArray# indexWordOffAddr# indexWordOffForeignObj# int2Addr# int2Double# int2Float# int2Integer# int2Word# int64ToInteger# integer2Int# integer2Word# integerToInt64# integerToWord64# killThread# 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# newMVar# newMutVar# newStablePtrArray# newWordArray# not# or# ord# par# parAt# parAtAbs# parAtForNow# parAtRel# parGlobal# parLocal# plusFloat# plusInteger# powerFloat# putMVar# quotInt# quotRemInteger# quotWord# raise# readAddrArray# readArray# readCharArray# readDoubleArray# readFloatArray# readInt64Array# readIntArray# readMutVar# readStablePtrArray# readWord64Array# readWordArray# realWorld# reallyUnsafePtrEquality# remInt# remWord# sameMVar# sameMutVar# sameMutableArray# sameMutableByteArray# seq# shiftL# shiftRA# shiftRL# sinDouble# sinFloat# sinhDouble# sinhFloat# sizeofByteArray# sizeofMutableByteArray# sqrtDouble# sqrtFloat# takeMVar# tanDouble# tanFloat# tanhDouble# tanhFloat# timesFloat# timesInteger# unsafeCoerce# unsafeFreezeArray# unsafeFreezeByteArray# waitRead# waitWrite# word2Int# word2Integer# word64ToInteger# writeAddrArray# writeAddrOffAddr# writeArray# writeCharArray# writeCharOffAddr# writeDoubleArray# writeDoubleOffAddr# writeFloatArray# writeFloatOffAddr# writeForeignObj# writeForeignObjOffAddr# writeInt64Array# writeInt64OffAddr# writeIntArray# writeIntOffAddr# writeMutVar# writeStablePtrArray# writeStablePtrOffAddr# writeWord64Array# writeWord64OffAddr# writeWordArray# writeWordOffAddr# xor# -> Addr# All Array# ByteArray# CCallable CReturnable Char# Double# Float# ForeignObj# Int# Int64# MVar# MutVar# MutableArray# MutableByteArray# RealWorld StablePtr# State# ThreadId# Void Word# Word64#; -PrelHandle hConnectTo hGetEcho hIsTerminalDevice hSetEcho openFileEx IOModeEx{BinaryMode TextMode}; -PrelIOBase fixIO unsafeInterleaveIO unsafePerformIO; -_declarations_ +__export IOExts boundsIOArray freezeIOArray newIOArray newIORef performGC readIOArray readIORef thawIOArray trace unsafePtrEq writeIOArray writeIORef IOArray IORef; +__export PrelGHC *# *## **## +# +## -# -## /## /=# /=## <# <## <=# <=## ==# ==## ># >## >=# >=## acosDouble# acosFloat# addr2Int# addr2Integer# and# asinDouble# asinFloat# assert atanDouble# atanFloat# catch# chr# cmpInteger# cosDouble# cosFloat# coshDouble# coshFloat# deRefStablePtr# deRefWeak# decodeDouble# decodeFloat# delay# divideFloat# double2Float# double2Int# encodeDouble# encodeFloat# eqAddr# eqChar# eqFloat# eqStablePtr# eqWord# expDouble# expFloat# float2Double# float2Int# fork# geAddr# geChar# geFloat# geWord# gtAddr# gtChar# gtFloat# gtWord# iShiftL# iShiftRA# iShiftRL# indexAddrArray# indexAddrOffAddr# indexAddrOffForeignObj# indexArray# indexCharArray# indexCharOffAddr# indexCharOffForeignObj# indexDoubleArray# indexDoubleOffAddr# indexDoubleOffForeignObj# indexFloatArray# indexFloatOffAddr# indexFloatOffForeignObj# indexInt64Array# indexInt64OffAddr# indexInt64OffForeignObj# indexIntArray# indexIntOffAddr# indexIntOffForeignObj# indexStablePtrArray# indexStablePtrOffAddr# indexStablePtrOffForeignObj# indexWord64Array# indexWord64OffAddr# indexWord64OffForeignObj# indexWordArray# indexWordOffAddr# indexWordOffForeignObj# int2Addr# int2Double# int2Float# int2Integer# int2Word# int64ToInteger# integer2Int# integer2Word# integerToInt64# integerToWord64# isEmptyMVar# killThread# leAddr# leChar# leFloat# leWord# logDouble# logFloat# ltAddr# ltChar# ltFloat# ltWord# makeForeignObj# makeStablePtr# minusFloat# minusInteger# mkWeak# neAddr# neChar# neFloat# neWord# negateDouble# negateFloat# negateInt# negateInteger# newAddrArray# newArray# newCharArray# newDoubleArray# newFloatArray# newIntArray# newMVar# newMutVar# newStablePtrArray# newWordArray# not# or# ord# par# parAt# parAtAbs# parAtForNow# parAtRel# parGlobal# parLocal# plusFloat# plusInteger# powerFloat# putMVar# quotInt# quotRemInteger# quotWord# raise# readAddrArray# readArray# readCharArray# readDoubleArray# readFloatArray# readInt64Array# readIntArray# readMutVar# readStablePtrArray# readWord64Array# readWordArray# realWorld# reallyUnsafePtrEquality# remInt# remWord# sameMVar# sameMutVar# sameMutableArray# sameMutableByteArray# seq# shiftL# shiftRL# sinDouble# sinFloat# sinhDouble# sinhFloat# sizeofByteArray# sizeofMutableByteArray# sqrtDouble# sqrtFloat# takeMVar# tanDouble# tanFloat# tanhDouble# tanhFloat# timesFloat# timesInteger# unsafeCoerce# unsafeFreezeArray# unsafeFreezeByteArray# waitRead# waitWrite# word2Int# word2Integer# word64ToInteger# writeAddrArray# writeAddrOffAddr# writeArray# writeCharArray# writeCharOffAddr# writeDoubleArray# writeDoubleOffAddr# writeFloatArray# writeFloatOffAddr# writeForeignObj# writeForeignObjOffAddr# writeInt64Array# writeInt64OffAddr# writeIntArray# writeIntOffAddr# writeMutVar# writeStablePtrArray# writeStablePtrOffAddr# writeWord64Array# writeWord64OffAddr# writeWordArray# writeWordOffAddr# xor# -> Addr# All Array# ByteArray# CCallable CReturnable Char# Double# Float# ForeignObj# Int# Int64# MVar# MutVar# MutableArray# MutableByteArray# RealWorld StablePtr# State# ThreadId# Weak# Word# Word64#; +__export PrelHandle hConnectTo hGetEcho hIsTerminalDevice hSetEcho openFileEx IOModeEx{BinaryMode TextMode}; +__export PrelIOBase fixIO unsafeInterleaveIO unsafePerformIO; 1 data FooData = FooData ; 1 type FooType = PrelBase.Int ; diff --git a/ghc/tests/typecheck/should_compile/tc086.hs b/ghc/tests/typecheck/should_compile/tc086.hs index 1f0f427..2db3b70 100644 --- a/ghc/tests/typecheck/should_compile/tc086.hs +++ b/ghc/tests/typecheck/should_compile/tc086.hs @@ -25,7 +25,7 @@ SPJ note: the type signature on "multiply" should be module ShouldSucceed( Group, Ring ) where import qualified Prelude( Ord(..), Eq(..), Num(..) ) -import Prelude hiding( Ord(..), Eq(..), Num(..), MonadZero( zero ) ) +import Prelude hiding( Ord(..), Eq(..), Num(..) ) class Group a where compare :: a -> a -> Prelude.Ordering @@ -50,7 +50,7 @@ class Group a where class (Group a) => Ring a where (*) :: a -> a -> a (*) a b = multiply a b - where multiply :: Group a => a -> a ->a + where multiply :: Group b => b -> b -> b multiply a b = case (compare a zero) of EQ -> zero diff --git a/ghc/tests/typecheck/should_compile/tc086.stderr b/ghc/tests/typecheck/should_compile/tc086.stderr index 55c52c1..cbbee48 100644 --- a/ghc/tests/typecheck/should_compile/tc086.stderr +++ b/ghc/tests/typecheck/should_compile/tc086.stderr @@ -1,9 +1,7 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed Group Ring; -_declarations_ -1 $m* _:_ _forall_ [$a] {Ring $a} => $a -> $a -> $a ;; -1 $mone _:_ _forall_ [$a] {Group $a} => $a ;; -1 $mzero _:_ _forall_ [$a] {Group $a} => $a ;; -1 class Group $r7i where {one = :: $r7i; zero = :: $r7i; - :: $r7i -> $r7i -> $r7i; + :: $r7i -> $r7i -> $r7i; fromInteger :: PrelBase.Integer -> $r7i; compare :: $r7i -> $r7i -> PrelBase.Ordering} ; -1 class {Group $r6Z} => Ring $r6Z where {* = :: $r6Z -> $r6Z -> $r6Z} ; +__export ShouldSucceed Group Ring; +1 _mone :: __forall [a] {Group a} => a ; +1 _mzero :: __forall [a] {Group a} => a ; +1 _nt :: __forall [a] {Ring a} => a -> a -> a ; +1 class Group a where {one = :: a; zero = :: a; - :: a -> a -> a; + :: a -> a -> a; fromInteger :: PrelBase.Integer -> a; compare :: a -> a -> PrelBase.Ordering} ; +1 class {Group a} => Ring a where {* = :: a -> a -> a} ; diff --git a/ghc/tests/typecheck/should_compile/tc087.stderr b/ghc/tests/typecheck/should_compile/tc087.stderr index 8850108..24e3414 100644 --- a/ghc/tests/typecheck/should_compile/tc087.stderr +++ b/ghc/tests/typecheck/should_compile/tc087.stderr @@ -1,12 +1,10 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed check insertMany out pqSort toOrderedList PriorityQueue{:PriorityQueue :PriorityQueue splitMin meld insert single empty} SeqView{Null Cons}; -_declarations_ -1 $minsert _:_ _forall_ [$a :: (* -> *)] {PriorityQueue $a} => _forall_ [$b] {PrelBase.Ord $b} => $b -> $a $b -> $a $b ;; -1 check _:_ _forall_ [$a :: (* -> *)] {PriorityQueue $a} => (_forall_ [$b] {PrelBase.Ord $b} => $a $b) -> PrelIOBase.IO PrelBase.() ;; -1 class PriorityQueue $r4c :: (* -> *) where {splitMin :: _forall_ [$r4e] {PrelBase.Ord $r4e} => $r4c $r4e -> SeqView $r4c $r4e; meld :: _forall_ [$r4h] {PrelBase.Ord $r4h} => $r4c $r4h -> $r4c $r4h -> $r4c $r4h; insert = :: _forall_ [$r4j] {PrelBase.Ord $r4j} => $r4j -> $r4c $r4j -> $r4c $r4j; single :: _forall_ [$r4m] {PrelBase.Ord $r4m} => $r4m -> $r4c $r4m; empty :: _forall_ [$r4o] {PrelBase.Ord $r4o} => $r4c $r4o} ; -1 data SeqView $r4v :: (* -> *) $r4w = Null | Cons $r4w ($r4v $r4w) ; -1 insertMany _:_ _forall_ [$a $b :: (* -> *)] {PrelBase.Ord $a, PriorityQueue $b} => [$a] -> $b $a -> $b $a ;; -1 out _:_ _forall_ [$a] {PrelBase.Num $a} => [$a] -> PrelIOBase.IO PrelBase.() ;; -1 pqSort _:_ _forall_ [$a :: (* -> *) $b] {PriorityQueue $a, PrelBase.Ord $b} => $a $b -> [$b] -> [$b] ;; -1 toOrderedList _:_ _forall_ [$a :: (* -> *) $b] {PrelBase.Ord $b, PriorityQueue $a} => $a $b -> [$b] ;; +__export ShouldSucceed check insertMany out pqSort toOrderedList PriorityQueue{splitMin meld insert single empty} SeqView{Null Cons}; +1 _minsert :: __forall [q :: (* -> *)] {PriorityQueue q} => __forall [a] {PrelBase.Ord a} => a -> q a -> q a ; +1 check :: __forall [q :: (* -> *)] {PriorityQueue q} => (__forall [a] {PrelBase.Ord a} => q a) -> PrelIOBase.IO PrelBase.() ; +1 class PriorityQueue q :: (* -> *) where {splitMin :: __forall [a] {PrelBase.Ord a} => q a -> SeqView q a; meld :: __forall [a] {PrelBase.Ord a} => q a -> q a -> q a; insert = :: __forall [a] {PrelBase.Ord a} => a -> q a -> q a; single :: __forall [a] {PrelBase.Ord a} => a -> q a; empty :: __forall [a] {PrelBase.Ord a} => q a} ; +1 data SeqView t :: (* -> *) a = Null | Cons a (t a) ; +1 insertMany :: __forall [a q :: (* -> *)] {PrelBase.Ord a, PriorityQueue q} => [a] -> q a -> q a ; +1 out :: __forall [a] {PrelBase.Num a} => [a] -> PrelIOBase.IO PrelBase.() ; +1 pqSort :: __forall [q :: (* -> *) a] {PriorityQueue q, PrelBase.Ord a} => q a -> [a] -> [a] ; +1 toOrderedList :: __forall [q :: (* -> *) a] {PrelBase.Ord a, PriorityQueue q} => q a -> [a] ; diff --git a/ghc/tests/typecheck/should_compile/tc088.stderr b/ghc/tests/typecheck/should_compile/tc088.stderr index 87a99d9..d61bd1c 100644 --- a/ghc/tests/typecheck/should_compile/tc088.stderr +++ b/ghc/tests/typecheck/should_compile/tc088.stderr @@ -1,8 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -_instances_ -instance _forall_ [$a $b] {PrelBase.Eq $b} => {PrelBase.Eq ($a -> $b)} = $dEq0; -instance _forall_ [$a $b] {PrelBase.Num $b} => {PrelBase.Num ($a -> $b)} = $dNum0; -_declarations_ -1 $dEq0 _:_ _forall_ [$a $b] {PrelBase.Eq $b} => {PrelBase.Eq ($a -> $b)} ;; -1 $dNum0 _:_ _forall_ [$a $b] {PrelBase.Num $b, PrelBase.Eq ($a -> $b), PrelBase.Show ($a -> $b)} => {PrelBase.Num ($a -> $b)} ;; +instance __forall [a b] {PrelBase.Eq b} => {PrelBase.Eq (a -> b)} = _gEqmg; +instance __forall [a b] {PrelBase.Num b} => {PrelBase.Num (a -> b)} = _gNummg; +1 _gEqmg :: __forall [a b] {PrelBase.Eq b} => {PrelBase.Eq (a -> b)} ; +1 _gNummg :: __forall [a b] {PrelBase.Num b, PrelBase.Eq (a -> b), PrelBase.Show (a -> b)} => {PrelBase.Num (a -> b)} ; diff --git a/ghc/tests/typecheck/should_compile/tc089.hs b/ghc/tests/typecheck/should_compile/tc089.hs index ff78722..1bbb4ab 100644 --- a/ghc/tests/typecheck/should_compile/tc089.hs +++ b/ghc/tests/typecheck/should_compile/tc089.hs @@ -1,4 +1,4 @@ ---!!! Stress test for type checker +-- !!! Stress test for type checker module ShouldSucceed where diff --git a/ghc/tests/typecheck/should_compile/tc089.stderr b/ghc/tests/typecheck/should_compile/tc089.stderr index 8ef36a6..5e3cf97 100644 --- a/ghc/tests/typecheck/should_compile/tc089.stderr +++ b/ghc/tests/typecheck/should_compile/tc089.stderr @@ -1,38 +1,36 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed absAnd absIf bottom f f_rec f_rec0 f_rec1 f_rec2 fac fac_rec fac_rec0 fac_rec1 fac_rec2 fac_rec3 fac_rec4 g g_rec g_rec0 g_rec1 g_rec2 g_rec3 g_rec4 g_rec5 g_rec6 g_rec7 g_rec8 head one s_1_0 s_2_0 s_2_1 s_3_0 s_3_1 s_3_2; -_declarations_ -1 absAnd _:_ _forall_ [$a] => $a -> $a -> $a ;; -1 absIf _:_ _forall_ [$a $b $c] => $c -> $a -> $b -> $c ;; -1 bottom _:_ _forall_ [$a] => [$a] -> $a ;; -1 f _:_ _forall_ [$a] => $a -> $a ;; -1 f_rec _:_ _forall_ [$a $b] => ($b -> $a) -> $b -> $a ;; -1 f_rec0 _:_ _forall_ [$a] => $a -> $a ;; -1 f_rec1 _:_ _forall_ [$a] => $a -> $a ;; -1 f_rec2 _:_ _forall_ [$a] => $a -> $a ;; -1 fac _:_ _forall_ [$a $b $c $d $e $f $g $h $i $j $k] => ($a, ($i, ($b, ($c, ($d, $e)))), ($j, ($b, ($c, ($d, $e))), ($f, ($c, ($d, $e)), ($g, ($d, $e), ($h, $e, $e))))) -> ($k, ($i, ($b, ($c, ($d, $e))))) -> $a ;; -1 fac_rec _:_ _forall_ [$a $b $c $d $e] => ($d -> $b -> $a) -> ($c, $b, $d) -> ($e, $b) -> $c ;; -1 fac_rec0 _:_ _forall_ [$a] => $a -> $a -> $a ;; -1 fac_rec1 _:_ _forall_ [$a $b $c] => ($a, $b, $b) -> ($c, $b) -> $a ;; -1 fac_rec2 _:_ _forall_ [$a $b $c $d $e] => ($a, ($c, $b), ($d, $b, $b)) -> ($e, ($c, $b)) -> $a ;; -1 fac_rec3 _:_ _forall_ [$a $b $c $d $e $f $g] => ($a, ($e, ($b, $c)), ($f, ($b, $c), ($d, $c, $c))) -> ($g, ($e, ($b, $c))) -> $a ;; -1 fac_rec4 _:_ _forall_ [$a $b $c $d $e $f $g $h $i] => ($a, ($g, ($b, ($c, $d))), ($h, ($b, ($c, $d)), ($e, ($c, $d), ($f, $d, $d)))) -> ($i, ($g, ($b, ($c, $d)))) -> $a ;; -1 g _:_ _forall_ [$a $b $c $d $e $f $g $h $i $j $k $l $m $n $o $p $q $r $s $t $u $v $w $x $y $z $tq $tr $ts $tt $tu $tv $tw $tx $ty $tz $tA $tB $tC $tD $tE $tF $tG $tH $tI $tJ $tK $tL $tM $tN $tO $tP $tQ $tR $tS $tT $tU $tV $tW $tX $tY $tZ $t10 $t11 $t12 $t13 $t14 $t15 $t16 $t17 $t18 $t19 $t1a $t1b $t1c $t1d $t1e $t1f $t1g $t1h $t1i $t1j $t1k $t1l $t1m $t1n $t1o $t1p $t1q $t1r $t1s $t1t $t1u $t1v $t1w $t1x $t1y $t1z $t1A $t1B $t1C $t1D $t1E $t1F $t1G $t1H $t1I $t1J $t1K $t1L $t1M $t1N $t1O $t1P $t1Q $t1R $t1S $t1T $t1U $t1V $t1W $t1X $t1Y $t1Z $t20 $t21 $t22 $t23 $t24 $t25 $t26 $t27 $t28 $t29 $t2a $t2b $t2c $t2d $t2e $t2f $t2g $t2h $t2i $t2j $t2k $t2l $t2m $t2n $t2o $t2p $t2q $t2r $t2s $t2t $t2u $t2v $t2w $t2x $t2y $t2z $t2A $t2B $t2C $t2D $t2E $t2F $t2G $t2H $t2I $t2J $t2K $t2L $t2M $t2N $t2O $t2P $t2Q $t2R $t2S $t2T $t2U $t2V $t2W $t2X $t2Y $t2Z $t30 $t31 $t32 $t33 $t34 $t35 $t36 $t37 $t38 $t39 $t3a $t3b $t3c $t3d $t3e $t3f $t3g $t3h $t3i $t3j $t3k $t3l $t3m $t3n $t3o $t3p $t3q $t3r $t3s $t3t $t3u $t3v $t3w $t3x $t3y $t3z $t3A $t3B $t3C $t3D $t3E $t3F $t3G $t3H $t3I $t3J $t3K $t3L $t3M $t3N $t3O $t3P $t3Q $t3R $t3S $t3T $t3U $t3V $t3W $t3X $t3Y $t3Z $t40 $t41 $t42 $t43 $t44 $t45 $t46 $t47 $t48 $t49 $t4a $t4b $t4c $t4d $t4e $t4f $t4g $t4h $t4i $t4j $t4k $t4l $t4m $t4n $t4o $t4p $t4q $t4r $t4s $t4t $t4u $t4v $t4w $t4x $t4y $t4z $t4A $t4B $t4C $t4D $t4E $t4F $t4G $t4H $t4I $t4J $t4K $t4L $t4M $t4N $t4O $t4P $t4Q $t4R $t4S $t4T $t4U $t4V $t4W $t4X $t4Y $t4Z $t50 $t51 $t52 $t53 $t54 $t55 $t56 $t57 $t58 $t59 $t5a $t5b $t5c $t5d $t5e $t5f $t5g $t5h $t5i $t5j $t5k $t5l $t5m $t5n $t5o $t5p $t5q $t5r $t5s $t5t $t5u $t5v $t5w $t5x $t5y $t5z $t5A $t5B $t5C $t5D $t5E $t5F $t5G $t5H $t5I $t5J $t5K $t5L $t5M $t5N $t5O $t5P $t5Q $t5R $t5S $t5T $t5U $t5V $t5W $t5X $t5Y $t5Z $t60 $t61 $t62 $t63 $t64 $t65 $t66 $t67 $t68 $t69 $t6a $t6b $t6c $t6d $t6e $t6f $t6g $t6h $t6i $t6j $t6k $t6l $t6m $t6n $t6o $t6p $t6q $t6r $t6s $t6t $t6u $t6v $t6w $t6x $t6y $t6z $t6A $t6B $t6C $t6D $t6E $t6F $t6G $t6H $t6I $t6J $t6K $t6L $t6M $t6N $t6O $t6P $t6Q $t6R $t6S $t6T $t6U $t6V $t6W $t6X $t6Y $t6Z $t70 $t71 $t72 $t73 $t74 $t75 $t76 $t77 $t78 $t79 $t7a $t7b $t7c $t7d $t7e $t7f $t7g $t7h $t7i $t7j $t7k $t7l $t7m $t7n $t7o $t7p $t7q $t7r $t7s $t7t $t7u $t7v $t7w $t7x $t7y $t7z $t7A $t7B $t7C $t7D $t7E $t7F $t7G $t7H $t7I $t7J $t7K $t7L $t7M $t7N $t7O $t7P $t7Q $t7R $t7S $t7T $t7U $t7V $t7W $t7X $t7Y $t7Z $t80 $t81 $t82 $t83 $t84 $t85 $t86 $t87 $t88 $t89 $t8a $t8b $t8c $t8d $t8e $t8f $t8g $t8h $t8i $t8j] => $t8j -> $b -> ($t8j, $t4b, $t4a) -> ($a, ($t49, ($c, ($d, ($e, ($f, ($g, ($h, ($i, $j, $j), ($i, $k, $k)), ($h, ($l, $m, $m), ($l, $n, $n))), ($g, ($o, ($p, $q, $q), ($p, $r, $r)), ($o, ($s, $t, $t), ($s, $u, $u)))), ($f, ($v, ($w, ($x, $y, $y), ($x, $z, $z)), ($w, ($tq, $tr, $tr), ($tq, $ts, $ts))), ($v, ($tt, ($tu, $tv, $tv), ($tu, $tw, $tw)), ($tt, ($tx, $ty, $ty), ($tx, $tz, $tz))))), ($e, ($tA, ($tB, ($tC, ($tD, $tE, $tE), ($tD, $tF, $tF)), ($tC, ($tG, $tH, $tH), ($tG, $tI, $tI))), ($tB, ($tJ, ($tK, $tL, $tL), ($tK, $tM, $tM)), ($tJ, ($tN, $tO, $tO), ($tN, $tP, $tP)))), ($tA, ($tQ, ($tR, ($tS, $tT, $tT), ($tS, $tU, $tU)), ($tR, ($tV, $tW, $tW), ($tV, $tX, $tX))), ($tQ, ($tY, ($tZ, $t10, $t10), ($tZ, $t11, $t11)), ($tY, ($t12, $t13, $t13), ($t12, $t14, $t14)))))), ($d, ($t15, ($t16, ($t17, ($t18, ($t19, $t1a, $t1a), ($t19, $t1b, $t1b)), ($t18, ($t1c, $t1d, $t1d), ($t1c, $t1e, $t1e))), ($t17, ($t1f, ($t1g, $t1h, $t1h), ($t1g, $t1i, $t1i)), ($t1f, ($t1j, $t1k, $t1k), ($t1j, $t1l, $t1l)))), ($t16, ($t1m, ($t1n, ($t1o, $t1p, $t1p), ($t1o, $t1q, $t1q)), ($t1n, ($t1r, $t1s, $t1s), ($t1r, $t1t, $t1t))), ($t1m, ($t1u, ($t1v, $t1w, $t1w), ($t1v, $t1x, $t1x)), ($t1u, ($t1y, $t1z, $t1z), ($t1y, $t1A, $t1A))))), ($t15, ($t1B, ($t1C, ($t1D, ($t1E, $t1F, $t1F), ($t1E, $t1G, $t1G)), ($t1D, ($t1H, $t1I, $t1I), ($t1H, $t1J, $t1J))), ($t1C, ($t1K, ($t1L, $t1M, $t1M), ($t1L, $t1N, $t1N)), ($t1K, ($t1O, $t1P, $t1P), ($t1O, $t1Q, $t1Q)))), ($t1B, ($t1R, ($t1S, ($t1T, $t1U, $t1U), ($t1T, $t1V, $t1V)), ($t1S, ($t1W, $t1X, $t1X), ($t1W, $t1Y, $t1Y))), ($t1R, ($t1Z, ($t20, $t21, $t21), ($t20, $t22, $t22)), ($t1Z, ($t23, $t24, $t24), ($t23, $t25, $t25))))))), ($c, ($t26, ($t27, ($t28, ($t29, ($t2a, ($t2b, $t2c, $t2c), ($t2b, $t2d, $t2d)), ($t2a, ($t2e, $t2f, $t2f), ($t2e, $t2g, $t2g))), ($t29, ($t2h, ($t2i, $t2j, $t2j), ($t2i, $t2k, $t2k)), ($t2h, ($t2l, $t2m, $t2m), ($t2l, $t2n, $t2n)))), ($t28, ($t2o, ($t2p, ($t2q, $t2r, $t2r), ($t2q, $t2s, $t2s)), ($t2p, ($t2t, $t2u, $t2u), ($t2t, $t2v, $t2v))), ($t2o, ($t2w, ($t2x, $t2y, $t2y), ($t2x, $t2z, $t2z)), ($t2w, ($t2A, $t2B, $t2B), ($t2A, $t2C, $t2C))))), ($t27, ($t2D, ($t2E, ($t2F, ($t2G, $t2H, $t2H), ($t2G, $t2I, $t2I)), ($t2F, ($t2J, $t2K, $t2K), ($t2J, $t2L, $t2L))), ($t2E, ($t2M, ($t2N, $t2O, $t2O), ($t2N, $t2P, $t2P)), ($t2M, ($t2Q, $t2R, $t2R), ($t2Q, $t2S, $t2S)))), ($t2D, ($t2T, ($t2U, ($t2V, $t2W, $t2W), ($t2V, $t2X, $t2X)), ($t2U, ($t2Y, $t2Z, $t2Z), ($t2Y, $t30, $t30))), ($t2T, ($t31, ($t32, $t33, $t33), ($t32, $t34, $t34)), ($t31, ($t35, $t36, $t36), ($t35, $t37, $t37)))))), ($t26, ($t38, ($t39, ($t3a, ($t3b, ($t3c, $t3d, $t3d), ($t3c, $t3e, $t3e)), ($t3b, ($t3f, $t3g, $t3g), ($t3f, $t3h, $t3h))), ($t3a, ($t3i, ($t3j, $t3k, $t3k), ($t3j, $t3l, $t3l)), ($t3i, ($t3m, $t3n, $t3n), ($t3m, $t3o, $t3o)))), ($t39, ($t3p, ($t3q, ($t3r, $t3s, $t3s), ($t3r, $t3t, $t3t)), ($t3q, ($t3u, $t3v, $t3v), ($t3u, $t3w, $t3w))), ($t3p, ($t3x, ($t3y, $t3z, $t3z), ($t3y, $t3A, $t3A)), ($t3x, ($t3B, $t3C, $t3C), ($t3B, $t3D, $t3D))))), ($t38, ($t3E, ($t3F, ($t3G, ($t3H, $t3I, $t3I), ($t3H, $t3J, $t3J)), ($t3G, ($t3K, $t3L, $t3L), ($t3K, $t3M, $t3M))), ($t3F, ($t3N, ($t3O, $t3P, $t3P), ($t3O, $t3Q, $t3Q)), ($t3N, ($t3R, $t3S, $t3S), ($t3R, $t3T, $t3T)))), ($t3E, ($t3U, ($t3V, ($t3W, $t3X, $t3X), ($t3W, $t3Y, $t3Y)), ($t3V, ($t3Z, $t40, $t40), ($t3Z, $t41, $t41))), ($t3U, ($t42, ($t43, $t44, $t44), ($t43, $t45, $t45)), ($t42, ($t46, $t47, $t47), ($t46, $t48, $t48)))))))), ($t49, ($t4c, ($t4d, ($t4e, ($t4f, ($t4g, ($t4h, ($t4i, $t4j, $t4j), ($t4i, $t4k, $t4k)), ($t4h, ($t4l, $t4m, $t4m), ($t4l, $t4n, $t4n))), ($t4g, ($t4o, ($t4p, $t4q, $t4q), ($t4p, $t4r, $t4r)), ($t4o, ($t4s, $t4t, $t4t), ($t4s, $t4u, $t4u)))), ($t4f, ($t4v, ($t4w, ($t4x, $t4y, $t4y), ($t4x, $t4z, $t4z)), ($t4w, ($t4A, $t4B, $t4B), ($t4A, $t4C, $t4C))), ($t4v, ($t4D, ($t4E, $t4F, $t4F), ($t4E, $t4G, $t4G)), ($t4D, ($t4H, $t4I, $t4I), ($t4H, $t4J, $t4J))))), ($t4e, ($t4K, ($t4L, ($t4M, ($t4N, $t4O, $t4O), ($t4N, $t4P, $t4P)), ($t4M, ($t4Q, $t4R, $t4R), ($t4Q, $t4S, $t4S))), ($t4L, ($t4T, ($t4U, $t4V, $t4V), ($t4U, $t4W, $t4W)), ($t4T, ($t4X, $t4Y, $t4Y), ($t4X, $t4Z, $t4Z)))), ($t4K, ($t50, ($t51, ($t52, $t53, $t53), ($t52, $t54, $t54)), ($t51, ($t55, $t56, $t56), ($t55, $t57, $t57))), ($t50, ($t58, ($t59, $t5a, $t5a), ($t59, $t5b, $t5b)), ($t58, ($t5c, $t5d, $t5d), ($t5c, $t5e, $t5e)))))), ($t4d, ($t5f, ($t5g, ($t5h, ($t5i, ($t5j, $t5k, $t5k), ($t5j, $t5l, $t5l)), ($t5i, ($t5m, $t5n, $t5n), ($t5m, $t5o, $t5o))), ($t5h, ($t5p, ($t5q, $t5r, $t5r), ($t5q, $t5s, $t5s)), ($t5p, ($t5t, $t5u, $t5u), ($t5t, $t5v, $t5v)))), ($t5g, ($t5w, ($t5x, ($t5y, $t5z, $t5z), ($t5y, $t5A, $t5A)), ($t5x, ($t5B, $t5C, $t5C), ($t5B, $t5D, $t5D))), ($t5w, ($t5E, ($t5F, $t5G, $t5G), ($t5F, $t5H, $t5H)), ($t5E, ($t5I, $t5J, $t5J), ($t5I, $t5K, $t5K))))), ($t5f, ($t5L, ($t5M, ($t5N, ($t5O, $t5P, $t5P), ($t5O, $t5Q, $t5Q)), ($t5N, ($t5R, $t5S, $t5S), ($t5R, $t5T, $t5T))), ($t5M, ($t5U, ($t5V, $t5W, $t5W), ($t5V, $t5X, $t5X)), ($t5U, ($t5Y, $t5Z, $t5Z), ($t5Y, $t60, $t60)))), ($t5L, ($t61, ($t62, ($t63, $t64, $t64), ($t63, $t65, $t65)), ($t62, ($t66, $t67, $t67), ($t66, $t68, $t68))), ($t61, ($t69, ($t6a, $t6b, $t6b), ($t6a, $t6c, $t6c)), ($t69, ($t6d, $t6e, $t6e), ($t6d, $t6f, $t6f))))))), ($t4c, ($t6g, ($t6h, ($t6i, ($t6j, ($t6k, ($t6l, $t6m, $t6m), ($t6l, $t6n, $t6n)), ($t6k, ($t6o, $t6p, $t6p), ($t6o, $t6q, $t6q))), ($t6j, ($t6r, ($t6s, $t6t, $t6t), ($t6s, $t6u, $t6u)), ($t6r, ($t6v, $t6w, $t6w), ($t6v, $t6x, $t6x)))), ($t6i, ($t6y, ($t6z, ($t6A, $t6B, $t6B), ($t6A, $t6C, $t6C)), ($t6z, ($t6D, $t6E, $t6E), ($t6D, $t6F, $t6F))), ($t6y, ($t6G, ($t6H, $t6I, $t6I), ($t6H, $t6J, $t6J)), ($t6G, ($t6K, $t6L, $t6L), ($t6K, $t6M, $t6M))))), ($t6h, ($t6N, ($t6O, ($t6P, ($t6Q, $t6R, $t6R), ($t6Q, $t6S, $t6S)), ($t6P, ($t6T, $t6U, $t6U), ($t6T, $t6V, $t6V))), ($t6O, ($t6W, ($t6X, $t6Y, $t6Y), ($t6X, $t6Z, $t6Z)), ($t6W, ($t70, $t71, $t71), ($t70, $t72, $t72)))), ($t6N, ($t73, ($t74, ($t75, $t76, $t76), ($t75, $t77, $t77)), ($t74, ($t78, $t79, $t79), ($t78, $t7a, $t7a))), ($t73, ($t7b, ($t7c, $t7d, $t7d), ($t7c, $t7e, $t7e)), ($t7b, ($t7f, $t7g, $t7g), ($t7f, $t7h, $t7h)))))), ($t6g, ($t7i, ($t7j, ($t7k, ($t7l, ($t7m, $t7n, $t7n), ($t7m, $t7o, $t7o)), ($t7l, ($t7p, $t7q, $t7q), ($t7p, $t7r, $t7r))), ($t7k, ($t7s, ($t7t, $t7u, $t7u), ($t7t, $t7v, $t7v)), ($t7s, ($t7w, $t7x, $t7x), ($t7w, $t7y, $t7y)))), ($t7j, ($t7z, ($t7A, ($t7B, $t7C, $t7C), ($t7B, $t7D, $t7D)), ($t7A, ($t7E, $t7F, $t7F), ($t7E, $t7G, $t7G))), ($t7z, ($t7H, ($t7I, $t7J, $t7J), ($t7I, $t7K, $t7K)), ($t7H, ($t7L, $t7M, $t7M), ($t7L, $t7N, $t7N))))), ($t7i, ($t7O, ($t7P, ($t7Q, ($t7R, $t7S, $t7S), ($t7R, $t7T, $t7T)), ($t7Q, ($t7U, $t7V, $t7V), ($t7U, $t7W, $t7W))), ($t7P, ($t7X, ($t7Y, $t7Z, $t7Z), ($t7Y, $t80, $t80)), ($t7X, ($t81, $t82, $t82), ($t81, $t83, $t83)))), ($t7O, ($t84, ($t85, ($t86, $t87, $t87), ($t86, $t88, $t88)), ($t85, ($t89, $t8a, $t8a), ($t89, $t8b, $t8b))), ($t84, ($t8c, ($t8d, $t8e, $t8e), ($t8d, $t8f, $t8f)), ($t8c, ($t8g, $t8h, $t8h), ($t8g, $t8i, $t8i))))))))) -> $a ;; -1 g_rec _:_ _forall_ [$a $b $c $d $e $f $g $h $i $j $k] => ($b -> $c -> $d -> $k -> $a) -> ($g -> $e -> $h -> $i -> $a) -> $f -> $b -> ($f, $e, $g) -> ($j, $k, $i) -> $j ;; -1 g_rec0 _:_ _forall_ [$a] => $a -> $a -> $a -> $a -> $a ;; -1 g_rec1 _:_ _forall_ [$a $b $c] => $c -> $b -> ($c, $b, $b) -> ($a, $b, $b) -> $a ;; -1 g_rec2 _:_ _forall_ [$a $b $c $d $e $f $g] => $g -> $b -> ($g, $f, $e) -> ($a, ($d, $c, $c), ($d, $f, $f)) -> $a ;; -1 g_rec3 _:_ _forall_ [$a $b $c $d $e $f $g $h $i $j $k $l] => $l -> $b -> ($l, $h, $g) -> ($a, ($f, ($d, $e, $e), ($d, $c, $c)), ($f, ($j, $k, $k), ($j, $i, $i))) -> $a ;; -1 g_rec4 _:_ _forall_ [$a $b $c $d $e $f $g $h $i $j $k $l $m $n $o $p $q $r $s $t] => $t -> $b -> ($t, $l, $k) -> ($a, ($j, ($c, ($d, $e, $e), ($d, $f, $f)), ($c, ($g, $h, $h), ($g, $i, $i))), ($j, ($m, ($n, $o, $o), ($n, $p, $p)), ($m, ($q, $r, $r), ($q, $s, $s)))) -> $a ;; -1 g_rec5 _:_ _forall_ [$a $b $c $d $e $f $g $h $i $j $k $l $m $n $o $p $q $r $s $t $u $v $w $x $y $z $tq $tr $ts $tt $tu $tv $tw $tx $ty $tz] => $tz -> $b -> ($tz, $t, $s) -> ($a, ($r, ($c, ($d, ($e, $f, $f), ($e, $g, $g)), ($d, ($h, $i, $i), ($h, $j, $j))), ($c, ($k, ($l, $m, $m), ($l, $n, $n)), ($k, ($o, $p, $p), ($o, $q, $q)))), ($r, ($u, ($v, ($w, $x, $x), ($w, $y, $y)), ($v, ($z, $tq, $tq), ($z, $tr, $tr))), ($u, ($ts, ($tt, $tu, $tu), ($tt, $tv, $tv)), ($ts, ($tw, $tx, $tx), ($tw, $ty, $ty))))) -> $a ;; -1 g_rec6 _:_ _forall_ [$a $b $c $d $e $f $g $h $i $j $k $l $m $n $o $p $q $r $s $t $u $v $w $x $y $z $tq $tr $ts $tt $tu $tv $tw $tx $ty $tz $tA $tB $tC $tD $tE $tF $tG $tH $tI $tJ $tK $tL $tM $tN $tO $tP $tQ $tR $tS $tT $tU $tV $tW $tX $tY $tZ $t10 $t11 $t12 $t13 $t14 $t15] => $t15 -> $b -> ($t15, $tz, $ty) -> ($a, ($tx, ($c, ($d, ($e, ($f, $g, $g), ($f, $h, $h)), ($e, ($i, $j, $j), ($i, $k, $k))), ($d, ($l, ($m, $n, $n), ($m, $o, $o)), ($l, ($p, $q, $q), ($p, $r, $r)))), ($c, ($s, ($t, ($u, $v, $v), ($u, $w, $w)), ($t, ($x, $y, $y), ($x, $z, $z))), ($s, ($tq, ($tr, $ts, $ts), ($tr, $tt, $tt)), ($tq, ($tu, $tv, $tv), ($tu, $tw, $tw))))), ($tx, ($tA, ($tB, ($tC, ($tD, $tE, $tE), ($tD, $tF, $tF)), ($tC, ($tG, $tH, $tH), ($tG, $tI, $tI))), ($tB, ($tJ, ($tK, $tL, $tL), ($tK, $tM, $tM)), ($tJ, ($tN, $tO, $tO), ($tN, $tP, $tP)))), ($tA, ($tQ, ($tR, ($tS, $tT, $tT), ($tS, $tU, $tU)), ($tR, ($tV, $tW, $tW), ($tV, $tX, $tX))), ($tQ, ($tY, ($tZ, $t10, $t10), ($tZ, $t11, $t11)), ($tY, ($t12, $t13, $t13), ($t12, $t14, $t14)))))) -> $a ;; -1 g_rec7 _:_ _forall_ [$a $b $c $d $e $f $g $h $i $j $k $l $m $n $o $p $q $r $s $t $u $v $w $x $y $z $tq $tr $ts $tt $tu $tv $tw $tx $ty $tz $tA $tB $tC $tD $tE $tF $tG $tH $tI $tJ $tK $tL $tM $tN $tO $tP $tQ $tR $tS $tT $tU $tV $tW $tX $tY $tZ $t10 $t11 $t12 $t13 $t14 $t15 $t16 $t17 $t18 $t19 $t1a $t1b $t1c $t1d $t1e $t1f $t1g $t1h $t1i $t1j $t1k $t1l $t1m $t1n $t1o $t1p $t1q $t1r $t1s $t1t $t1u $t1v $t1w $t1x $t1y $t1z $t1A $t1B $t1C $t1D $t1E $t1F $t1G $t1H $t1I $t1J $t1K $t1L $t1M $t1N $t1O $t1P $t1Q $t1R $t1S $t1T $t1U $t1V $t1W $t1X $t1Y $t1Z $t20 $t21 $t22 $t23 $t24 $t25 $t26 $t27] => $t27 -> $b -> ($t27, $t15, $t14) -> ($a, ($t13, ($c, ($d, ($e, ($f, ($g, $h, $h), ($g, $i, $i)), ($f, ($j, $k, $k), ($j, $l, $l))), ($e, ($m, ($n, $o, $o), ($n, $p, $p)), ($m, ($q, $r, $r), ($q, $s, $s)))), ($d, ($t, ($u, ($v, $w, $w), ($v, $x, $x)), ($u, ($y, $z, $z), ($y, $tq, $tq))), ($t, ($tr, ($ts, $tt, $tt), ($ts, $tu, $tu)), ($tr, ($tv, $tw, $tw), ($tv, $tx, $tx))))), ($c, ($ty, ($tz, ($tA, ($tB, $tC, $tC), ($tB, $tD, $tD)), ($tA, ($tE, $tF, $tF), ($tE, $tG, $tG))), ($tz, ($tH, ($tI, $tJ, $tJ), ($tI, $tK, $tK)), ($tH, ($tL, $tM, $tM), ($tL, $tN, $tN)))), ($ty, ($tO, ($tP, ($tQ, $tR, $tR), ($tQ, $tS, $tS)), ($tP, ($tT, $tU, $tU), ($tT, $tV, $tV))), ($tO, ($tW, ($tX, $tY, $tY), ($tX, $tZ, $tZ)), ($tW, ($t10, $t11, $t11), ($t10, $t12, $t12)))))), ($t13, ($t16, ($t17, ($t18, ($t19, ($t1a, $t1b, $t1b), ($t1a, $t1c, $t1c)), ($t19, ($t1d, $t1e, $t1e), ($t1d, $t1f, $t1f))), ($t18, ($t1g, ($t1h, $t1i, $t1i), ($t1h, $t1j, $t1j)), ($t1g, ($t1k, $t1l, $t1l), ($t1k, $t1m, $t1m)))), ($t17, ($t1n, ($t1o, ($t1p, $t1q, $t1q), ($t1p, $t1r, $t1r)), ($t1o, ($t1s, $t1t, $t1t), ($t1s, $t1u, $t1u))), ($t1n, ($t1v, ($t1w, $t1x, $t1x), ($t1w, $t1y, $t1y)), ($t1v, ($t1z, $t1A, $t1A), ($t1z, $t1B, $t1B))))), ($t16, ($t1C, ($t1D, ($t1E, ($t1F, $t1G, $t1G), ($t1F, $t1H, $t1H)), ($t1E, ($t1I, $t1J, $t1J), ($t1I, $t1K, $t1K))), ($t1D, ($t1L, ($t1M, $t1N, $t1N), ($t1M, $t1O, $t1O)), ($t1L, ($t1P, $t1Q, $t1Q), ($t1P, $t1R, $t1R)))), ($t1C, ($t1S, ($t1T, ($t1U, $t1V, $t1V), ($t1U, $t1W, $t1W)), ($t1T, ($t1X, $t1Y, $t1Y), ($t1X, $t1Z, $t1Z))), ($t1S, ($t20, ($t21, $t22, $t22), ($t21, $t23, $t23)), ($t20, ($t24, $t25, $t25), ($t24, $t26, $t26))))))) -> $a ;; -1 g_rec8 _:_ _forall_ [$a $b $c $d $e $f $g $h $i $j $k $l $m $n $o $p $q $r $s $t $u $v $w $x $y $z $tq $tr $ts $tt $tu $tv $tw $tx $ty $tz $tA $tB $tC $tD $tE $tF $tG $tH $tI $tJ $tK $tL $tM $tN $tO $tP $tQ $tR $tS $tT $tU $tV $tW $tX $tY $tZ $t10 $t11 $t12 $t13 $t14 $t15 $t16 $t17 $t18 $t19 $t1a $t1b $t1c $t1d $t1e $t1f $t1g $t1h $t1i $t1j $t1k $t1l $t1m $t1n $t1o $t1p $t1q $t1r $t1s $t1t $t1u $t1v $t1w $t1x $t1y $t1z $t1A $t1B $t1C $t1D $t1E $t1F $t1G $t1H $t1I $t1J $t1K $t1L $t1M $t1N $t1O $t1P $t1Q $t1R $t1S $t1T $t1U $t1V $t1W $t1X $t1Y $t1Z $t20 $t21 $t22 $t23 $t24 $t25 $t26 $t27 $t28 $t29 $t2a $t2b $t2c $t2d $t2e $t2f $t2g $t2h $t2i $t2j $t2k $t2l $t2m $t2n $t2o $t2p $t2q $t2r $t2s $t2t $t2u $t2v $t2w $t2x $t2y $t2z $t2A $t2B $t2C $t2D $t2E $t2F $t2G $t2H $t2I $t2J $t2K $t2L $t2M $t2N $t2O $t2P $t2Q $t2R $t2S $t2T $t2U $t2V $t2W $t2X $t2Y $t2Z $t30 $t31 $t32 $t33 $t34 $t35 $t36 $t37 $t38 $t39 $t3a $t3b $t3c $t3d $t3e $t3f $t3g $t3h $t3i $t3j $t3k $t3l $t3m $t3n $t3o $t3p $t3q $t3r $t3s $t3t $t3u $t3v $t3w $t3x $t3y $t3z $t3A $t3B $t3C $t3D $t3E $t3F $t3G $t3H $t3I $t3J $t3K $t3L $t3M $t3N $t3O $t3P $t3Q $t3R $t3S $t3T $t3U $t3V $t3W $t3X $t3Y $t3Z $t40 $t41 $t42 $t43 $t44 $t45 $t46 $t47 $t48 $t49 $t4a $t4b] => $t4b -> $b -> ($t4b, $t27, $t26) -> ($a, ($t25, ($c, ($d, ($e, ($f, ($g, ($h, $i, $i), ($h, $j, $j)), ($g, ($k, $l, $l), ($k, $m, $m))), ($f, ($n, ($o, $p, $p), ($o, $q, $q)), ($n, ($r, $s, $s), ($r, $t, $t)))), ($e, ($u, ($v, ($w, $x, $x), ($w, $y, $y)), ($v, ($z, $tq, $tq), ($z, $tr, $tr))), ($u, ($ts, ($tt, $tu, $tu), ($tt, $tv, $tv)), ($ts, ($tw, $tx, $tx), ($tw, $ty, $ty))))), ($d, ($tz, ($tA, ($tB, ($tC, $tD, $tD), ($tC, $tE, $tE)), ($tB, ($tF, $tG, $tG), ($tF, $tH, $tH))), ($tA, ($tI, ($tJ, $tK, $tK), ($tJ, $tL, $tL)), ($tI, ($tM, $tN, $tN), ($tM, $tO, $tO)))), ($tz, ($tP, ($tQ, ($tR, $tS, $tS), ($tR, $tT, $tT)), ($tQ, ($tU, $tV, $tV), ($tU, $tW, $tW))), ($tP, ($tX, ($tY, $tZ, $tZ), ($tY, $t10, $t10)), ($tX, ($t11, $t12, $t12), ($t11, $t13, $t13)))))), ($c, ($t14, ($t15, ($t16, ($t17, ($t18, $t19, $t19), ($t18, $t1a, $t1a)), ($t17, ($t1b, $t1c, $t1c), ($t1b, $t1d, $t1d))), ($t16, ($t1e, ($t1f, $t1g, $t1g), ($t1f, $t1h, $t1h)), ($t1e, ($t1i, $t1j, $t1j), ($t1i, $t1k, $t1k)))), ($t15, ($t1l, ($t1m, ($t1n, $t1o, $t1o), ($t1n, $t1p, $t1p)), ($t1m, ($t1q, $t1r, $t1r), ($t1q, $t1s, $t1s))), ($t1l, ($t1t, ($t1u, $t1v, $t1v), ($t1u, $t1w, $t1w)), ($t1t, ($t1x, $t1y, $t1y), ($t1x, $t1z, $t1z))))), ($t14, ($t1A, ($t1B, ($t1C, ($t1D, $t1E, $t1E), ($t1D, $t1F, $t1F)), ($t1C, ($t1G, $t1H, $t1H), ($t1G, $t1I, $t1I))), ($t1B, ($t1J, ($t1K, $t1L, $t1L), ($t1K, $t1M, $t1M)), ($t1J, ($t1N, $t1O, $t1O), ($t1N, $t1P, $t1P)))), ($t1A, ($t1Q, ($t1R, ($t1S, $t1T, $t1T), ($t1S, $t1U, $t1U)), ($t1R, ($t1V, $t1W, $t1W), ($t1V, $t1X, $t1X))), ($t1Q, ($t1Y, ($t1Z, $t20, $t20), ($t1Z, $t21, $t21)), ($t1Y, ($t22, $t23, $t23), ($t22, $t24, $t24))))))), ($t25, ($t28, ($t29, ($t2a, ($t2b, ($t2c, ($t2d, $t2e, $t2e), ($t2d, $t2f, $t2f)), ($t2c, ($t2g, $t2h, $t2h), ($t2g, $t2i, $t2i))), ($t2b, ($t2j, ($t2k, $t2l, $t2l), ($t2k, $t2m, $t2m)), ($t2j, ($t2n, $t2o, $t2o), ($t2n, $t2p, $t2p)))), ($t2a, ($t2q, ($t2r, ($t2s, $t2t, $t2t), ($t2s, $t2u, $t2u)), ($t2r, ($t2v, $t2w, $t2w), ($t2v, $t2x, $t2x))), ($t2q, ($t2y, ($t2z, $t2A, $t2A), ($t2z, $t2B, $t2B)), ($t2y, ($t2C, $t2D, $t2D), ($t2C, $t2E, $t2E))))), ($t29, ($t2F, ($t2G, ($t2H, ($t2I, $t2J, $t2J), ($t2I, $t2K, $t2K)), ($t2H, ($t2L, $t2M, $t2M), ($t2L, $t2N, $t2N))), ($t2G, ($t2O, ($t2P, $t2Q, $t2Q), ($t2P, $t2R, $t2R)), ($t2O, ($t2S, $t2T, $t2T), ($t2S, $t2U, $t2U)))), ($t2F, ($t2V, ($t2W, ($t2X, $t2Y, $t2Y), ($t2X, $t2Z, $t2Z)), ($t2W, ($t30, $t31, $t31), ($t30, $t32, $t32))), ($t2V, ($t33, ($t34, $t35, $t35), ($t34, $t36, $t36)), ($t33, ($t37, $t38, $t38), ($t37, $t39, $t39)))))), ($t28, ($t3a, ($t3b, ($t3c, ($t3d, ($t3e, $t3f, $t3f), ($t3e, $t3g, $t3g)), ($t3d, ($t3h, $t3i, $t3i), ($t3h, $t3j, $t3j))), ($t3c, ($t3k, ($t3l, $t3m, $t3m), ($t3l, $t3n, $t3n)), ($t3k, ($t3o, $t3p, $t3p), ($t3o, $t3q, $t3q)))), ($t3b, ($t3r, ($t3s, ($t3t, $t3u, $t3u), ($t3t, $t3v, $t3v)), ($t3s, ($t3w, $t3x, $t3x), ($t3w, $t3y, $t3y))), ($t3r, ($t3z, ($t3A, $t3B, $t3B), ($t3A, $t3C, $t3C)), ($t3z, ($t3D, $t3E, $t3E), ($t3D, $t3F, $t3F))))), ($t3a, ($t3G, ($t3H, ($t3I, ($t3J, $t3K, $t3K), ($t3J, $t3L, $t3L)), ($t3I, ($t3M, $t3N, $t3N), ($t3M, $t3O, $t3O))), ($t3H, ($t3P, ($t3Q, $t3R, $t3R), ($t3Q, $t3S, $t3S)), ($t3P, ($t3T, $t3U, $t3U), ($t3T, $t3V, $t3V)))), ($t3G, ($t3W, ($t3X, ($t3Y, $t3Z, $t3Z), ($t3Y, $t40, $t40)), ($t3X, ($t41, $t42, $t42), ($t41, $t43, $t43))), ($t3W, ($t44, ($t45, $t46, $t46), ($t45, $t47, $t47)), ($t44, ($t48, $t49, $t49), ($t48, $t4a, $t4a)))))))) -> $a ;; -1 head _:_ _forall_ [$a] => [$a] -> $a ;; -1 one _:_ _forall_ [$a] => $a ;; -1 s_1_0 _:_ _forall_ [$a] => $a -> $a ;; -1 s_2_0 _:_ _forall_ [$a $b] => ($a, $b) -> $a ;; -1 s_2_1 _:_ _forall_ [$a $b] => ($a, $b) -> $b ;; -1 s_3_0 _:_ _forall_ [$a $b $c] => ($a, $b, $c) -> $a ;; -1 s_3_1 _:_ _forall_ [$a $b $c] => ($a, $b, $c) -> $b ;; -1 s_3_2 _:_ _forall_ [$a $b $c] => ($a, $b, $c) -> $c ;; +__export ShouldSucceed absAnd absIf bottom f f_rec f_rec0 f_rec1 f_rec2 fac fac_rec fac_rec0 fac_rec1 fac_rec2 fac_rec3 fac_rec4 g g_rec g_rec0 g_rec1 g_rec2 g_rec3 g_rec4 g_rec5 g_rec6 g_rec7 g_rec8 head one s_1_0 s_2_0 s_2_1 s_3_0 s_3_1 s_3_2; +1 absAnd :: __forall [t] => t -> t -> t ; +1 absIf :: __forall [t _116 _1161] => _116 -> t -> _1161 -> _116 ; +1 bottom :: __forall [t] => [t] -> t ; +1 f :: __forall [t] => t -> t ; +1 f_rec :: __forall [t _116] => (_116 -> t) -> _116 -> t ; +1 f_rec0 :: __forall [t] => t -> t ; +1 f_rec1 :: __forall [t] => t -> t ; +1 f_rec2 :: __forall [t] => t -> t ; +1 fac :: __forall [t _116 _1161 _1162 _1163 _1164 _1165 _1166 _1167 _1168 _1169] => (t, (_1167, (_116, (_1161, (_1162, _1163)))), (_1168, (_116, (_1161, (_1162, _1163))), (_1164, (_1161, (_1162, _1163)), (_1165, (_1162, _1163), (_1166, _1163, _1163))))) -> (_1169, (_1167, (_116, (_1161, (_1162, _1163))))) -> t ; +1 fac_rec :: __forall [t _116 _1161 _1162 _1163] => (_1162 -> t -> _116) -> (_1161, t, _1162) -> (_1163, t) -> _1161 ; +1 fac_rec0 :: __forall [t] => t -> t -> t ; +1 fac_rec1 :: __forall [t _116 _1161] => (t, _116, _116) -> (_1161, _116) -> t ; +1 fac_rec2 :: __forall [t _116 _1161 _1162 _1163] => (t, (_1161, _116), (_1162, _116, _116)) -> (_1163, (_1161, _116)) -> t ; +1 fac_rec3 :: __forall [t _116 _1161 _1162 _1163 _1164 _1165] => (t, (_1163, (_116, _1161)), (_1164, (_116, _1161), (_1162, _1161, _1161))) -> (_1165, (_1163, (_116, _1161))) -> t ; +1 fac_rec4 :: __forall [t _116 _1161 _1162 _1163 _1164 _1165 _1166 _1167] => (t, (_1165, (_116, (_1161, _1162))), (_1166, (_116, (_1161, _1162)), (_1163, (_1161, _1162), (_1164, _1162, _1162)))) -> (_1167, (_1165, (_116, (_1161, _1162)))) -> t ; +1 g :: __forall [t _116 _1161 _1162 _1163 _1164 _1165 _1166 _1167 _1168 _1169 _11610 _11611 _11612 _11613 _11614 _11615 _11616 _11617 _11618 _11619 _11620 _11621 _11622 _11623 _11624 _11625 _11626 _11627 _11628 _11629 _11630 _11631 _11632 _11633 _11634 _11635 _11636 _11637 _11638 _11639 _11640 _11641 _11642 _11643 _11644 _11645 _11646 _11647 _11648 _11649 _11650 _11651 _11652 _11653 _11654 _11655 _11656 _11657 _11658 _11659 _11660 _11661 _11662 _11663 _11664 _11665 _11666 _11667 _11668 _11669 _11670 _11671 _11672 _11673 _11674 _11675 _11676 _11677 _11678 _11679 _11680 _11681 _11682 _11683 _11684 _11685 _11686 _11687 _11688 _11689 _11690 _11691 _11692 _11693 _11694 _11695 _11696 _11697 _11698 _11699 _116100 _116101 _116102 _116103 _116104 _116105 _116106 _116107 _116108 _116109 _116110 _116111 _116112 _116113 _116114 _116115 _116116 _116117 _116118 _116119 _116120 _116121 _116122 _116123 _116124 _116125 _116126 _116127 _116128 _116129 _116130 _116131 _116132 _116133 _116134 _116135 _116136 _116137 _116138 _116139 _116140 _116141 _116142 _116143 _116144 _116145 _116146 _116147 _116148 _116149 _116150 _116151 _116152 _116153 _116154 _116155 _116156 _116157 _116158 _116159 _116160 _116161 _116162 _116163 _116164 _116165 _116166 _116167 _116168 _116169 _116170 _116171 _116172 _116173 _116174 _116175 _116176 _116177 _116178 _116179 _116180 _116181 _116182 _116183 _116184 _116185 _116186 _116187 _116188 _116189 _116190 _116191 _116192 _116193 _116194 _116195 _116196 _116197 _116198 _116199 _116200 _116201 _116202 _116203 _116204 _116205 _116206 _116207 _116208 _116209 _116210 _116211 _116212 _116213 _116214 _116215 _116216 _116217 _116218 _116219 _116220 _116221 _116222 _116223 _116224 _116225 _116226 _116227 _116228 _116229 _116230 _116231 _116232 _116233 _116234 _116235 _116236 _116237 _116238 _116239 _116240 _116241 _116242 _116243 _116244 _116245 _116246 _116247 _116248 _116249 _116250 _116251 _116252 _116253 _116254 _116255 _116256 _116257 _116258 _116259 _116260 _116261 _116262 _116263 _116264 _116265 _116266 _116267 _116268 _116269 _116270 _116271 _116272 _116273 _116274 _116275 _116276 _116277 _116278 _116279 _116280 _116281 _116282 _116283 _116284 _116285 _116286 _116287 _116288 _116289 _116290 _116291 _116292 _116293 _116294 _116295 _116296 _116297 _116298 _116299 _116300 _116301 _116302 _116303 _116304 _116305 _116306 _116307 _116308 _116309 _116310 _116311 _116312 _116313 _116314 _116315 _116316 _116317 _116318 _116319 _116320 _116321 _116322 _116323 _116324 _116325 _116326 _116327 _116328 _116329 _116330 _116331 _116332 _116333 _116334 _116335 _116336 _116337 _116338 _116339 _116340 _116341 _116342 _116343 _116344 _116345 _116346 _116347 _116348 _116349 _116350 _116351 _116352 _116353 _116354 _116355 _116356 _116357 _116358 _116359 _116360 _116361 _116362 _116363 _116364 _116365 _116366 _116367 _116368 _116369 _116370 _116371 _116372 _116373 _116374 _116375 _116376 _116377 _116378 _116379 _116380 _116381 _116382 _116383 _116384 _116385 _116386 _116387 _116388 _116389 _116390 _116391 _116392 _116393 _116394 _116395 _116396 _116397 _116398 _116399 _116400 _116401 _116402 _116403 _116404 _116405 _116406 _116407 _116408 _116409 _116410 _116411 _116412 _116413 _116414 _116415 _116416 _116417 _116418 _116419 _116420 _116421 _116422 _116423 _116424 _116425 _116426 _116427 _116428 _116429 _116430 _116431 _116432 _116433 _116434 _116435 _116436 _116437 _116438 _116439 _116440 _116441 _116442 _116443 _116444 _116445 _116446 _116447 _116448 _116449 _116450 _116451 _116452 _116453 _116454 _116455 _116456 _116457 _116458 _116459 _116460 _116461 _116462 _116463 _116464 _116465 _116466 _116467 _116468 _116469 _116470 _116471 _116472 _116473 _116474 _116475 _116476 _116477 _116478 _116479 _116480 _116481 _116482 _116483 _116484 _116485 _116486 _116487 _116488 _116489 _116490 _116491 _116492 _116493 _116494 _116495 _116496 _116497 _116498 _116499 _116500 _116501 _116502 _116503 _116504 _116505 _116506 _116507 _116508 _116509 _116510 _116511 _116512 _116513 _116514] => _116514 -> _116 -> (_116514, _116258, _116257) -> (t, (_116256, (_1161, (_1162, (_1163, (_1164, (_1165, (_1166, (_1167, _1168, _1168), (_1167, _1169, _1169)), (_1166, (_11610, _11611, _11611), (_11610, _11612, _11612))), (_1165, (_11613, (_11614, _11615, _11615), (_11614, _11616, _11616)), (_11613, (_11617, _11618, _11618), (_11617, _11619, _11619)))), (_1164, (_11620, (_11621, (_11622, _11623, _11623), (_11622, _11624, _11624)), (_11621, (_11625, _11626, _11626), (_11625, _11627, _11627))), (_11620, (_11628, (_11629, _11630, _11630), (_11629, _11631, _11631)), (_11628, (_11632, _11633, _11633), (_11632, _11634, _11634))))), (_1163, (_11635, (_11636, (_11637, (_11638, _11639, _11639), (_11638, _11640, _11640)), (_11637, (_11641, _11642, _11642), (_11641, _11643, _11643))), (_11636, (_11644, (_11645, _11646, _11646), (_11645, _11647, _11647)), (_11644, (_11648, _11649, _11649), (_11648, _11650, _11650)))), (_11635, (_11651, (_11652, (_11653, _11654, _11654), (_11653, _11655, _11655)), (_11652, (_11656, _11657, _11657), (_11656, _11658, _11658))), (_11651, (_11659, (_11660, _11661, _11661), (_11660, _11662, _11662)), (_11659, (_11663, _11664, _11664), (_11663, _11665, _11665)))))), (_1162, (_11666, (_11667, (_11668, (_11669, (_11670, _11671, _11671), (_11670, _11672, _11672)), (_11669, (_11673, _11674, _11674), (_11673, _11675, _11675))), (_11668, (_11676, (_11677, _11678, _11678), (_11677, _11679, _11679)), (_11676, (_11680, _11681, _11681), (_11680, _11682, _11682)))), (_11667, (_11683, (_11684, (_11685, _11686, _11686), (_11685, _11687, _11687)), (_11684, (_11688, _11689, _11689), (_11688, _11690, _11690))), (_11683, (_11691, (_11692, _11693, _11693), (_11692, _11694, _11694)), (_11691, (_11695, _11696, _11696), (_11695, _11697, _11697))))), (_11666, (_11698, (_11699, (_116100, (_116101, _116102, _116102), (_116101, _116103, _116103)), (_116100, (_116104, _116105, _116105), (_116104, _116106, _116106))), (_11699, (_116107, (_116108, _116109, _116109), (_116108, _116110, _116110)), (_116107, (_116111, _116112, _116112), (_116111, _116113, _116113)))), (_11698, (_116114, (_116115, (_116116, _116117, _116117), (_116116, _116118, _116118)), (_116115, (_116119, _116120, _116120), (_116119, _116121, _116121))), (_116114, (_116122, (_116123, _116124, _116124), (_116123, _116125, _116125)), (_116122, (_116126, _116127, _116127), (_116126, _116128, _116128))))))), (_1161, (_116129, (_116130, (_116131, (_116132, (_116133, (_116134, _116135, _116135), (_116134, _116136, _116136)), (_116133, (_116137, _116138, _116138), (_116137, _116139, _116139))), (_116132, (_116140, (_116141, _116142, _116142), (_116141, _116143, _116143)), (_116140, (_116144, _116145, _116145), (_116144, _116146, _116146)))), (_116131, (_116147, (_116148, (_116149, _116150, _116150), (_116149, _116151, _116151)), (_116148, (_116152, _116153, _116153), (_116152, _116154, _116154))), (_116147, (_116155, (_116156, _116157, _116157), (_116156, _116158, _116158)), (_116155, (_116159, _116160, _116160), (_116159, _116161, _116161))))), (_116130, (_116162, (_116163, (_116164, (_116165, _116166, _116166), (_116165, _116167, _116167)), (_116164, (_116168, _116169, _116169), (_116168, _116170, _116170))), (_116163, (_116171, (_116172, _116173, _116173), (_116172, _116174, _116174)), (_116171, (_116175, _116176, _116176), (_116175, _116177, _116177)))), (_116162, (_116178, (_116179, (_116180, _116181, _116181), (_116180, _116182, _116182)), (_116179, (_116183, _116184, _116184), (_116183, _116185, _116185))), (_116178, (_116186, (_116187, _116188, _116188), (_116187, _116189, _116189)), (_116186, (_116190, _116191, _116191), (_116190, _116192, _116192)))))), (_116129, (_116193, (_116194, (_116195, (_116196, (_116197, _116198, _116198), (_116197, _116199, _116199)), (_116196, (_116200, _116201, _116201), (_116200, _116202, _116202))), (_116195, (_116203, (_116204, _116205, _116205), (_116204, _116206, _116206)), (_116203, (_116207, _116208, _116208), (_116207, _116209, _116209)))), (_116194, (_116210, (_116211, (_116212, _116213, _116213), (_116212, _116214, _116214)), (_116211, (_116215, _116216, _116216), (_116215, _116217, _116217))), (_116210, (_116218, (_116219, _116220, _116220), (_116219, _116221, _116221)), (_116218, (_116222, _116223, _116223), (_116222, _116224, _116224))))), (_116193, (_116225, (_116226, (_116227, (_116228, _116229, _116229), (_116228, _116230, _116230)), (_116227, (_116231, _116232, _116232), (_116231, _116233, _116233))), (_116226, (_116234, (_116235, _116236, _116236), (_116235, _116237, _116237)), (_116234, (_116238, _116239, _116239), (_116238, _116240, _116240)))), (_116225, (_116241, (_116242, (_116243, _116244, _116244), (_116243, _116245, _116245)), (_116242, (_116246, _116247, _116247), (_116246, _116248, _116248))), (_116241, (_116249, (_116250, _116251, _116251), (_116250, _116252, _116252)), (_116249, (_116253, _116254, _116254), (_116253, _116255, _116255)))))))), (_116256, (_116259, (_116260, (_116261, (_116262, (_116263, (_116264, (_116265, _116266, _116266), (_116265, _116267, _116267)), (_116264, (_116268, _116269, _116269), (_116268, _116270, _116270))), (_116263, (_116271, (_116272, _116273, _116273), (_116272, _116274, _116274)), (_116271, (_116275, _116276, _116276), (_116275, _116277, _116277)))), (_116262, (_116278, (_116279, (_116280, _116281, _116281), (_116280, _116282, _116282)), (_116279, (_116283, _116284, _116284), (_116283, _116285, _116285))), (_116278, (_116286, (_116287, _116288, _116288), (_116287, _116289, _116289)), (_116286, (_116290, _116291, _116291), (_116290, _116292, _116292))))), (_116261, (_116293, (_116294, (_116295, (_116296, _116297, _116297), (_116296, _116298, _116298)), (_116295, (_116299, _116300, _116300), (_116299, _116301, _116301))), (_116294, (_116302, (_116303, _116304, _116304), (_116303, _116305, _116305)), (_116302, (_116306, _116307, _116307), (_116306, _116308, _116308)))), (_116293, (_116309, (_116310, (_116311, _116312, _116312), (_116311, _116313, _116313)), (_116310, (_116314, _116315, _116315), (_116314, _116316, _116316))), (_116309, (_116317, (_116318, _116319, _116319), (_116318, _116320, _116320)), (_116317, (_116321, _116322, _116322), (_116321, _116323, _116323)))))), (_116260, (_116324, (_116325, (_116326, (_116327, (_116328, _116329, _116329), (_116328, _116330, _116330)), (_116327, (_116331, _116332, _116332), (_116331, _116333, _116333))), (_116326, (_116334, (_116335, _116336, _116336), (_116335, _116337, _116337)), (_116334, (_116338, _116339, _116339), (_116338, _116340, _116340)))), (_116325, (_116341, (_116342, (_116343, _116344, _116344), (_116343, _116345, _116345)), (_116342, (_116346, _116347, _116347), (_116346, _116348, _116348))), (_116341, (_116349, (_116350, _116351, _116351), (_116350, _116352, _116352)), (_116349, (_116353, _116354, _116354), (_116353, _116355, _116355))))), (_116324, (_116356, (_116357, (_116358, (_116359, _116360, _116360), (_116359, _116361, _116361)), (_116358, (_116362, _116363, _116363), (_116362, _116364, _116364))), (_116357, (_116365, (_116366, _116367, _116367), (_116366, _116368, _116368)), (_116365, (_116369, _116370, _116370), (_116369, _116371, _116371)))), (_116356, (_116372, (_116373, (_116374, _116375, _116375), (_116374, _116376, _116376)), (_116373, (_116377, _116378, _116378), (_116377, _116379, _116379))), (_116372, (_116380, (_116381, _116382, _116382), (_116381, _116383, _116383)), (_116380, (_116384, _116385, _116385), (_116384, _116386, _116386))))))), (_116259, (_116387, (_116388, (_116389, (_116390, (_116391, (_116392, _116393, _116393), (_116392, _116394, _116394)), (_116391, (_116395, _116396, _116396), (_116395, _116397, _116397))), (_116390, (_116398, (_116399, _116400, _116400), (_116399, _116401, _116401)), (_116398, (_116402, _116403, _116403), (_116402, _116404, _116404)))), (_116389, (_116405, (_116406, (_116407, _116408, _116408), (_116407, _116409, _116409)), (_116406, (_116410, _116411, _116411), (_116410, _116412, _116412))), (_116405, (_116413, (_116414, _116415, _116415), (_116414, _116416, _116416)), (_116413, (_116417, _116418, _116418), (_116417, _116419, _116419))))), (_116388, (_116420, (_116421, (_116422, (_116423, _116424, _116424), (_116423, _116425, _116425)), (_116422, (_116426, _116427, _116427), (_116426, _116428, _116428))), (_116421, (_116429, (_116430, _116431, _116431), (_116430, _116432, _116432)), (_116429, (_116433, _116434, _116434), (_116433, _116435, _116435)))), (_116420, (_116436, (_116437, (_116438, _116439, _116439), (_116438, _116440, _116440)), (_116437, (_116441, _116442, _116442), (_116441, _116443, _116443))), (_116436, (_116444, (_116445, _116446, _116446), (_116445, _116447, _116447)), (_116444, (_116448, _116449, _116449), (_116448, _116450, _116450)))))), (_116387, (_116451, (_116452, (_116453, (_116454, (_116455, _116456, _116456), (_116455, _116457, _116457)), (_116454, (_116458, _116459, _116459), (_116458, _116460, _116460))), (_116453, (_116461, (_116462, _116463, _116463), (_116462, _116464, _116464)), (_116461, (_116465, _116466, _116466), (_116465, _116467, _116467)))), (_116452, (_116468, (_116469, (_116470, _116471, _116471), (_116470, _116472, _116472)), (_116469, (_116473, _116474, _116474), (_116473, _116475, _116475))), (_116468, (_116476, (_116477, _116478, _116478), (_116477, _116479, _116479)), (_116476, (_116480, _116481, _116481), (_116480, _116482, _116482))))), (_116451, (_116483, (_116484, (_116485, (_116486, _116487, _116487), (_116486, _116488, _116488)), (_116485, (_116489, _116490, _116490), (_116489, _116491, _116491))), (_116484, (_116492, (_116493, _116494, _116494), (_116493, _116495, _116495)), (_116492, (_116496, _116497, _116497), (_116496, _116498, _116498)))), (_116483, (_116499, (_116500, (_116501, _116502, _116502), (_116501, _116503, _116503)), (_116500, (_116504, _116505, _116505), (_116504, _116506, _116506))), (_116499, (_116507, (_116508, _116509, _116509), (_116508, _116510, _116510)), (_116507, (_116511, _116512, _116512), (_116511, _116513, _116513))))))))) -> t ; +1 g_rec :: __forall [t _116 _1161 _1162 _1163 _1164 _1165 _1166 _1167 _1168 _1169] => (_116 -> _1161 -> _1162 -> _1169 -> t) -> (_1167 -> _1163 -> _1164 -> _1165 -> t) -> _1166 -> _116 -> (_1166, _1163, _1167) -> (_1168, _1169, _1165) -> _1168 ; +1 g_rec0 :: __forall [t] => t -> t -> t -> t -> t ; +1 g_rec1 :: __forall [t _116 _1161] => _1161 -> _116 -> (_1161, _116, _116) -> (t, _116, _116) -> t ; +1 g_rec2 :: __forall [t _116 _1161 _1162 _1163 _1164 _1165] => _1165 -> _116 -> (_1165, _1164, _1163) -> (t, (_1162, _1161, _1161), (_1162, _1164, _1164)) -> t ; +1 g_rec3 :: __forall [t _116 _1161 _1162 _1163 _1164 _1165 _1166 _1167 _1168 _1169 _11610] => _11610 -> _116 -> (_11610, _1166, _1165) -> (t, (_1164, (_1162, _1163, _1163), (_1162, _1161, _1161)), (_1164, (_1168, _1169, _1169), (_1168, _1167, _1167))) -> t ; +1 g_rec4 :: __forall [t _116 _1161 _1162 _1163 _1164 _1165 _1166 _1167 _1168 _1169 _11610 _11611 _11612 _11613 _11614 _11615 _11616 _11617 _11618] => _11618 -> _116 -> (_11618, _11610, _1169) -> (t, (_1168, (_1161, (_1162, _1163, _1163), (_1162, _1164, _1164)), (_1161, (_1165, _1166, _1166), (_1165, _1167, _1167))), (_1168, (_11611, (_11612, _11613, _11613), (_11612, _11614, _11614)), (_11611, (_11615, _11616, _11616), (_11615, _11617, _11617)))) -> t ; +1 g_rec5 :: __forall [t _116 _1161 _1162 _1163 _1164 _1165 _1166 _1167 _1168 _1169 _11610 _11611 _11612 _11613 _11614 _11615 _11616 _11617 _11618 _11619 _11620 _11621 _11622 _11623 _11624 _11625 _11626 _11627 _11628 _11629 _11630 _11631 _11632 _11633 _11634] => _11634 -> _116 -> (_11634, _11618, _11617) -> (t, (_11616, (_1161, (_1162, (_1163, _1164, _1164), (_1163, _1165, _1165)), (_1162, (_1166, _1167, _1167), (_1166, _1168, _1168))), (_1161, (_1169, (_11610, _11611, _11611), (_11610, _11612, _11612)), (_1169, (_11613, _11614, _11614), (_11613, _11615, _11615)))), (_11616, (_11619, (_11620, (_11621, _11622, _11622), (_11621, _11623, _11623)), (_11620, (_11624, _11625, _11625), (_11624, _11626, _11626))), (_11619, (_11627, (_11628, _11629, _11629), (_11628, _11630, _11630)), (_11627, (_11631, _11632, _11632), (_11631, _11633, _11633))))) -> t ; +1 g_rec6 :: __forall [t _116 _1161 _1162 _1163 _1164 _1165 _1166 _1167 _1168 _1169 _11610 _11611 _11612 _11613 _11614 _11615 _11616 _11617 _11618 _11619 _11620 _11621 _11622 _11623 _11624 _11625 _11626 _11627 _11628 _11629 _11630 _11631 _11632 _11633 _11634 _11635 _11636 _11637 _11638 _11639 _11640 _11641 _11642 _11643 _11644 _11645 _11646 _11647 _11648 _11649 _11650 _11651 _11652 _11653 _11654 _11655 _11656 _11657 _11658 _11659 _11660 _11661 _11662 _11663 _11664 _11665 _11666] => _11666 -> _116 -> (_11666, _11634, _11633) -> (t, (_11632, (_1161, (_1162, (_1163, (_1164, _1165, _1165), (_1164, _1166, _1166)), (_1163, (_1167, _1168, _1168), (_1167, _1169, _1169))), (_1162, (_11610, (_11611, _11612, _11612), (_11611, _11613, _11613)), (_11610, (_11614, _11615, _11615), (_11614, _11616, _11616)))), (_1161, (_11617, (_11618, (_11619, _11620, _11620), (_11619, _11621, _11621)), (_11618, (_11622, _11623, _11623), (_11622, _11624, _11624))), (_11617, (_11625, (_11626, _11627, _11627), (_11626, _11628, _11628)), (_11625, (_11629, _11630, _11630), (_11629, _11631, _11631))))), (_11632, (_11635, (_11636, (_11637, (_11638, _11639, _11639), (_11638, _11640, _11640)), (_11637, (_11641, _11642, _11642), (_11641, _11643, _11643))), (_11636, (_11644, (_11645, _11646, _11646), (_11645, _11647, _11647)), (_11644, (_11648, _11649, _11649), (_11648, _11650, _11650)))), (_11635, (_11651, (_11652, (_11653, _11654, _11654), (_11653, _11655, _11655)), (_11652, (_11656, _11657, _11657), (_11656, _11658, _11658))), (_11651, (_11659, (_11660, _11661, _11661), (_11660, _11662, _11662)), (_11659, (_11663, _11664, _11664), (_11663, _11665, _11665)))))) -> t ; +1 g_rec7 :: __forall [t _116 _1161 _1162 _1163 _1164 _1165 _1166 _1167 _1168 _1169 _11610 _11611 _11612 _11613 _11614 _11615 _11616 _11617 _11618 _11619 _11620 _11621 _11622 _11623 _11624 _11625 _11626 _11627 _11628 _11629 _11630 _11631 _11632 _11633 _11634 _11635 _11636 _11637 _11638 _11639 _11640 _11641 _11642 _11643 _11644 _11645 _11646 _11647 _11648 _11649 _11650 _11651 _11652 _11653 _11654 _11655 _11656 _11657 _11658 _11659 _11660 _11661 _11662 _11663 _11664 _11665 _11666 _11667 _11668 _11669 _11670 _11671 _11672 _11673 _11674 _11675 _11676 _11677 _11678 _11679 _11680 _11681 _11682 _11683 _11684 _11685 _11686 _11687 _11688 _11689 _11690 _11691 _11692 _11693 _11694 _11695 _11696 _11697 _11698 _11699 _116100 _116101 _116102 _116103 _116104 _116105 _116106 _116107 _116108 _116109 _116110 _116111 _116112 _116113 _116114 _116115 _116116 _116117 _116118 _116119 _116120 _116121 _116122 _116123 _116124 _116125 _116126 _116127 _116128 _116129 _116130] => _116130 -> _116 -> (_116130, _11666, _11665) -> (t, (_11664, (_1161, (_1162, (_1163, (_1164, (_1165, _1166, _1166), (_1165, _1167, _1167)), (_1164, (_1168, _1169, _1169), (_1168, _11610, _11610))), (_1163, (_11611, (_11612, _11613, _11613), (_11612, _11614, _11614)), (_11611, (_11615, _11616, _11616), (_11615, _11617, _11617)))), (_1162, (_11618, (_11619, (_11620, _11621, _11621), (_11620, _11622, _11622)), (_11619, (_11623, _11624, _11624), (_11623, _11625, _11625))), (_11618, (_11626, (_11627, _11628, _11628), (_11627, _11629, _11629)), (_11626, (_11630, _11631, _11631), (_11630, _11632, _11632))))), (_1161, (_11633, (_11634, (_11635, (_11636, _11637, _11637), (_11636, _11638, _11638)), (_11635, (_11639, _11640, _11640), (_11639, _11641, _11641))), (_11634, (_11642, (_11643, _11644, _11644), (_11643, _11645, _11645)), (_11642, (_11646, _11647, _11647), (_11646, _11648, _11648)))), (_11633, (_11649, (_11650, (_11651, _11652, _11652), (_11651, _11653, _11653)), (_11650, (_11654, _11655, _11655), (_11654, _11656, _11656))), (_11649, (_11657, (_11658, _11659, _11659), (_11658, _11660, _11660)), (_11657, (_11661, _11662, _11662), (_11661, _11663, _11663)))))), (_11664, (_11667, (_11668, (_11669, (_11670, (_11671, _11672, _11672), (_11671, _11673, _11673)), (_11670, (_11674, _11675, _11675), (_11674, _11676, _11676))), (_11669, (_11677, (_11678, _11679, _11679), (_11678, _11680, _11680)), (_11677, (_11681, _11682, _11682), (_11681, _11683, _11683)))), (_11668, (_11684, (_11685, (_11686, _11687, _11687), (_11686, _11688, _11688)), (_11685, (_11689, _11690, _11690), (_11689, _11691, _11691))), (_11684, (_11692, (_11693, _11694, _11694), (_11693, _11695, _11695)), (_11692, (_11696, _11697, _11697), (_11696, _11698, _11698))))), (_11667, (_11699, (_116100, (_116101, (_116102, _116103, _116103), (_116102, _116104, _116104)), (_116101, (_116105, _116106, _116106), (_116105, _116107, _116107))), (_116100, (_116108, (_116109, _116110, _116110), (_116109, _116111, _116111)), (_116108, (_116112, _116113, _116113), (_116112, _116114, _116114)))), (_11699, (_116115, (_116116, (_116117, _116118, _116118), (_116117, _116119, _116119)), (_116116, (_116120, _116121, _116121), (_116120, _116122, _116122))), (_116115, (_116123, (_116124, _116125, _116125), (_116124, _116126, _116126)), (_116123, (_116127, _116128, _116128), (_116127, _116129, _116129))))))) -> t ; +1 g_rec8 :: __forall [t _116 _1161 _1162 _1163 _1164 _1165 _1166 _1167 _1168 _1169 _11610 _11611 _11612 _11613 _11614 _11615 _11616 _11617 _11618 _11619 _11620 _11621 _11622 _11623 _11624 _11625 _11626 _11627 _11628 _11629 _11630 _11631 _11632 _11633 _11634 _11635 _11636 _11637 _11638 _11639 _11640 _11641 _11642 _11643 _11644 _11645 _11646 _11647 _11648 _11649 _11650 _11651 _11652 _11653 _11654 _11655 _11656 _11657 _11658 _11659 _11660 _11661 _11662 _11663 _11664 _11665 _11666 _11667 _11668 _11669 _11670 _11671 _11672 _11673 _11674 _11675 _11676 _11677 _11678 _11679 _11680 _11681 _11682 _11683 _11684 _11685 _11686 _11687 _11688 _11689 _11690 _11691 _11692 _11693 _11694 _11695 _11696 _11697 _11698 _11699 _116100 _116101 _116102 _116103 _116104 _116105 _116106 _116107 _116108 _116109 _116110 _116111 _116112 _116113 _116114 _116115 _116116 _116117 _116118 _116119 _116120 _116121 _116122 _116123 _116124 _116125 _116126 _116127 _116128 _116129 _116130 _116131 _116132 _116133 _116134 _116135 _116136 _116137 _116138 _116139 _116140 _116141 _116142 _116143 _116144 _116145 _116146 _116147 _116148 _116149 _116150 _116151 _116152 _116153 _116154 _116155 _116156 _116157 _116158 _116159 _116160 _116161 _116162 _116163 _116164 _116165 _116166 _116167 _116168 _116169 _116170 _116171 _116172 _116173 _116174 _116175 _116176 _116177 _116178 _116179 _116180 _116181 _116182 _116183 _116184 _116185 _116186 _116187 _116188 _116189 _116190 _116191 _116192 _116193 _116194 _116195 _116196 _116197 _116198 _116199 _116200 _116201 _116202 _116203 _116204 _116205 _116206 _116207 _116208 _116209 _116210 _116211 _116212 _116213 _116214 _116215 _116216 _116217 _116218 _116219 _116220 _116221 _116222 _116223 _116224 _116225 _116226 _116227 _116228 _116229 _116230 _116231 _116232 _116233 _116234 _116235 _116236 _116237 _116238 _116239 _116240 _116241 _116242 _116243 _116244 _116245 _116246 _116247 _116248 _116249 _116250 _116251 _116252 _116253 _116254 _116255 _116256 _116257 _116258] => _116258 -> _116 -> (_116258, _116130, _116129) -> (t, (_116128, (_1161, (_1162, (_1163, (_1164, (_1165, (_1166, _1167, _1167), (_1166, _1168, _1168)), (_1165, (_1169, _11610, _11610), (_1169, _11611, _11611))), (_1164, (_11612, (_11613, _11614, _11614), (_11613, _11615, _11615)), (_11612, (_11616, _11617, _11617), (_11616, _11618, _11618)))), (_1163, (_11619, (_11620, (_11621, _11622, _11622), (_11621, _11623, _11623)), (_11620, (_11624, _11625, _11625), (_11624, _11626, _11626))), (_11619, (_11627, (_11628, _11629, _11629), (_11628, _11630, _11630)), (_11627, (_11631, _11632, _11632), (_11631, _11633, _11633))))), (_1162, (_11634, (_11635, (_11636, (_11637, _11638, _11638), (_11637, _11639, _11639)), (_11636, (_11640, _11641, _11641), (_11640, _11642, _11642))), (_11635, (_11643, (_11644, _11645, _11645), (_11644, _11646, _11646)), (_11643, (_11647, _11648, _11648), (_11647, _11649, _11649)))), (_11634, (_11650, (_11651, (_11652, _11653, _11653), (_11652, _11654, _11654)), (_11651, (_11655, _11656, _11656), (_11655, _11657, _11657))), (_11650, (_11658, (_11659, _11660, _11660), (_11659, _11661, _11661)), (_11658, (_11662, _11663, _11663), (_11662, _11664, _11664)))))), (_1161, (_11665, (_11666, (_11667, (_11668, (_11669, _11670, _11670), (_11669, _11671, _11671)), (_11668, (_11672, _11673, _11673), (_11672, _11674, _11674))), (_11667, (_11675, (_11676, _11677, _11677), (_11676, _11678, _11678)), (_11675, (_11679, _11680, _11680), (_11679, _11681, _11681)))), (_11666, (_11682, (_11683, (_11684, _11685, _11685), (_11684, _11686, _11686)), (_11683, (_11687, _11688, _11688), (_11687, _11689, _11689))), (_11682, (_11690, (_11691, _11692, _11692), (_11691, _11693, _11693)), (_11690, (_11694, _11695, _11695), (_11694, _11696, _11696))))), (_11665, (_11697, (_11698, (_11699, (_116100, _116101, _116101), (_116100, _116102, _116102)), (_11699, (_116103, _116104, _116104), (_116103, _116105, _116105))), (_11698, (_116106, (_116107, _116108, _116108), (_116107, _116109, _116109)), (_116106, (_116110, _116111, _116111), (_116110, _116112, _116112)))), (_11697, (_116113, (_116114, (_116115, _116116, _116116), (_116115, _116117, _116117)), (_116114, (_116118, _116119, _116119), (_116118, _116120, _116120))), (_116113, (_116121, (_116122, _116123, _116123), (_116122, _116124, _116124)), (_116121, (_116125, _116126, _116126), (_116125, _116127, _116127))))))), (_116128, (_116131, (_116132, (_116133, (_116134, (_116135, (_116136, _116137, _116137), (_116136, _116138, _116138)), (_116135, (_116139, _116140, _116140), (_116139, _116141, _116141))), (_116134, (_116142, (_116143, _116144, _116144), (_116143, _116145, _116145)), (_116142, (_116146, _116147, _116147), (_116146, _116148, _116148)))), (_116133, (_116149, (_116150, (_116151, _116152, _116152), (_116151, _116153, _116153)), (_116150, (_116154, _116155, _116155), (_116154, _116156, _116156))), (_116149, (_116157, (_116158, _116159, _116159), (_116158, _116160, _116160)), (_116157, (_116161, _116162, _116162), (_116161, _116163, _116163))))), (_116132, (_116164, (_116165, (_116166, (_116167, _116168, _116168), (_116167, _116169, _116169)), (_116166, (_116170, _116171, _116171), (_116170, _116172, _116172))), (_116165, (_116173, (_116174, _116175, _116175), (_116174, _116176, _116176)), (_116173, (_116177, _116178, _116178), (_116177, _116179, _116179)))), (_116164, (_116180, (_116181, (_116182, _116183, _116183), (_116182, _116184, _116184)), (_116181, (_116185, _116186, _116186), (_116185, _116187, _116187))), (_116180, (_116188, (_116189, _116190, _116190), (_116189, _116191, _116191)), (_116188, (_116192, _116193, _116193), (_116192, _116194, _116194)))))), (_116131, (_116195, (_116196, (_116197, (_116198, (_116199, _116200, _116200), (_116199, _116201, _116201)), (_116198, (_116202, _116203, _116203), (_116202, _116204, _116204))), (_116197, (_116205, (_116206, _116207, _116207), (_116206, _116208, _116208)), (_116205, (_116209, _116210, _116210), (_116209, _116211, _116211)))), (_116196, (_116212, (_116213, (_116214, _116215, _116215), (_116214, _116216, _116216)), (_116213, (_116217, _116218, _116218), (_116217, _116219, _116219))), (_116212, (_116220, (_116221, _116222, _116222), (_116221, _116223, _116223)), (_116220, (_116224, _116225, _116225), (_116224, _116226, _116226))))), (_116195, (_116227, (_116228, (_116229, (_116230, _116231, _116231), (_116230, _116232, _116232)), (_116229, (_116233, _116234, _116234), (_116233, _116235, _116235))), (_116228, (_116236, (_116237, _116238, _116238), (_116237, _116239, _116239)), (_116236, (_116240, _116241, _116241), (_116240, _116242, _116242)))), (_116227, (_116243, (_116244, (_116245, _116246, _116246), (_116245, _116247, _116247)), (_116244, (_116248, _116249, _116249), (_116248, _116250, _116250))), (_116243, (_116251, (_116252, _116253, _116253), (_116252, _116254, _116254)), (_116251, (_116255, _116256, _116256), (_116255, _116257, _116257)))))))) -> t ; +1 head :: __forall [t] => [t] -> t ; +1 one :: __forall [t] => t ; +1 s_1_0 :: __forall [t] => t -> t ; +1 s_2_0 :: __forall [t _116] => (t, _116) -> t ; +1 s_2_1 :: __forall [t _116] => (_116, t) -> t ; +1 s_3_0 :: __forall [t _116 _1161] => (t, _116, _1161) -> t ; +1 s_3_1 :: __forall [t _116 _1161] => (_116, t, _1161) -> t ; +1 s_3_2 :: __forall [t _116 _1161] => (_116, _1161, t) -> t ; diff --git a/ghc/tests/typecheck/should_compile/tc090.stderr b/ghc/tests/typecheck/should_compile/tc090.stderr index a69fc17..f64b39f 100644 --- a/ghc/tests/typecheck/should_compile/tc090.stderr +++ b/ghc/tests/typecheck/should_compile/tc090.stderr @@ -1,6 +1,4 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed a b; -_declarations_ -1 a _:_ _forall_ [$a] {PrelBase.Ord $a} => $a ;; -1 b _:_ _forall_ [$a] {PrelBase.Ord $a} => $a ;; +__export ShouldSucceed a b; +1 a :: __forall [f] {PrelBase.Ord f} => f ; +1 b :: __forall [f] {PrelBase.Ord f} => f ; diff --git a/ghc/tests/typecheck/should_compile/tc091.hs b/ghc/tests/typecheck/should_compile/tc091.hs index eb52c16..628b571 100644 --- a/ghc/tests/typecheck/should_compile/tc091.hs +++ b/ghc/tests/typecheck/should_compile/tc091.hs @@ -1,4 +1,4 @@ ---!!! Test polymorphic recursion +-- !!! Test polymorphic recursion -- With polymorphic recursion this one becomes legal diff --git a/ghc/tests/typecheck/should_compile/tc091.stderr b/ghc/tests/typecheck/should_compile/tc091.stderr index fe869c2..769af0a 100644 --- a/ghc/tests/typecheck/should_compile/tc091.stderr +++ b/ghc/tests/typecheck/should_compile/tc091.stderr @@ -1,7 +1,5 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed init_last merge sort; -_declarations_ -1 init_last _:_ _forall_ [$a] => [$a] -> PrelBase.Int -> ([$a], [$a]) ;; -1 merge _:_ _forall_ [$a] {PrelBase.Ord $a} => [$a] -> [$a] -> [$a] ;; -1 sort _:_ _forall_ [$a] {PrelBase.Ord $a} => [$a] -> [$a] ;; +__export ShouldSucceed init_last merge sort; +1 init_last :: __forall [a] => [a] -> PrelBase.Int -> ([a], [a]) ; +1 merge :: __forall [a] {PrelBase.Ord a} => [a] -> [a] -> [a] ; +1 sort :: __forall [a] {PrelBase.Ord a} => [a] -> [a] ; diff --git a/ghc/tests/typecheck/should_compile/tc092.stderr b/ghc/tests/typecheck/should_compile/tc092.stderr index caffe4b..13e620d 100644 --- a/ghc/tests/typecheck/should_compile/tc092.stderr +++ b/ghc/tests/typecheck/should_compile/tc092.stderr @@ -1,9 +1,7 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed e0 e1 e2 q Empty{Empty}; -_declarations_ -1 data Empty $r3H :: (* -> *) = Empty (_forall_ [$r3K] {PrelBase.Ord $r3K} => $r3H $r3K) ; -1 e0 _:_ Empty PrelBase.[] ;; -1 e1 _:_ Empty PrelBase.[] ;; -1 e2 _:_ Empty PrelBase.[] ;; -1 q _:_ _forall_ [$a] {PrelBase.Ord $a} => [$a] ;; +__export ShouldSucceed e0 e1 e2 q Empty{Empty}; +1 data Empty q :: (* -> *) = Empty (__forall [a] {PrelBase.Ord a} => q a) ; +1 e0 :: Empty PrelBase.[] ; +1 e1 :: Empty PrelBase.[] ; +1 e2 :: Empty PrelBase.[] ; +1 q :: __forall [a] {PrelBase.Ord a} => [a] ; diff --git a/ghc/tests/typecheck/should_compile/tc093.hs b/ghc/tests/typecheck/should_compile/tc093.hs index f9a5179..c834428 100644 --- a/ghc/tests/typecheck/should_compile/tc093.hs +++ b/ghc/tests/typecheck/should_compile/tc093.hs @@ -19,7 +19,7 @@ instance Eq c => Monad (State c) where data TS = TS { vs::Int } deriving (Show,Eq) -type St = State TS +type St a = State TS a foo :: Int -> St Int -- it works if this line is not given foo x = return x diff --git a/ghc/tests/typecheck/should_compile/tc093.stderr b/ghc/tests/typecheck/should_compile/tc093.stderr index cfc536c..a9bb9f8 100644 --- a/ghc/tests/typecheck/should_compile/tc093.stderr +++ b/ghc/tests/typecheck/should_compile/tc093.stderr @@ -1,20 +1,15 @@ - -uniqAway: 1 tries ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed bindState foo unState unitState St State{State} TS{TS vs}; -_instances_ -instance {PrelBase.Eq TS} = $dEqTS0; -instance _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Monad (State $a)} = $dMonadState0; -instance {PrelBase.Show TS} = $dShowTS0; -_declarations_ -1 $dEqTS0 _:_ {PrelBase.Eq TS} ;; -1 $dMonadState0 _:_ _forall_ [$a] {PrelBase.Eq $a} => {PrelBase.Monad (State $a)} ;; -1 $dShowTS0 _:_ {PrelBase.Show TS} ;; -1 bindState _:_ _forall_ [$a $b $c] => State $a $b -> ($b -> State $a $c) -> State $a $c ;; -1 data State $r4h $r4i = State ($r4h -> ($r4i, $r4h)) ; +__export ShouldSucceed bindState foo unState unitState St State{State} TS{TS vs}; +instance {PrelBase.Eq TS} = _fEqTS; +instance __forall [c] {PrelBase.Eq c} => {PrelBase.Monad (State c)} = _fMonadState; +instance {PrelBase.Show TS} = _fShowTS; +1 _fEqTS :: {PrelBase.Eq TS} ; +1 _fMonadState :: __forall [c] {PrelBase.Eq c} => {PrelBase.Monad (State c)} ; +1 _fShowTS :: {PrelBase.Show TS} ; +1 bindState :: __forall [c a b] => State c a -> (a -> State c b) -> State c b ; +1 data State c a = State (c -> (a, c)) ; 1 data TS = TS {vs :: PrelBase.Int} ; -1 foo _:_ PrelBase.Int -> State TS PrelBase.Int ;; -1 type St = State TS ; -1 unState _:_ _forall_ [$a $b] => State $a $b -> $a -> ($b, $a) ;; -1 unitState _:_ _forall_ [$a $b] => $a -> State $b $a ;; +1 foo :: PrelBase.Int -> St PrelBase.Int ; +1 type St a = State TS a ; +1 unState :: __forall [c a] => State c a -> c -> (a, c) ; +1 unitState :: __forall [a c] => a -> State c a ; diff --git a/ghc/tests/typecheck/should_compile/tc094.stderr b/ghc/tests/typecheck/should_compile/tc094.stderr index 5989722..e5a8df1 100644 --- a/ghc/tests/typecheck/should_compile/tc094.stderr +++ b/ghc/tests/typecheck/should_compile/tc094.stderr @@ -1,5 +1,3 @@ ghc: module version changed to 1; reason: no old .hi file -_exports_ -ShouldSucceed foo; -_declarations_ -1 foo _:_ _forall_ [a] => a -> (PrelBase.Int, PrelBase.Int) ;; +__export ShouldSucceed foo; +1 foo :: __forall [t] => t -> (PrelBase.Integer, PrelBase.Integer) ; diff --git a/ghc/tests/typecheck/should_compile/tc095.hs b/ghc/tests/typecheck/should_compile/tc095.hs index 95205ba..1ac333c 100644 --- a/ghc/tests/typecheck/should_compile/tc095.hs +++ b/ghc/tests/typecheck/should_compile/tc095.hs @@ -33,7 +33,7 @@ data HappyAbsSyn t1 t2 t3 | HappyAbsSyn2 t2 | HappyAbsSyn3 t3 -action_0 (6) = happyShift action_3 ---***** +action_0 (6) = happyShift action_3 --- ***** action_0 (1) = happyGoto action_1 action_0 (2) = happyGoto action_2 action_0 _ = happyFail @@ -106,7 +106,7 @@ data Token = deriving Show main = print (myparser [] []) --- $Id: tc095.hs,v 1.1 1998/02/23 15:35:31 simonm Exp $ +-- $Id: tc095.hs,v 1.2 1999/01/23 17:58:16 sof Exp $ {- The stack is in the following order throughout the parse: diff --git a/ghc/tests/typecheck/should_compile/tc096.hs b/ghc/tests/typecheck/should_compile/tc096.hs index ffb41d3..165c5bd 100644 --- a/ghc/tests/typecheck/should_compile/tc096.hs +++ b/ghc/tests/typecheck/should_compile/tc096.hs @@ -1,6 +1,6 @@ module ShouldSucceed where ---!!! monomorphism restriction and defaulting +-- !!! monomorphism restriction and defaulting x = 3 diff --git a/ghc/tests/typecheck/should_compile/tc097.hs b/ghc/tests/typecheck/should_compile/tc097.hs index fac0101..448e631 100644 --- a/ghc/tests/typecheck/should_compile/tc097.hs +++ b/ghc/tests/typecheck/should_compile/tc097.hs @@ -1,4 +1,4 @@ ---!!! Local universal quantification. +-- !!! Local universal quantification. module ShouldSucceed where import PrelGHC -- to get at All diff --git a/ghc/tests/typecheck/should_compile/tc098.hs b/ghc/tests/typecheck/should_compile/tc098.hs index 5fc404b..f870caa 100644 --- a/ghc/tests/typecheck/should_compile/tc098.hs +++ b/ghc/tests/typecheck/should_compile/tc098.hs @@ -1,4 +1,4 @@ ---!!! Ambiguity in local declarations +-- !!! Ambiguity in local declarations module ShouldSucceed where diff --git a/ghc/tests/typecheck/should_fail/Digraph.hs b/ghc/tests/typecheck/should_fail/Digraph.hs index a52d489..81c1a1f 100644 --- a/ghc/tests/typecheck/should_fail/Digraph.hs +++ b/ghc/tests/typecheck/should_fail/Digraph.hs @@ -1,4 +1,4 @@ ---!!! trying to have a polymorphic type sig where inappropriate +-- !!! trying to have a polymorphic type sig where inappropriate -- module Digraph where diff --git a/ghc/tests/typecheck/should_fail/Digraph.stderr b/ghc/tests/typecheck/should_fail/Digraph.stderr index e4a2017..f28161f 100644 --- a/ghc/tests/typecheck/should_fail/Digraph.stderr +++ b/ghc/tests/typecheck/should_fail/Digraph.stderr @@ -1,31 +1,35 @@ Digraph.hs:19: Inferred type is less polymorphic than expected - Quantified type variable `vertex' escapes; i.e. unifies with something more global - When checking the type signature for `reversed_edges' - Signature: [Edge v] - Inferred: [Edge vertex] + Quantified type variable `v' escapes + It unifies with `vertex', which is mentioned in the environment + The following variables in the environment mention `vertex' + es :: [Edge vertex] + vs :: [vertex] + When checking the type signature + reversed_edges :: forall _118. {PrelBase.Eq _118} => [Edge _118] In an equation for function `stronglyConnComp': stronglyConnComp es vs - = snd (span_tree (new_range reversed_edges) - ([], []) - (snd (dfs (new_range es) ([], []) vs))) - where - 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) - new_range [] w = [] - new_range ((x, y) : xys) w - = if x == w then - (y : (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 = map swap es + = snd (span_tree (new_range reversed_edges) + ([], []) + (snd (dfs (new_range es) ([], []) vs))) + where + 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) + new_range [] w = [] + new_range ((x, y) : xys) w + = if x == w then + (y : (new_range xys w)) + else + (new_range xys w) + swap (x, y) = (y, x) + reversed_edges :: forall v. (Eq v) => [Edge v] + reversed_edges = map swap es Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail001.hs b/ghc/tests/typecheck/should_fail/tcfail001.hs index a90d230..4e3e130 100644 --- a/ghc/tests/typecheck/should_fail/tcfail001.hs +++ b/ghc/tests/typecheck/should_fail/tcfail001.hs @@ -1,5 +1,5 @@ ---!!! This should fail with a type error: the instance method ---!!! has a function type when it should have the type [a]. +-- !!! This should fail with a type error: the instance method +-- !!! has a function type when it should have the type [a]. module ShouldFail where class A a where diff --git a/ghc/tests/typecheck/should_fail/tcfail001.stderr b/ghc/tests/typecheck/should_fail/tcfail001.stderr index 12c88e6..a577ffb 100644 --- a/ghc/tests/typecheck/should_fail/tcfail001.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail001.stderr @@ -4,11 +4,12 @@ tcfail001.hs:9: Warning: tcfail001.hs:9: - Couldn't match `[a]' against `$0 -> $1' + Couldn't match `[a]' against `t -> _116' Expected type: [a] - Inferred type: $0 -> $1 + Inferred type: t -> _116 In an equation for function `op': op [] = [] In the definition for method `op' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail002.stderr b/ghc/tests/typecheck/should_fail/tcfail002.stderr index 5fa5936..227b2f4 100644 --- a/ghc/tests/typecheck/should_fail/tcfail002.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail002.stderr @@ -1,9 +1,10 @@ tcfail002.hs:4: - Occurs check: cannot construct the infinite type: $0 = [$0] - Expected type: $0 - Inferred type: [$0] + Occurs check: cannot construct the infinite type: t = [t] + Expected type: t + Inferred type: [t] In the right-hand side of an equation for `c': z Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail003.stderr b/ghc/tests/typecheck/should_fail/tcfail003.stderr index c3bc95c..2cb11fc 100644 --- a/ghc/tests/typecheck/should_fail/tcfail003.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail003.stderr @@ -1,7 +1,8 @@ tcfail003.hs:3: - No instance for `Num Char' + No instance for `PrelBase.Num Char' arising from the literal `1' at tcfail003.hs:3 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail004.stderr b/ghc/tests/typecheck/should_fail/tcfail004.stderr index 464687e..a8a9457 100644 --- a/ghc/tests/typecheck/should_fail/tcfail004.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail004.stderr @@ -1,9 +1,10 @@ tcfail004.hs:3: - Couldn't match `($0, $1)' against `($2, $3, $4)' - Expected type: ($0, $1) - Inferred type: ($2, $3, $4) + Couldn't match `(t, _116)' against `(_1161, _1162, _1163)' + Expected type: (t, _116) + Inferred type: (_1161, _1162, _1163) In the right-hand side of a pattern binding: (1, 2, 3) Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail005.stderr b/ghc/tests/typecheck/should_fail/tcfail005.stderr index c9e6fa8..f2c2741 100644 --- a/ghc/tests/typecheck/should_fail/tcfail005.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail005.stderr @@ -1,9 +1,10 @@ tcfail005.hs:3: - Couldn't match `[$0]' against `($1, $2)' - Expected type: [$0] - Inferred type: ($1, $2) + Couldn't match `[t]' against `(_116, _1161)' + Expected type: [t] + Inferred type: (_116, _1161) In the right-hand side of a pattern binding: (1, 'a') Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail006.stderr b/ghc/tests/typecheck/should_fail/tcfail006.stderr index fb669e5..29cce73 100644 --- a/ghc/tests/typecheck/should_fail/tcfail006.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail006.stderr @@ -1,7 +1,8 @@ tcfail006.hs:4: - No instance for `Num Bool' + No instance for `PrelBase.Num Bool' arising from the literal `1' at tcfail006.hs:4 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail007.stderr b/ghc/tests/typecheck/should_fail/tcfail007.stderr index ff82761..435c825 100644 --- a/ghc/tests/typecheck/should_fail/tcfail007.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail007.stderr @@ -1,7 +1,8 @@ -tcfail007.hs:4: - No instance for `Num Bool' - arising from use of `+' at tcfail007.hs:4 +tcfail007.hs:3: + No instance for `PrelBase.Num Bool' + arising from use of `PrelBase.+' at tcfail007.hs:3 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail008.stderr b/ghc/tests/typecheck/should_fail/tcfail008.stderr index 8a852ef..a7f15d6 100644 --- a/ghc/tests/typecheck/should_fail/tcfail008.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail008.stderr @@ -1,13 +1,14 @@ tcfail008.hs:3: - Ambiguous type variable(s) `$0' - in the constraint `Num [$0]' + Ambiguous type variable(s) `t' + in the constraint `PrelBase.Num [t]' arising from the literal `2' at tcfail008.hs:3 tcfail008.hs:3: - Ambiguous type variable(s) `$0' - in the constraint `Num $0' + Ambiguous type variable(s) `t' + in the constraint `PrelBase.Num t' arising from the literal `1' at tcfail008.hs:3 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail009.stderr b/ghc/tests/typecheck/should_fail/tcfail009.stderr index de08837..f8c305e 100644 --- a/ghc/tests/typecheck/should_fail/tcfail009.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail009.stderr @@ -7,3 +7,4 @@ tcfail009.hs:3: Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail010.stderr b/ghc/tests/typecheck/should_fail/tcfail010.stderr index 41a77c4..14e30ff 100644 --- a/ghc/tests/typecheck/should_fail/tcfail010.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail010.stderr @@ -1,8 +1,9 @@ tcfail010.hs:3: - Ambiguous type variable(s) `$0' - in the constraint `Num [$0]' - arising from use of `+' at tcfail010.hs:3 + Ambiguous type variable(s) `t' + in the constraint `PrelBase.Num [t]' + arising from use of `PrelBase.+' at tcfail010.hs:3 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail011.stderr b/ghc/tests/typecheck/should_fail/tcfail011.stderr index 6367312..c454605 100644 --- a/ghc/tests/typecheck/should_fail/tcfail011.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail011.stderr @@ -3,3 +3,4 @@ tcfail011.hs:3: Value not in scope: `y' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail012.stderr b/ghc/tests/typecheck/should_fail/tcfail012.stderr index 09cd1db..e172835 100644 --- a/ghc/tests/typecheck/should_fail/tcfail012.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail012.stderr @@ -1,9 +1,10 @@ tcfail012.hs:3: - Couldn't match `Bool' against `[$0]' + Couldn't match `Bool' against `[t]' Expected type: Bool - Inferred type: [$0] + Inferred type: [t] In the right-hand side of a pattern binding: [] Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail013.stderr b/ghc/tests/typecheck/should_fail/tcfail013.stderr index 327ceec..594cd49 100644 --- a/ghc/tests/typecheck/should_fail/tcfail013.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail013.stderr @@ -1,10 +1,11 @@ tcfail013.hs:4: - Couldn't match `[$0]' against `Bool' - Expected type: [$0] + Couldn't match `[t]' against `Bool' + Expected type: [t] Inferred type: Bool In the pattern: True In an equation for function `f': f True = 2 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail014.stderr b/ghc/tests/typecheck/should_fail/tcfail014.stderr index 2793d7a..457dea5 100644 --- a/ghc/tests/typecheck/should_fail/tcfail014.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail014.stderr @@ -1,10 +1,11 @@ tcfail014.hs:5: - Occurs check: cannot construct the infinite type: $0 = $0 -> $1 - Expected type: $0 - Inferred type: $0 -> $1 + Occurs check: cannot construct the infinite type: t = t -> _116 + Expected type: t + Inferred type: t -> _116 In the first argument of `z', namely `z' In the right-hand side of an equation for `h': z z Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail015.stderr b/ghc/tests/typecheck/should_fail/tcfail015.stderr index 49fb603..d675738 100644 --- a/ghc/tests/typecheck/should_fail/tcfail015.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail015.stderr @@ -1,7 +1,8 @@ tcfail015.hs:7: - No instance for `Num Bool' + No instance for `PrelBase.Num Bool' arising from the literal `2' at tcfail015.hs:7 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail016.stderr b/ghc/tests/typecheck/should_fail/tcfail016.stderr index f27a018..758417c 100644 --- a/ghc/tests/typecheck/should_fail/tcfail016.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail016.stderr @@ -1,10 +1,11 @@ tcfail016.hs:9: - Couldn't match `Expr a' against `AnnExpr a1' - Expected type: Expr a1 - Inferred type: AnnExpr a1 + Couldn't match `Expr a' against `AnnExpr _97' + Expected type: Expr _97 + Inferred type: AnnExpr _97 In the first argument of `g', namely `e1' In the first argument of `++', namely `(g e1)' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail017.stderr b/ghc/tests/typecheck/should_fail/tcfail017.stderr index f884ade..adc86a4 100644 --- a/ghc/tests/typecheck/should_fail/tcfail017.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail017.stderr @@ -2,10 +2,11 @@ tcfail017.hs:11: Could not deduce `C [a]' (arising from an instance declaration at tcfail017.hs:11) - from the context (B a) + from the context: (B a) Probable cause: missing `C [a]' in instance declaration context or missing instance declaration for `C [a]' When checking the superclasses of an instance declaration Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail018.stderr b/ghc/tests/typecheck/should_fail/tcfail018.stderr index d9b50e4..f645b9d 100644 --- a/ghc/tests/typecheck/should_fail/tcfail018.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail018.stderr @@ -1,8 +1,9 @@ tcfail018.hs:5: - Ambiguous type variable(s) `$0' - in the constraint `Num [$0]' + Ambiguous type variable(s) `t' + in the constraint `PrelBase.Num [t]' arising from the literal `1' at tcfail018.hs:5 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail019.stderr b/ghc/tests/typecheck/should_fail/tcfail019.stderr index 5176f27..2788d89 100644 --- a/ghc/tests/typecheck/should_fail/tcfail019.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail019.stderr @@ -2,7 +2,7 @@ tcfail019.hs:19: Could not deduce `C [a]' (arising from an instance declaration at tcfail019.hs:19) - from the context () + from the context: () Probable cause: missing `C [a]' in instance declaration context or missing instance declaration for `C [a]' When checking the superclasses of an instance declaration @@ -10,10 +10,11 @@ tcfail019.hs:19: tcfail019.hs:19: Could not deduce `B [a]' (arising from an instance declaration at tcfail019.hs:19) - from the context () + from the context: () Probable cause: missing `B [a]' in instance declaration context or missing instance declaration for `B [a]' When checking the superclasses of an instance declaration Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail020.stderr b/ghc/tests/typecheck/should_fail/tcfail020.stderr index 855822f..1fe6f02 100644 --- a/ghc/tests/typecheck/should_fail/tcfail020.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail020.stderr @@ -2,10 +2,11 @@ tcfail020.hs:11: Could not deduce `A [a]' (arising from an instance declaration at tcfail020.hs:11) - from the context (A a) + from the context: (A a) Probable cause: missing `A [a]' in instance declaration context or missing instance declaration for `A [a]' When checking the superclasses of an instance declaration Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail021.hs b/ghc/tests/typecheck/should_fail/tcfail021.hs index de18ba5..af11b56 100644 --- a/ghc/tests/typecheck/should_fail/tcfail021.hs +++ b/ghc/tests/typecheck/should_fail/tcfail021.hs @@ -1,4 +1,4 @@ ---!!! Illegally giving methods in a pattern binding (for no v good reason...) +-- !!! Illegally giving methods in a pattern binding (for no v good reason...) module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail021.stderr b/ghc/tests/typecheck/should_fail/tcfail021.stderr index f11ceac..ffd31e4 100644 --- a/ghc/tests/typecheck/should_fail/tcfail021.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail021.stderr @@ -5,3 +5,4 @@ tcfail021.hs:8: Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail023.hs b/ghc/tests/typecheck/should_fail/tcfail023.hs index e9535be..ea8fe8b 100644 --- a/ghc/tests/typecheck/should_fail/tcfail023.hs +++ b/ghc/tests/typecheck/should_fail/tcfail023.hs @@ -1,6 +1,6 @@ module ShouldFail where ---!!! Duplicate instances +-- !!! Duplicate instances data B = C diff --git a/ghc/tests/typecheck/should_fail/tcfail023.stderr b/ghc/tests/typecheck/should_fail/tcfail023.stderr index 344d0f3..283da45 100644 --- a/ghc/tests/typecheck/should_fail/tcfail023.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail023.stderr @@ -1,15 +1,15 @@ tcfail023.hs:1: Duplicate or overlapping instance declarations - for `A B' at tcfail023.hs:14 and tcfail023.hs:11 + for `A B' at tcfail023.hs:11 and tcfail023.hs:14 -tcfail023.hs:14: +tcfail023.hs:11: Couldn't match `B' against `Bool' Expected type: B Inferred type: Bool In the right-hand side of an equation for `op': True -tcfail023.hs:11: +tcfail023.hs:14: Couldn't match `B' against `Bool' Expected type: B Inferred type: Bool @@ -17,3 +17,4 @@ tcfail023.hs:11: Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail027.hs b/ghc/tests/typecheck/should_fail/tcfail027.hs index b80430b..b847c06 100644 --- a/ghc/tests/typecheck/should_fail/tcfail027.hs +++ b/ghc/tests/typecheck/should_fail/tcfail027.hs @@ -1,4 +1,4 @@ ---!!! tests for CycleErr in classes +-- !!! tests for CycleErr in classes class (B a) => A a where op1 :: a -> a diff --git a/ghc/tests/typecheck/should_fail/tcfail027.stderr b/ghc/tests/typecheck/should_fail/tcfail027.stderr index 5114e9c..241231c 100644 --- a/ghc/tests/typecheck/should_fail/tcfail027.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail027.stderr @@ -6,3 +6,4 @@ tcfail027.hs:3: Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail028.hs b/ghc/tests/typecheck/should_fail/tcfail028.hs index 8e8c294..3fb22ff 100644 --- a/ghc/tests/typecheck/should_fail/tcfail028.hs +++ b/ghc/tests/typecheck/should_fail/tcfail028.hs @@ -1,3 +1,3 @@ ---!!! tests for ArityErr +-- !!! tests for ArityErr data A a b = B (A a) diff --git a/ghc/tests/typecheck/should_fail/tcfail028.stderr b/ghc/tests/typecheck/should_fail/tcfail028.stderr index 2639267..3aa6f42 100644 --- a/ghc/tests/typecheck/should_fail/tcfail028.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail028.stderr @@ -1,10 +1,11 @@ tcfail028.hs:4: - Couldn't match `*?' against `$0 -> *' - Expected kind: *? - Inferred kind: $0 -> * - In the type `A a' - In the data declaration for `A' + Couldn't match `Type t' against `k -> *' + Expected kind: Type t + Inferred kind: k -> * + When checking that `A a' is a type + In the newtype declaration for `A' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail029.hs b/ghc/tests/typecheck/should_fail/tcfail029.hs index 4b8f2c6..14dd2d7 100644 --- a/ghc/tests/typecheck/should_fail/tcfail029.hs +++ b/ghc/tests/typecheck/should_fail/tcfail029.hs @@ -1,4 +1,4 @@ ---!!! tests for InstOpErr +-- !!! tests for InstOpErr module ShouldFail where data Foo = Bar | Baz diff --git a/ghc/tests/typecheck/should_fail/tcfail029.stderr b/ghc/tests/typecheck/should_fail/tcfail029.stderr index 2bca84f..5b997ac 100644 --- a/ghc/tests/typecheck/should_fail/tcfail029.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail029.stderr @@ -1,6 +1,8 @@ tcfail029.hs:6: - No instance for `Ord Foo' arising from use of `>' at tcfail029.hs:6 + No instance for `PrelBase.Ord Foo' + arising from use of `PrelBase.>' at tcfail029.hs:6 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail030.hs b/ghc/tests/typecheck/should_fail/tcfail030.hs index 2aa8659..87f21b2 100644 --- a/ghc/tests/typecheck/should_fail/tcfail030.hs +++ b/ghc/tests/typecheck/should_fail/tcfail030.hs @@ -1 +1 @@ ---!!! empty file +-- !!! empty file diff --git a/ghc/tests/typecheck/should_fail/tcfail030.stderr b/ghc/tests/typecheck/should_fail/tcfail030.stderr index 6271ba5..5ad8a23 100644 --- a/ghc/tests/typecheck/should_fail/tcfail030.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail030.stderr @@ -1,6 +1 @@ - -tcfail030.hs:0: - Module `Main' must include a definition for `Main.main' - - -Compilation had errors +tcfail030.hs:2:1: parse error on input: diff --git a/ghc/tests/typecheck/should_fail/tcfail031.stderr b/ghc/tests/typecheck/should_fail/tcfail031.stderr index f13bfaf..127c5bd 100644 --- a/ghc/tests/typecheck/should_fail/tcfail031.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail031.stderr @@ -8,3 +8,4 @@ tcfail031.hs:3: Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail032.stderr b/ghc/tests/typecheck/should_fail/tcfail032.stderr index 8601fba..d693416 100644 --- a/ghc/tests/typecheck/should_fail/tcfail032.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail032.stderr @@ -1,12 +1,17 @@ tcfail032.hs:14: Inferred type is less polymorphic than expected - Quantified type variable `a' escapes; i.e. unifies with something more global - When checking the type signature for an expression - Signature: a -> Int - Inferred: a -> Int + Quantified type variable `a' escapes + It is mentioned in the environment + The following variables in the environment mention `a' + x :: a -> Int + In an expression with expected type: forall + _97. + {PrelBase.Eq _97} => + _97 -> Int In an expression with a type signature: - x :: forall a. (PrelBase.Eq a) => a -> Int + x :: forall a. (Eq a) => a -> Int Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail033.stderr b/ghc/tests/typecheck/should_fail/tcfail033.stderr index 35db1ce..94522fa 100644 --- a/ghc/tests/typecheck/should_fail/tcfail033.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail033.stderr @@ -1,9 +1,10 @@ tcfail033.hs:4: - Occurs check: cannot construct the infinite type: $0 = ($0, $1) - Expected type: ($0, $1) - Inferred type: $0 + Occurs check: cannot construct the infinite type: t = (t, _116) + Expected type: (t, _116) + Inferred type: t In a list-comprehension qualifier: return x Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail034.stderr b/ghc/tests/typecheck/should_fail/tcfail034.stderr index aaa795f..2a326aa 100644 --- a/ghc/tests/typecheck/should_fail/tcfail034.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail034.stderr @@ -1,10 +1,12 @@ tcfail034.hs:17: - Could not deduce `Integral a' - (arising from use of `mod' at tcfail034.hs:17) - from the context (Num a, Eq a, test at [a]) - Probable cause: missing `Integral a' in type signature for `test' + Could not deduce `PrelNum.Integral a' + (arising from use of `PrelNum.mod' at tcfail034.hs:17) + from the context: (PrelBase.Num a, PrelBase.Eq a) + Probable cause: missing `PrelNum.Integral a' + in type signature for `test' When checking the type signature(s) for `test' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail035.hs b/ghc/tests/typecheck/should_fail/tcfail035.hs index 555fa70..8de6786 100644 --- a/ghc/tests/typecheck/should_fail/tcfail035.hs +++ b/ghc/tests/typecheck/should_fail/tcfail035.hs @@ -1,4 +1,4 @@ ---!!! instances with empty where parts: duplicate +-- !!! instances with empty where parts: duplicate -- module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail035.stderr b/ghc/tests/typecheck/should_fail/tcfail035.stderr index 10744cb..9db43b4 100644 --- a/ghc/tests/typecheck/should_fail/tcfail035.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail035.stderr @@ -1,64 +1,49 @@ -tcfail035.hs:9: Warning: - No explicit method nor default method for `showsPrec' - in an instance declaration for `Show' +tcfail035.hs:6: Warning: + No explicit method nor default method for `PrelBase.fromInteger' + in an instance declaration for `PrelBase.Num' -tcfail035.hs:8: Warning: - No explicit method nor default method for `==' - in an instance declaration for `Eq' +tcfail035.hs:6: Warning: + No explicit method nor default method for `PrelBase.signum' + in an instance declaration for `PrelBase.Num' -tcfail035.hs:7: Warning: - No explicit method nor default method for `fromInteger' - in an instance declaration for `Num' +tcfail035.hs:6: Warning: + No explicit method nor default method for `PrelBase.abs' + in an instance declaration for `PrelBase.Num' -tcfail035.hs:7: Warning: - No explicit method nor default method for `signum' - in an instance declaration for `Num' +tcfail035.hs:6: Warning: + No explicit method nor default method for `PrelBase.*' + in an instance declaration for `PrelBase.Num' -tcfail035.hs:7: Warning: - No explicit method nor default method for `abs' - in an instance declaration for `Num' +tcfail035.hs:6: Warning: + No explicit method nor default method for `PrelBase.+' + in an instance declaration for `PrelBase.Num' tcfail035.hs:7: Warning: - No explicit method nor default method for `negate' - in an instance declaration for `Num' + No explicit method nor default method for `PrelBase.fromInteger' + in an instance declaration for `PrelBase.Num' tcfail035.hs:7: Warning: - No explicit method nor default method for `*' - in an instance declaration for `Num' + No explicit method nor default method for `PrelBase.signum' + in an instance declaration for `PrelBase.Num' tcfail035.hs:7: Warning: - No explicit method nor default method for `+' - in an instance declaration for `Num' + No explicit method nor default method for `PrelBase.abs' + in an instance declaration for `PrelBase.Num' -tcfail035.hs:6: Warning: - No explicit method nor default method for `fromInteger' - in an instance declaration for `Num' - -tcfail035.hs:6: Warning: - No explicit method nor default method for `signum' - in an instance declaration for `Num' - -tcfail035.hs:6: Warning: - No explicit method nor default method for `abs' - in an instance declaration for `Num' - -tcfail035.hs:6: Warning: - No explicit method nor default method for `negate' - in an instance declaration for `Num' - -tcfail035.hs:6: Warning: - No explicit method nor default method for `*' - in an instance declaration for `Num' +tcfail035.hs:7: Warning: + No explicit method nor default method for `PrelBase.*' + in an instance declaration for `PrelBase.Num' -tcfail035.hs:6: Warning: - No explicit method nor default method for `+' - in an instance declaration for `Num' +tcfail035.hs:7: Warning: + No explicit method nor default method for `PrelBase.+' + in an instance declaration for `PrelBase.Num' tcfail035.hs:3: Duplicate or overlapping instance declarations - for `Num NUM' at tcfail035.hs:7 and tcfail035.hs:6 + for `PrelBase.Num NUM' at tcfail035.hs:6 and tcfail035.hs:7 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail036.hs b/ghc/tests/typecheck/should_fail/tcfail036.hs index 3b316a7..ade1720 100644 --- a/ghc/tests/typecheck/should_fail/tcfail036.hs +++ b/ghc/tests/typecheck/should_fail/tcfail036.hs @@ -1,4 +1,4 @@ ---!!! prelude class name in an instance-tycon position +-- !!! prelude class name in an instance-tycon position -- module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail036.stderr b/ghc/tests/typecheck/should_fail/tcfail036.stderr index bb262f4..175e247 100644 --- a/ghc/tests/typecheck/should_fail/tcfail036.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail036.stderr @@ -1,64 +1,57 @@ -tcfail036.hs:8: Warning: - No explicit method nor default method for `fromInteger' - in an instance declaration for `Num' +tcfail036.hs:7: Warning: + No explicit method nor default method for `PrelBase.fromInteger' + in an instance declaration for `PrelBase.Num' -tcfail036.hs:8: Warning: - No explicit method nor default method for `signum' - in an instance declaration for `Num' +tcfail036.hs:7: Warning: + No explicit method nor default method for `PrelBase.signum' + in an instance declaration for `PrelBase.Num' -tcfail036.hs:8: Warning: - No explicit method nor default method for `abs' - in an instance declaration for `Num' +tcfail036.hs:7: Warning: + No explicit method nor default method for `PrelBase.abs' + in an instance declaration for `PrelBase.Num' -tcfail036.hs:8: Warning: - No explicit method nor default method for `negate' - in an instance declaration for `Num' +tcfail036.hs:7: Warning: + No explicit method nor default method for `PrelBase.*' + in an instance declaration for `PrelBase.Num' tcfail036.hs:8: Warning: - No explicit method nor default method for `*' - in an instance declaration for `Num' + No explicit method nor default method for `PrelBase.fromInteger' + in an instance declaration for `PrelBase.Num' tcfail036.hs:8: Warning: - No explicit method nor default method for `+' - in an instance declaration for `Num' - -tcfail036.hs:7: Warning: - No explicit method nor default method for `fromInteger' - in an instance declaration for `Num' + No explicit method nor default method for `PrelBase.signum' + in an instance declaration for `PrelBase.Num' -tcfail036.hs:7: Warning: - No explicit method nor default method for `signum' - in an instance declaration for `Num' - -tcfail036.hs:7: Warning: - No explicit method nor default method for `abs' - in an instance declaration for `Num' +tcfail036.hs:8: Warning: + No explicit method nor default method for `PrelBase.abs' + in an instance declaration for `PrelBase.Num' -tcfail036.hs:7: Warning: - No explicit method nor default method for `negate' - in an instance declaration for `Num' +tcfail036.hs:8: Warning: + No explicit method nor default method for `PrelBase.*' + in an instance declaration for `PrelBase.Num' -tcfail036.hs:7: Warning: - No explicit method nor default method for `*' - in an instance declaration for `Num' +tcfail036.hs:8: Warning: + No explicit method nor default method for `PrelBase.+' + in an instance declaration for `PrelBase.Num' -tcfail036.hs:9: - Class used as a type constructor: Num - In the type `Eq Num' - tcfail036.hs:3: Duplicate or overlapping instance declarations - for `Num NUM' at tcfail036.hs:8 and tcfail036.hs:7 + for `PrelBase.Num NUM' at tcfail036.hs:7 and tcfail036.hs:8 + +tcfail036.hs:7: + No instance for `PrelBase.Show NUM' + arising from an instance declaration at tcfail036.hs:7 -tcfail036.hs:8: - No instance for `Show NUM' - arising from an instance declaration at tcfail036.hs:8 +tcfail036.hs:7: + No instance for `PrelBase.Eq NUM' + arising from an instance declaration at tcfail036.hs:7 -tcfail036.hs:8: - No instance for `Eq NUM' - arising from an instance declaration at tcfail036.hs:8 +tcfail036.hs:9: + Class used as a type constructor: Num + When checking kinds in `Eq Num' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail037.hs b/ghc/tests/typecheck/should_fail/tcfail037.hs index 998abd6..d2110c7 100644 --- a/ghc/tests/typecheck/should_fail/tcfail037.hs +++ b/ghc/tests/typecheck/should_fail/tcfail037.hs @@ -1,4 +1,4 @@ ---!!! PreludeCore entities cannot be redefined at the top-level +-- !!! PreludeCore entities cannot be redefined at the top-level -- module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail037.stderr b/ghc/tests/typecheck/should_fail/tcfail037.stderr index fbf7d46..8421c3b 100644 --- a/ghc/tests/typecheck/should_fail/tcfail037.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail037.stderr @@ -1,8 +1,19 @@ tcfail037.hs:3: - Conflicting definitions for `+' - Imported from `Prelude' at tcfail037.hs:3 - Defined at tcfail037.hs:10 + Ambiguous occurrence `+' + It could refer to: +: defined at tcfail037.hs:10 + PrelBase.+: imported from Prelude at tcfail037.hs:3 + +tcfail037.hs:7: + Ambiguous occurrence `+' + It could refer to: +: defined at tcfail037.hs:10 + PrelBase.+: imported from Prelude at tcfail037.hs:3 + +tcfail037.hs:10: + Ambiguous occurrence `+' + It could refer to: +: defined at tcfail037.hs:10 + PrelBase.+: imported from Prelude at tcfail037.hs:3 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail038.hs b/ghc/tests/typecheck/should_fail/tcfail038.hs index 905d9ae..1770bde 100644 --- a/ghc/tests/typecheck/should_fail/tcfail038.hs +++ b/ghc/tests/typecheck/should_fail/tcfail038.hs @@ -1,4 +1,4 @@ ---!!! duplicate class-method declarations +-- !!! duplicate class-method declarations module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail038.stderr b/ghc/tests/typecheck/should_fail/tcfail038.stderr index 84e74e1..dc70bbb 100644 --- a/ghc/tests/typecheck/should_fail/tcfail038.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail038.stderr @@ -1,9 +1,10 @@ -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 + +tcfail038.hs:8: + Conflicting definitions for `/=' in the bindings in an instance declaration Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail039.hs b/ghc/tests/typecheck/should_fail/tcfail039.hs index 10d501a..7672436 100644 --- a/ghc/tests/typecheck/should_fail/tcfail039.hs +++ b/ghc/tests/typecheck/should_fail/tcfail039.hs @@ -1,4 +1,4 @@ ---!!! bogus re-use of prelude class-method name (==) +-- !!! bogus re-use of prelude class-method name (==) -- module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail039.stderr b/ghc/tests/typecheck/should_fail/tcfail039.stderr index ad660bb..848dd21 100644 --- a/ghc/tests/typecheck/should_fail/tcfail039.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail039.stderr @@ -1,8 +1,9 @@ -tcfail039.hs:3: - Conflicting definitions for `==' - Imported from `Prelude' at tcfail039.hs:3 - Defined at tcfail039.hs:7 +tcfail039.hs:7: + Ambiguous occurrence `==' + It could refer to: ==: defined at tcfail039.hs:7 + PrelBase.==: imported from Prelude at tcfail039.hs:3 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail040.hs b/ghc/tests/typecheck/should_fail/tcfail040.hs index 16e5948..8ac06b3 100644 --- a/ghc/tests/typecheck/should_fail/tcfail040.hs +++ b/ghc/tests/typecheck/should_fail/tcfail040.hs @@ -1,4 +1,4 @@ ---!!! instances of functions +-- !!! instances of functions -- module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail040.stderr b/ghc/tests/typecheck/should_fail/tcfail040.stderr index b63b4a3..3ad40d6 100644 --- a/ghc/tests/typecheck/should_fail/tcfail040.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail040.stderr @@ -6,3 +6,4 @@ tcfail040.hs:19: Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail042.hs b/ghc/tests/typecheck/should_fail/tcfail042.hs index 03286e6..5fdf6c6 100644 --- a/ghc/tests/typecheck/should_fail/tcfail042.hs +++ b/ghc/tests/typecheck/should_fail/tcfail042.hs @@ -1,6 +1,6 @@ module ShouldFail where ---!!! weird class/instance examples off the haskell list +-- !!! weird class/instance examples off the haskell list -- class Foo a where foo :: a -> a diff --git a/ghc/tests/typecheck/should_fail/tcfail042.stderr b/ghc/tests/typecheck/should_fail/tcfail042.stderr index 2b62e0b..e5de9ff 100644 --- a/ghc/tests/typecheck/should_fail/tcfail042.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail042.stderr @@ -1,10 +1,12 @@ tcfail042.hs:18: - Could not deduce `Num a' + Could not deduce `PrelBase.Num a' (arising from an instance declaration at tcfail042.hs:18) - from the context (Eq a, Show a) - Probable cause: missing `Num a' in instance declaration context + from the context: (PrelBase.Eq a, PrelBase.Show a) + Probable cause: missing `PrelBase.Num a' + in instance declaration context When checking the superclasses of an instance declaration Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail043.stderr b/ghc/tests/typecheck/should_fail/tcfail043.stderr index edf14eb..e93d0b3 100644 --- a/ghc/tests/typecheck/should_fail/tcfail043.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail043.stderr @@ -1,13 +1,54 @@ tcfail043.hs:16: - Conflicting definitions for `and' - Imported from `Prelude' at tcfail043.hs:16 - Defined at tcfail043.hs:42 + Ambiguous occurrence `and' + It could refer to: and: defined at tcfail043.hs:42 + PrelList.and: imported from Prelude at tcfail043.hs:16 tcfail043.hs:16: - Conflicting definitions for `null' - Imported from `Prelude' at tcfail043.hs:16 - Defined at tcfail043.hs:57 + Ambiguous occurrence `null' + It could refer to: null: defined at tcfail043.hs:57 + PrelList.null: imported from Prelude at tcfail043.hs:16 + +tcfail043.hs:24: + Ambiguous occurrence `null' + It could refer to: null: defined at tcfail043.hs:57 + PrelList.null: imported from Prelude at tcfail043.hs:16 + +tcfail043.hs:24: + Ambiguous occurrence `null' + It could refer to: null: defined at tcfail043.hs:57 + PrelList.null: imported from Prelude at tcfail043.hs:16 + +tcfail043.hs:26: + Ambiguous occurrence `null' + It could refer to: null: defined at tcfail043.hs:57 + PrelList.null: imported from Prelude at tcfail043.hs:16 + +tcfail043.hs:26: + Ambiguous occurrence `and' + It could refer to: and: defined at tcfail043.hs:42 + PrelList.and: imported from Prelude at tcfail043.hs:16 + +tcfail043.hs:41: + Ambiguous occurrence `and' + It could refer to: and: defined at tcfail043.hs:42 + PrelList.and: imported from Prelude at tcfail043.hs:16 + +tcfail043.hs:42: + Ambiguous occurrence `and' + It could refer to: and: defined at tcfail043.hs:42 + PrelList.and: imported from Prelude at tcfail043.hs:16 + +tcfail043.hs:56: + Ambiguous occurrence `null' + It could refer to: null: defined at tcfail043.hs:57 + PrelList.null: imported from Prelude at tcfail043.hs:16 + +tcfail043.hs:57: + Ambiguous occurrence `null' + It could refer to: null: defined at tcfail043.hs:57 + PrelList.null: imported from Prelude at tcfail043.hs:16 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail044.hs b/ghc/tests/typecheck/should_fail/tcfail044.hs index 883f0ee..a013dd4 100644 --- a/ghc/tests/typecheck/should_fail/tcfail044.hs +++ b/ghc/tests/typecheck/should_fail/tcfail044.hs @@ -1,4 +1,4 @@ ---!!! tcfail044: duplicated type variable in instance decls +-- !!! tcfail044: duplicated type variable in instance decls -- module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail044.stderr b/ghc/tests/typecheck/should_fail/tcfail044.stderr index 6651435..5a3633d 100644 --- a/ghc/tests/typecheck/should_fail/tcfail044.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail044.stderr @@ -1,26 +1,23 @@ tcfail044.hs:12: Warning: - No explicit method nor default method for `signum' - in an instance declaration for `Num' + No explicit method nor default method for `PrelBase.signum' + in an instance declaration for `PrelBase.Num' tcfail044.hs:12: Warning: - No explicit method nor default method for `abs' - in an instance declaration for `Num' - -tcfail044.hs:5: Warning: - No explicit method nor default method for `==' - in an instance declaration for `Eq' + No explicit method nor default method for `PrelBase.abs' + in an instance declaration for `PrelBase.Num' -tcfail044.hs:12: - Illegal instance declaration for `Num (a -> a)' +tcfail044.hs:5: + Illegal instance declaration for `PrelBase.Eq (a -> a)' (the instance type must be of form (T a b c) where T is not a synonym, and a,b,c are distinct type variables) -tcfail044.hs:5: - Illegal instance declaration for `Eq (a -> a)' +tcfail044.hs:12: + Illegal instance declaration for `PrelBase.Num (a -> a)' (the instance type must be of form (T a b c) where T is not a synonym, and a,b,c are distinct type variables) Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail045.hs b/ghc/tests/typecheck/should_fail/tcfail045.hs index 2bff7e5..7f0699f 100644 --- a/ghc/tests/typecheck/should_fail/tcfail045.hs +++ b/ghc/tests/typecheck/should_fail/tcfail045.hs @@ -1,4 +1,4 @@ ---!!! a bad _CCallable thing (from a bug from Satnam) +-- !!! a bad _CCallable thing (from a bug from Satnam) -- module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail045.stderr b/ghc/tests/typecheck/should_fail/tcfail045.stderr index 017d224..7f7e5b7 100644 --- a/ghc/tests/typecheck/should_fail/tcfail045.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail045.stderr @@ -1,7 +1,8 @@ tcfail045.hs:10: Unacceptable instance type for ccall-ish class - class CCallable type Socket + class PrelGHC.CCallable type Socket Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail046.hs b/ghc/tests/typecheck/should_fail/tcfail046.hs index 25520d9..6f8185c 100644 --- a/ghc/tests/typecheck/should_fail/tcfail046.hs +++ b/ghc/tests/typecheck/should_fail/tcfail046.hs @@ -1,4 +1,4 @@ ---!! function types in deriving Eq things +-- !! function types in deriving Eq things -- From a bug report by Dave Harrison module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail046.stderr b/ghc/tests/typecheck/should_fail/tcfail046.stderr index 35a4086..27fbf4a 100644 --- a/ghc/tests/typecheck/should_fail/tcfail046.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail046.stderr @@ -1,7 +1,8 @@ tcfail046.hs:4: - No instance for `Eq (Process a)' + No instance for `PrelBase.Eq (Process a)' When deriving classes for `Message' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail047.stderr b/ghc/tests/typecheck/should_fail/tcfail047.stderr index 43e80b8..3d04691 100644 --- a/ghc/tests/typecheck/should_fail/tcfail047.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail047.stderr @@ -6,3 +6,4 @@ tcfail047.hs:7: Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail048.stderr b/ghc/tests/typecheck/should_fail/tcfail048.stderr index fd7bc0b..d138182 100644 --- a/ghc/tests/typecheck/should_fail/tcfail048.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail048.stderr @@ -3,3 +3,4 @@ tcfail048.hs:4: Type constructor or class not in scope: `B' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail049.stderr b/ghc/tests/typecheck/should_fail/tcfail049.stderr index 972ab29..3814659 100644 --- a/ghc/tests/typecheck/should_fail/tcfail049.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail049.stderr @@ -3,3 +3,4 @@ tcfail049.hs:3: Value not in scope: `g' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail050.stderr b/ghc/tests/typecheck/should_fail/tcfail050.stderr index e468e08..164fe3c 100644 --- a/ghc/tests/typecheck/should_fail/tcfail050.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail050.stderr @@ -3,3 +3,4 @@ tcfail050.hs:3: Data constructor not in scope: `B' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail051.stderr b/ghc/tests/typecheck/should_fail/tcfail051.stderr index bb2d989..6faa68c 100644 --- a/ghc/tests/typecheck/should_fail/tcfail051.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail051.stderr @@ -5,3 +5,4 @@ tcfail051.hs:4: Value not in scope: `op1' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail052.stderr b/ghc/tests/typecheck/should_fail/tcfail052.stderr index 8f15089..fb4b635 100644 --- a/ghc/tests/typecheck/should_fail/tcfail052.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail052.stderr @@ -3,3 +3,4 @@ tcfail052.hs:4: Type variable not in scope: `c' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail053.stderr b/ghc/tests/typecheck/should_fail/tcfail053.stderr index 6c9d899..39661e6 100644 --- a/ghc/tests/typecheck/should_fail/tcfail053.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail053.stderr @@ -3,3 +3,4 @@ tcfail053.hs:3: Type constructor or class not in scope: `A' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail054.stderr b/ghc/tests/typecheck/should_fail/tcfail054.stderr index a2dc363..5a22c7f 100644 --- a/ghc/tests/typecheck/should_fail/tcfail054.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail054.stderr @@ -3,3 +3,4 @@ tcfail054.hs:3: Data constructor not in scope: `B' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail055.stderr b/ghc/tests/typecheck/should_fail/tcfail055.stderr index ab6941b..46f3d64 100644 --- a/ghc/tests/typecheck/should_fail/tcfail055.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail055.stderr @@ -7,3 +7,4 @@ tcfail055.hs:3: Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail056.stderr b/ghc/tests/typecheck/should_fail/tcfail056.stderr index 8a2f7ba..1bc765d 100644 --- a/ghc/tests/typecheck/should_fail/tcfail056.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail056.stderr @@ -1,14 +1,10 @@ -tcfail056.hs:10: Warning: - No explicit method nor default method for `==' - in an instance declaration for `Eq' - - tcfail056.hs:1: Duplicate or overlapping instance declarations - for `Eq Foo' at tcfail056.hs:10 and tcfail056.hs:6 + for `PrelBase.Eq Foo' at tcfail056.hs:6 and tcfail056.hs:10 -tcfail056.hs:10: Class `Eq' does not have a method `<=' +tcfail056.hs:10: Class `PrelBase.Eq' does not have a method `<=' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail057.hs b/ghc/tests/typecheck/should_fail/tcfail057.hs index bef0085..9659cf0 100644 --- a/ghc/tests/typecheck/should_fail/tcfail057.hs +++ b/ghc/tests/typecheck/should_fail/tcfail057.hs @@ -1,6 +1,6 @@ module ShouldFail where ---!!! inadvertently using -> instead of => +-- !!! inadvertently using -> instead of => f :: (RealFrac a) -> a -> a f x = x diff --git a/ghc/tests/typecheck/should_fail/tcfail057.stderr b/ghc/tests/typecheck/should_fail/tcfail057.stderr index c697dd1..87aff59 100644 --- a/ghc/tests/typecheck/should_fail/tcfail057.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail057.stderr @@ -1,7 +1,8 @@ tcfail057.hs:5: Class used as a type constructor: RealFrac - In the type `forall a. RealFrac a -> a -> a' + When checking kinds in `RealFrac a' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail058.hs b/ghc/tests/typecheck/should_fail/tcfail058.hs index c05c859..d8315b8 100644 --- a/ghc/tests/typecheck/should_fail/tcfail058.hs +++ b/ghc/tests/typecheck/should_fail/tcfail058.hs @@ -1,7 +1,7 @@ module ShouldFail where import Array ---!!! inadvertently using => instead of -> +-- !!! inadvertently using => instead of -> f :: (Array a) => a -> b f x = x diff --git a/ghc/tests/typecheck/should_fail/tcfail058.stderr b/ghc/tests/typecheck/should_fail/tcfail058.stderr index 8a9b740..544e506 100644 --- a/ghc/tests/typecheck/should_fail/tcfail058.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail058.stderr @@ -1,8 +1,8 @@ tcfail058.hs:6: - Type constructor used as a class: PrelArr.Array - In the context `(PrelArr.Array a) =>' - In the type `forall a b. (PrelArr.Array a) => a -> b' + Type constructor used as a class: Array + When checking kinds in `Array a' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail061.hs b/ghc/tests/typecheck/should_fail/tcfail061.hs index 2957e80..35e502c 100644 --- a/ghc/tests/typecheck/should_fail/tcfail061.hs +++ b/ghc/tests/typecheck/should_fail/tcfail061.hs @@ -1,4 +1,4 @@ ---!! signature bugs exposed by Sigbjorne Finne +-- !! signature bugs exposed by Sigbjorn Finne -- module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail061.stderr b/ghc/tests/typecheck/should_fail/tcfail061.stderr index bf03794..6375a06 100644 --- a/ghc/tests/typecheck/should_fail/tcfail061.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail061.stderr @@ -1,11 +1,12 @@ -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' + +tcfail061.hs:11: Type variable not in scope: `b' + +tcfail061.hs:11: Type variable not in scope: `b' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail062.hs b/ghc/tests/typecheck/should_fail/tcfail062.hs index b7391d6..f37dc1e 100644 --- a/ghc/tests/typecheck/should_fail/tcfail062.hs +++ b/ghc/tests/typecheck/should_fail/tcfail062.hs @@ -1,4 +1,4 @@ ---!!! bug report from Satnam +-- !!! bug report from Satnam -- module ShouldFail where @@ -32,6 +32,6 @@ data BehaviouralExpression type BehaviouralRelation = (behaviouralExpression, behaviouralExpression) ------^ typo ----------------^ typo (but so what?) +---- ^ typo ----------------^ typo (but so what?) type BehaviouralRelationList = [BehaviouralRelation] diff --git a/ghc/tests/typecheck/should_fail/tcfail062.stderr b/ghc/tests/typecheck/should_fail/tcfail062.stderr index 7cffa7b..362a460 100644 --- a/ghc/tests/typecheck/should_fail/tcfail062.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail062.stderr @@ -7,3 +7,4 @@ tcfail062.hs:33: Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail063.hs b/ghc/tests/typecheck/should_fail/tcfail063.hs index 562cdf4..3be3644 100644 --- a/ghc/tests/typecheck/should_fail/tcfail063.hs +++ b/ghc/tests/typecheck/should_fail/tcfail063.hs @@ -1,5 +1,5 @@ ---!!! no type variable on a context ---!!! reported by Sigbjorn Finne +-- !!! no type variable on a context +-- !!! reported by Sigbjorn Finne moby :: Num => Int -> a -> Int moby x y = x+y diff --git a/ghc/tests/typecheck/should_fail/tcfail065.stderr b/ghc/tests/typecheck/should_fail/tcfail065.stderr index 580ebf6..a19293a 100644 --- a/ghc/tests/typecheck/should_fail/tcfail065.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail065.stderr @@ -1,11 +1,13 @@ tcfail065.hs:29: Inferred type is less polymorphic than expected - Quantified type variable `x' escapes; i.e. unifies with something more global - When checking the type signature for `setX' - Signature: x -> X x1 -> X x1 - Inferred: x -> X x -> X x + Quantified type variable `x' escapes + It is mentioned in the environment + The following variables in the environment mention `x' + When checking the type signature + setX :: forall _1201. _1201 -> X _120 -> X _120 In the definition for method `setX' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail067.stderr b/ghc/tests/typecheck/should_fail/tcfail067.stderr index ccaac4a..b243791 100644 --- a/ghc/tests/typecheck/should_fail/tcfail067.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail067.stderr @@ -1,34 +1,38 @@ tcfail067.hs:65: Warning: - No explicit method nor default method for `signum' - in an instance declaration for `Num' + No explicit method nor default method for `PrelBase.signum' + in an instance declaration for `PrelBase.Num' tcfail067.hs:65: Warning: - No explicit method nor default method for `abs' - in an instance declaration for `Num' + No explicit method nor default method for `PrelBase.abs' + in an instance declaration for `PrelBase.Num' -tcfail067.hs:76: - Could not deduce `Ord a' - (arising from use of `SubRange' at tcfail067.hs:76) - from the context (Num a, numSubRangeBinOp at [a]) - Probable cause: missing `Ord a' in type signature for `numSubRangeBinOp' - When checking the type signature(s) for `numSubRangeBinOp' - tcfail067.hs:65: - Could not deduce `Ord a' + Could not deduce `PrelBase.Ord a' (arising from use of `SubRange' at tcfail067.hs:65) - from the context (Num (SubRange a), Num a, Eq (SubRange a), Show (SubRange a), Eq (SubRange a), Show (SubRange a), fromInt at [SubRange a], fromInteger at [SubRange a], signum at [SubRange a], abs at [SubRange a], negate at [SubRange a], * at [SubRange a], - at [SubRange a], + at [SubRange a]) - Probable cause: missing `Ord a' in instance declaration context + from the context: (PrelBase.Num (SubRange _97), PrelBase.Num _97, PrelBase.Eq (SubRange _97), PrelBase.Show (SubRange _97), PrelBase.Eq (SubRange _97), PrelBase.Show (SubRange _97)) + Probable cause: missing `PrelBase.Ord a' + in instance declaration context When checking the methods of an instance declaration tcfail067.hs:65: - Could not deduce `Show (SubRange a)' + Could not deduce `PrelBase.Show (SubRange a)' (arising from an instance declaration at tcfail067.hs:65) - from the context (Num a) - Probable cause: missing `Show (SubRange a)' in instance declaration context - or missing instance declaration for `Show (SubRange a)' + from the context: (PrelBase.Num _97) + Probable cause: missing `PrelBase.Show (SubRange a)' + in instance declaration context + or missing instance declaration for `PrelBase.Show (SubRange a)' When checking the superclasses of an instance declaration + +tcfail067.hs:74: + Could not deduce `PrelBase.Ord a' + (arising from use of `SubRange' at tcfail067.hs:74) + from the context: (PrelBase.Num a) + Probable cause: missing `PrelBase.Ord a' + in type signature for `numSubRangeBinOp' + When checking the type signature(s) for `numSubRangeBinOp' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail068.hs b/ghc/tests/typecheck/should_fail/tcfail068.hs index 75e0125..dc5fc23 100644 --- a/ghc/tests/typecheck/should_fail/tcfail068.hs +++ b/ghc/tests/typecheck/should_fail/tcfail068.hs @@ -1,5 +1,5 @@ ---!! Make sure that state threads don't escape ---!! (example from Neil Ashton at York) +-- !! Make sure that state threads don't escape +-- !! (example from Neil Ashton at York) -- module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail068.stderr b/ghc/tests/typecheck/should_fail/tcfail068.stderr index beba5e1..ebd2b1a 100644 --- a/ghc/tests/typecheck/should_fail/tcfail068.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail068.stderr @@ -1,30 +1,25 @@ -tcfail068.hs:45: +tcfail068.hs:12: Inferred type is less polymorphic than expected - Quantified type variable `$a' escapes; i.e. unifies with something more global - When checking the type signature for an expression - Signature: ST $b $a1 - Inferred: ST $a (c, IndTree $a b) - In the first argument of `runST', namely `(itrapstate' i k s)' - In the right-hand side of an equation for `itrapstate': - runST (itrapstate' i k s) - -tcfail068.hs:32: - Inferred type is less polymorphic than expected - Quantified type variable `$a' escapes; i.e. unifies with something more global - When checking the type signature for an expression - Signature: ST $b $a1 - Inferred: ST $a (IndTree $a a) - In the first argument of `runST', namely `(itrap' i k)' - In the right-hand side of an equation for `itrap': - runST (itrap' i k) + Quantified type variable `s' escapes + It unifies with `_115', which is mentioned in the environment + The following variables in the environment mention `_115' + In an expression with expected type: forall + _1151. + PrelST.ST _1151 a + In the first argument of `runST', namely `(newArray ((1, 1), n) x)' + In the right-hand side of an equation for `itgen': + runST (newArray ((1, 1), n) x) -tcfail068.hs:21: +tcfail068.hs:17: Inferred type is less polymorphic than expected - Quantified type variable `$a' escapes; i.e. unifies with something more global - When checking the type signature for an expression - Signature: ST $b $a1 - Inferred: ST $a (IndTree $a a) + Quantified type variable `s' escapes + It unifies with `_115', which is mentioned in the environment + The following variables in the environment mention `_115' + arr :: IndTree _115 a + In an expression with expected type: forall + _1151. + PrelST.ST _1151 _97 In the first argument of `runST', namely `((readArray arr i) >>= (\ val -> (writeArray arr i (f val)) >> (return arr)))' @@ -32,15 +27,42 @@ tcfail068.hs:21: runST ((readArray arr i) >>= (\ val -> (writeArray arr i (f val)) >> (return arr))) -tcfail068.hs:14: +tcfail068.hs:24: Inferred type is less polymorphic than expected - Quantified type variable `$c' escapes; i.e. unifies with something more global - When checking the type signature for an expression - Signature: ST $b $a - Inferred: ST $c (IndTree $c $b1) - In the first argument of `runST', namely `(newArray ((1, 1), n) x)' - In the right-hand side of an equation for `itgen': - runST (newArray ((1, 1), n) x) + Quantified type variable `s' escapes + It unifies with `_115', which is mentioned in the environment + The following variables in the environment mention `_115' + arr :: IndTree _115 a + itrap' :: Int -> Int -> PrelST.ST _115 (IndTree _115 a) + itrapsnd :: Int -> Int -> PrelST.ST _115 (IndTree _115 a) + In an expression with expected type: forall + _1151. + PrelST.ST _1151 _97 + In the first argument of `runST', namely `(itrap' i k)' + In the right-hand side of an equation for `itrap': + runST (itrap' i k) + +tcfail068.hs:36: + Inferred type is less polymorphic than expected + Quantified type variable `s' escapes + It unifies with `_115', which is mentioned in the environment + The following variables in the environment mention `_115' + arr :: IndTree _115 b + itrapstate' :: Int + -> Int + -> c + -> PrelST.ST _115 (c, IndTree _115 b) + itrapstatesnd :: Int + -> Int + -> c + -> PrelST.ST _115 (c, IndTree _115 b) + In an expression with expected type: forall + _1151. + PrelST.ST _1151 a + In the first argument of `runST', namely `(itrapstate' i k s)' + In the right-hand side of an equation for `itrapstate': + runST (itrapstate' i k s) Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail069.stderr b/ghc/tests/typecheck/should_fail/tcfail069.stderr index e8cb82b..ed4c383 100644 --- a/ghc/tests/typecheck/should_fail/tcfail069.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail069.stderr @@ -1,10 +1,11 @@ tcfail069.hs:20: - Couldn't match `[$0]' against `($1, $2)' - Expected type: [$0] - Inferred type: ($1, $2) + Couldn't match `[t]' against `(_116, _1161)' + Expected type: [t] + Inferred type: (_116, _1161) In the scrutinee of a case expression: (list1, list2) In the case expression: case (list1, list2) of [] -> error "foo" Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail070.stderr b/ghc/tests/typecheck/should_fail/tcfail070.stderr index 553969d..e38c186 100644 --- a/ghc/tests/typecheck/should_fail/tcfail070.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail070.stderr @@ -1,10 +1,11 @@ tcfail070.hs:13: - Couldn't match `*' against `* -> $0' + Couldn't match `*' against `* -> k' Expected kind: * - Inferred kind: * -> $0 - In the type `[Int] Bool' - In the type declaration for `State' + Inferred kind: * -> k + When checking kinds in `[Int] Bool' + In the type synonym declaration for `State' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail071.hs b/ghc/tests/typecheck/should_fail/tcfail071.hs index 9aa6f07..cadf1b5 100644 --- a/ghc/tests/typecheck/should_fail/tcfail071.hs +++ b/ghc/tests/typecheck/should_fail/tcfail071.hs @@ -1,4 +1,4 @@ ---!!! Mis-matched contexts in a mutually recursive group +-- !!! Mis-matched contexts in a mutually recursive group module ShouldFail where diff --git a/ghc/tests/typecheck/should_fail/tcfail071.stderr b/ghc/tests/typecheck/should_fail/tcfail071.stderr index ef059b3..ac174a7 100644 --- a/ghc/tests/typecheck/should_fail/tcfail071.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail071.stderr @@ -1,10 +1,9 @@ tcfail071.hs:8: Inferred type is less polymorphic than expected - Quantified type variable `c' is unified with `$a -> [$0] -> [$0]' - When checking the type signature for `g' - Signature: c -> c - Inferred: ($a -> [$0] -> [$0]) -> $a -> [$0] -> [$0] + Quantified type variable `c' is unified with `a -> [t] -> [t]' + When checking the type signature g :: forall _99. _99 -> _99 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail072.stderr b/ghc/tests/typecheck/should_fail/tcfail072.stderr index 53d3071..d64a33f 100644 --- a/ghc/tests/typecheck/should_fail/tcfail072.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail072.stderr @@ -1,13 +1,14 @@ tcfail072.hs:23: Ambiguous type variable(s) `p' - in the constraint `Ord p' + in the constraint `PrelBase.Ord p' arising from use of `g' at tcfail072.hs:23 tcfail072.hs:23: Ambiguous type variable(s) `q' - in the constraint `Ord q' + in the constraint `PrelBase.Ord q' arising from use of `g' at tcfail072.hs:23 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail073.stderr b/ghc/tests/typecheck/should_fail/tcfail073.stderr index b02320d..52038da 100644 --- a/ghc/tests/typecheck/should_fail/tcfail073.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail073.stderr @@ -1,14 +1,16 @@ tcfail073.hs:3: Duplicate or overlapping instance declarations - for `Eq ($a, $b)' at PrelTup.hi:14 and tcfail073.hs:8 + for `PrelBase.Eq (a, b)' at PrelTup.hi:14 and tcfail073.hs:8 tcfail073.hs:8: - Could not deduce `Eq a' - (arising from use of `==' at tcfail073.hs:8) - from the context (Eq (a, b), /= at [(a, b)], == at [(a, b)]) - Probable cause: missing `Eq a' in instance declaration context + Could not deduce `PrelBase.Eq a' + (arising from use of `PrelBase.==' at tcfail073.hs:8) + from the context: (PrelBase.Eq (a, b)) + Probable cause: missing `PrelBase.Eq a' + in instance declaration context When checking the methods of an instance declaration Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail074.stderr b/ghc/tests/typecheck/should_fail/tcfail074.stderr index 83bb80a..9456d4e 100644 --- a/ghc/tests/typecheck/should_fail/tcfail074.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail074.stderr @@ -1,8 +1,9 @@ tcfail074.hs:7: - Conflicting definitions for `main' - Defined at tcfail074.hs:8 - Defined at tcfail074.hs:7 + Multiple declarations of `main' + defined at tcfail074.hs:7 + defined at tcfail074.hs:8 Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail075.hs b/ghc/tests/typecheck/should_fail/tcfail075.hs index 202c6aa..dc89810 100644 --- a/ghc/tests/typecheck/should_fail/tcfail075.hs +++ b/ghc/tests/typecheck/should_fail/tcfail075.hs @@ -1,4 +1,4 @@ ---!! Test top-level unboxed types +-- !! Test top-level unboxed types {-# OPTIONS -fglasgow-exts #-} diff --git a/ghc/tests/typecheck/should_fail/tcfail076.stderr b/ghc/tests/typecheck/should_fail/tcfail076.stderr index fa09963..ae09933 100644 --- a/ghc/tests/typecheck/should_fail/tcfail076.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail076.stderr @@ -1,13 +1,17 @@ tcfail076.hs:18: Inferred type is less polymorphic than expected - Quantified type variable `res' escapes; i.e. unifies with something more global - When checking the type signature for an expression - Signature: (a -> m res1) -> m res1 - Inferred: (a -> m res) -> m res + Quantified type variable `res' escapes + It unifies with `_114_101_115', which is mentioned in the environment + The following variables in the environment mention `_114_101_115' + cont :: a -> m _114_101_115 + In an expression with expected type: forall + _114_101_1151. + (_97 -> m _114_101_1151) -> m _114_101_1151 In the first argument of `KContT', namely `(\ cont' -> cont a)' In the right-hand side of a lambda abstraction: KContT (\ cont' -> cont a) Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail077.hs b/ghc/tests/typecheck/should_fail/tcfail077.hs index 6070a5b..54735b9 100644 --- a/ghc/tests/typecheck/should_fail/tcfail077.hs +++ b/ghc/tests/typecheck/should_fail/tcfail077.hs @@ -1,6 +1,6 @@ module ShouldFail where ---!!! declaring a default method in a class that doesn't have that method. +-- !!! declaring a default method in a class that doesn't have that method. class Foo a where op :: a -> a diff --git a/ghc/tests/typecheck/should_fail/tcfail077.stderr b/ghc/tests/typecheck/should_fail/tcfail077.stderr index 8a65a2e..7a3a74d 100644 --- a/ghc/tests/typecheck/should_fail/tcfail077.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail077.stderr @@ -3,3 +3,4 @@ tcfail077.hs:8: Value not in scope: `op2' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail078.hs b/ghc/tests/typecheck/should_fail/tcfail078.hs index 23e93b5..1054f6d 100644 --- a/ghc/tests/typecheck/should_fail/tcfail078.hs +++ b/ghc/tests/typecheck/should_fail/tcfail078.hs @@ -1,6 +1,6 @@ module ShouldFail where ---!!! Using a type constructor as a class name +-- !!! Using a type constructor as a class name f :: Integer i => i f = 0 diff --git a/ghc/tests/typecheck/should_fail/tcfail078.stderr b/ghc/tests/typecheck/should_fail/tcfail078.stderr index ed2c64a..cb15a3a 100644 --- a/ghc/tests/typecheck/should_fail/tcfail078.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail078.stderr @@ -1,8 +1,8 @@ tcfail078.hs:5: Type constructor used as a class: Integer - In the context `(Integer i) =>' - In the type `forall i. (Integer i) => i' + When checking kinds in `Integer i' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail079.hs b/ghc/tests/typecheck/should_fail/tcfail079.hs index 273ddfc..33aeaa3 100644 --- a/ghc/tests/typecheck/should_fail/tcfail079.hs +++ b/ghc/tests/typecheck/should_fail/tcfail079.hs @@ -2,7 +2,7 @@ module ShouldFail where ---!!! unboxed field in newtype declaration +-- !!! unboxed field in newtype declaration import GlaExts ( Int# ) diff --git a/ghc/tests/typecheck/should_fail/tcfail079.stderr b/ghc/tests/typecheck/should_fail/tcfail079.stderr index c25c1ba..963dafb 100644 --- a/ghc/tests/typecheck/should_fail/tcfail079.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail079.stderr @@ -1,7 +1,11 @@ tcfail079.hs:9: - Newtype constructor field has an unboxed type: `Int#' - In the newtype declaration for `Unboxed' + Couldn't match `*' against `#' + Expected kind: * + Inferred kind: # + When checking that `Int#' is a type + In the data type declaration for `Unboxed' Compilation had errors + diff --git a/ghc/tests/typecheck/should_fail/tcfail080.hs b/ghc/tests/typecheck/should_fail/tcfail080.hs index f64fe1c..4813068 100644 --- a/ghc/tests/typecheck/should_fail/tcfail080.hs +++ b/ghc/tests/typecheck/should_fail/tcfail080.hs @@ -1,4 +1,4 @@ ---!!! Multi-param type classes test: ambiguity bug +-- !!! Multi-param type classes test: ambiguity bug module ShouldFail where class Collection c a where diff --git a/ghc/tests/typecheck/should_fail/tcfail080.stderr b/ghc/tests/typecheck/should_fail/tcfail080.stderr index 8a336d9..714b14f 100644 --- a/ghc/tests/typecheck/should_fail/tcfail080.stderr +++ b/ghc/tests/typecheck/should_fail/tcfail080.stderr @@ -6,3 +6,4 @@ tcfail080.hs:11: Compilation had errors + diff --git a/ghc/tests/typecheck/should_run/tcrun001.hs b/ghc/tests/typecheck/should_run/tcrun001.hs index 00b4945..209ca3f 100644 --- a/ghc/tests/typecheck/should_run/tcrun001.hs +++ b/ghc/tests/typecheck/should_run/tcrun001.hs @@ -1,4 +1,4 @@ ---!! Test for (->) instances +-- !! Test for (->) instances module Main where diff --git a/ghc/tests/typecheck/should_run/tcrun002.hs b/ghc/tests/typecheck/should_run/tcrun002.hs index 3e27872..348ca22 100644 --- a/ghc/tests/typecheck/should_run/tcrun002.hs +++ b/ghc/tests/typecheck/should_run/tcrun002.hs @@ -1,4 +1,4 @@ ---!!! space leak from overloading !!! +-- !!! space leak from overloading !!! module Main where -- This program develops a space leak if sfoldl isn't compiled with some -- 1.7.10.4