[project @ 1999-02-09 10:12:24 by sof]

Updated + added Main.main regression test.

ghc/tests/typecheck/should_compile/tc055.stderr

 ghc: module version changed to 1; reason: no old .hi file
 __export ShouldSucceed x y;
-1 x :: __forall [t _116] => t -> t ;
-1 y :: __forall [t _116] => _116 -> _116 ;
+1 x :: __forall [t t1] => t -> t ;
+1 y :: __forall [t t1] => t1 -> t1 ;

ghc/tests/typecheck/should_compile/tc056.stderr

- 
-tc056.hs:15: Warning:
-    Duplicate class assertion `Eq' a' in the context: (Eq' a, Eq' a) =>
+
+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
-__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 ;
+__export ShouldSucceed Eqzq{doubleeq} Ordzq{lt} f;
+instance {Eqzq PrelBase.Int} = zdfEqzqInt;
+instance __forall [a] {Eqzq a, Eqzq a} => {Eqzq [a]} = zdfEqzqZMZN;
+1 class Eqzq a where {doubleeq :: a -> a -> PrelBase.Bool} ;
+1 class {Eqzq a}  => Ordzq a where {lt :: a -> a -> PrelBase.Bool} ;
+1 f :: __forall [t t1] {PrelBase.Num t1, Eqzq [t1]} => [t1] -> t -> PrelBase.Bool ;
+1 zdfEqzqInt :: {Eqzq PrelBase.Int} ;
+1 zdfEqzqZMZN :: __forall [a] {Eqzq a} => {Eqzq [a]} ;

ghc/tests/typecheck/should_compile/tc057.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__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} ;
+__export ShouldSucceed Eqzq{deq} dand f;
+instance {Eqzq PrelBase.Int} = zdfEqzqInt;
+instance __forall [a] {Eqzq a} => {Eqzq [a]} = zdfEqzqZMZN;
+1 class Eqzq 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 ;
+1 f :: __forall [a] {Eqzq a} => a -> a -> PrelBase.Bool ;
+1 zdfEqzqInt :: {Eqzq PrelBase.Int} ;
+1 zdfEqzqZMZN :: __forall [a] {Eqzq a} => {Eqzq [a]} ;

ghc/tests/typecheck/should_compile/tc058.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__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]} ;
+__export ShouldSucceed Eq2{doubleeq} Ord2{lt} f;
+instance {Eq2 PrelBase.Int} = zdfEq2Int;
+instance __forall [a] {Eq2 a, Ord2 a} => {Eq2 [a]} = zdfEq2ZMZN;
+instance {Ord2 PrelBase.Int} = zdfOrd2Int;
 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 ;
+1 f :: __forall [t t1] {PrelBase.Num t1, Eq2 [t1]} => [t1] -> t -> PrelBase.Bool ;
+1 zdfEq2Int :: {Eq2 PrelBase.Int} ;
+1 zdfEq2ZMZN :: __forall [a] {Eq2 a, Ord2 a} => {Eq2 [a]} ;
+1 zdfOrd2Int :: {Ord2 PrelBase.Int} ;

ghc/tests/typecheck/should_compile/tc059.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__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]} ;
+__export ShouldSucceed Eq2{foo deq} f;
+instance {Eq2 PrelBase.Int} = zdfEq2Int;
+instance __forall [a] {Eq2 a} => {Eq2 [a]} = zdfEq2ZMZN;
 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 ;
+1 zdfEq2Int :: {Eq2 PrelBase.Int} ;
+1 zdfEq2ZMZN :: __forall [a] {Eq2 a} => {Eq2 [a]} ;

ghc/tests/typecheck/should_compile/tc060.stderr

 ghc: module version changed to 1; reason: no old .hi file
 __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]} ;
+instance {Eq2 PrelBase.Int} = zdfEq2Int;
+instance __forall [a] {Eq2 a} => {Eq2 [a]} = zdfEq2ZMZN;
 1 class Eq2 a where {deq :: a -> a -> PrelBase.Bool} ;
+1 zdfEq2Int :: {Eq2 PrelBase.Int} ;
+1 zdfEq2ZMZN :: __forall [a] {Eq2 a} => {Eq2 [a]} ;

ghc/tests/typecheck/should_compile/tc061.stderr

 ghc: module version changed to 1; reason: no old .hi file
 __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]} ;
+instance {Eq1 PrelBase.Int} = zdfEq1Int;
+instance __forall [a] {Eq1 a} => {Eq1 [a]} = zdfEq1ZMZN;
 1 class Eq1 a where {deq :: a -> a -> PrelBase.Bool} ;
+1 zdfEq1Int :: {Eq1 PrelBase.Int} ;
+1 zdfEq1ZMZN :: __forall [a] {Eq1 a} => {Eq1 [a]} ;

ghc/tests/typecheck/should_compile/tc062.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__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]} ;
+__export ShouldSucceed Eq1{deq} f;
+instance {Eq1 PrelBase.Int} = zdfEq1Int;
+instance __forall [a] {Eq1 a} => {Eq1 [a]} = zdfEq1ZMZN;
 1 class Eq1 a where {deq :: a -> a -> PrelBase.Bool} ;
 1 f :: __forall [t] {Eq1 [t]} => [t] -> [t] -> PrelBase.Bool ;
+1 zdfEq1Int :: {Eq1 PrelBase.Int} ;
+1 zdfEq1ZMZN :: __forall [a] {Eq1 a} => {Eq1 [a]} ;

ghc/tests/typecheck/should_compile/tc063.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__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)} ;
+__export ShouldSucceed Reps{f} X{Tag} g;
+instance {Reps PrelBase.Bool} = zdfRepsBool;
+instance __forall [q] => {Reps (X q)} = zdfRepsX;
 1 class Reps r where {f :: r -> r -> r} ;
 1 data X a = Tag a ;
 1 g :: __forall [r] {Reps r} => r -> r ;
+1 zdfRepsBool :: {Reps PrelBase.Bool} ;
+1 zdfRepsX :: __forall [q] => {Reps (X q)} ;

ghc/tests/typecheck/should_compile/tc064.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__export ShouldSucceed idb Boolean{FF TT};
+__export ShouldSucceed Boolean{FF TT} idb;
 1 data Boolean = FF |  TT ;
 1 idb :: Boolean -> Boolean ;

ghc/tests/typecheck/should_compile/tc065.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__export ShouldSucceed dfs isCyclic isRecursiveCycle lookupVertex mkDigraph mkEdges mkVertices stronglyConnComp topSort Cycle Digraph{MkDigraph} Edge FlattenedDependencyInfo MaybeErr{Succeeded Failed};
+__export ShouldSucceed Cycle Digraph{MkDigraph} Edge FlattenedDependencyInfo MaybeErr{Succeeded Failed} dfs isCyclic isRecursiveCycle lookupVertex mkDigraph mkEdges mkVertices stronglyConnComp topSort;
 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]) ;

ghc/tests/typecheck/should_compile/tc066.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__export ShouldSucceed f Pair{MkPair};
+__export ShouldSucceed Pair{MkPair} f;
 1 data Pair a b = MkPair a b ;
 1 f :: __forall [a b] => [Pair a b] -> [b] ;

ghc/tests/typecheck/should_compile/tc068.stderr

 ghc: module version changed to 1; reason: no old .hi file
 __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)} ;
+instance __forall [b] {PrelBase.Eq b} => {PrelBase.Eq (B b)} = zdfEqB;
+instance __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} = zdfEqT;
 1 data B b = X |  Y b ;
 1 data T a = D (B a) |  C ;
+1 zdfEqB :: __forall [b] {PrelBase.Eq b} => {PrelBase.Eq (B b)} ;
+1 zdfEqT :: __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} ;

ghc/tests/typecheck/should_compile/tc070.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__export ShouldSucceed idb Boolean{FF TT};
+__export ShouldSucceed Boolean{FF TT} idb;
 1 data Boolean = FF |  TT ;
 1 idb :: Boolean -> Boolean ;

ghc/tests/typecheck/should_compile/tc074.stderr

 ghc: module version changed to 1; reason: no old .hi file
 __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)} ;
+instance __forall [b] {PrelBase.Eq b} => {PrelBase.Eq (B b)} = zdfEqB;
+instance __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} = zdfEqT;
 1 data B b = X |  Y b ;
 1 data T a = D (B a) |  C ;
+1 zdfEqB :: __forall [b] {PrelBase.Eq b} => {PrelBase.Eq (B b)} ;
+1 zdfEqT :: __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} ;

ghc/tests/typecheck/should_compile/tc077.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__export ShouldSucceed EQ{===} NUM{ONE TWO} ORD;
-1 class {ORD a, PrelBase.Show a}  => EQ a where {=== :: a -> a -> PrelBase.Bool} ;
+__export ShouldSucceed EQ{zezeze} NUM{ONE TWO} ORD;
+1 class {ORD a, PrelBase.Show a}  => EQ a where {zezeze :: a -> a -> PrelBase.Bool} ;
 1 class {PrelBase.Num a}  => ORD a ;
 1 data NUM = ONE |  TWO ;

ghc/tests/typecheck/should_compile/tc078.stderr

 ghc: module version changed to 1; reason: no old .hi file
 __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)} ;
+instance __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (Bar a)} = zdfEqBar;
+instance __forall [a] {PrelBase.Ord a} => {PrelBase.Ord (Bar a)} = zdfOrdBar;
 1 data Bar a = MkBar PrelBase.Int a ;
+1 zdfEqBar :: __forall [a] {PrelBase.Eq a} => {PrelBase.Eq (Bar a)} ;
+1 zdfOrdBar :: __forall [a] {PrelBase.Ord a, PrelBase.Eq (Bar a)} => {PrelBase.Ord (Bar a)} ;

ghc/tests/typecheck/should_compile/tc079.stderr

 ghc: module version changed to 1; reason: no old .hi file
 __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 ;
+instance {Foo PrelBase.Int} = zdfFooInt;
+instance __forall [a] {Foo a} => {Foo [a]} = zdfFooZMZN;
 1 class Foo a where {op2 = :: __forall [b] {PrelBase.Ord b} => a -> b -> b -> b; op1 = :: a -> PrelBase.Bool} ;
+1 zddmop1 :: __forall [a] {Foo a} => a -> PrelBase.Bool ;
+1 zddmop2 :: __forall [a] {Foo a} => __forall [b] {PrelBase.Ord b} => a -> b -> b -> b ;
+1 zdfFooInt :: {Foo PrelBase.Int} ;
+1 zdfFooZMZN :: __forall [a] {Foo a} => {Foo [a]} ;

ghc/tests/typecheck/should_compile/tc080.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__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 ;
+__export ShouldSucceed Parse{forced parse parseType parseLine parseFile} charToInt lineszq seperatedBy spanzq strToInt whiteSpace;
+instance {Parse PrelBase.Char} = zdfParseChar;
+instance {Parse PrelBase.Int} = zdfParseInt;
+instance __forall [a] {Parse a} => {Parse [a]} = zdfParseZMZN;
 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 lineszq :: [PrelBase.Char] -> [[PrelBase.Char]] ;
 1 seperatedBy :: PrelBase.Char -> PrelBase.String -> [PrelBase.String] ;
-1 span' :: __forall [a] => (a -> PrelBase.Bool) -> [a] -> ([a], [a]) ;
+1 spanzq :: __forall [a] => (a -> PrelBase.Bool) -> [a] -> ([a], [a]) ;
 1 strToInt :: PrelBase.String -> PrelBase.Int ;
 1 whiteSpace :: PrelBase.String -> PrelBase.String ;
+1 zddmforced :: __forall [a] {Parse a} => a -> PrelBase.Bool ;
+1 zddmparse :: __forall [a] {Parse a} => PrelBase.String -> (a, PrelBase.String) ;
+1 zddmparseFile :: __forall [a] {Parse a} => PrelBase.String -> [a] ;
+1 zddmparseLine :: __forall [a] {Parse a} => PrelBase.String -> a ;
+1 zdfParseChar :: {Parse PrelBase.Char} ;
+1 zdfParseInt :: {Parse PrelBase.Int} ;
+1 zdfParseZMZN :: __forall [a] {Parse a} => {Parse [a]} ;

ghc/tests/typecheck/should_compile/tc082.stderr

 ghc: module version changed to 1; reason: no old .hi file
-__export ShouldSucceed f Normal{normal};
-instance __forall [a b] => {Normal (a -> b)} = _gNormalmg;
-1 _gNormalmg :: __forall [a b] => {Normal (a -> b)} ;
+__export ShouldSucceed Normal{normal} f;
+instance __forall [a b] => {Normal (a -> b)} = zdfNormalZLzmzgZR;
 1 class Normal a where {normal :: a -> PrelBase.Bool} ;
 1 f :: __forall [t] => t -> PrelBase.Bool ;
+1 zdfNormalZLzmzgZR :: __forall [a b] => {Normal (a -> b)} ;