[project @ 1998-04-17 15:58:37 by simonm]
[ghc-hetmet.git] / ghc / tests / typecheck / should_compile / tc048.stderr
1 ghc: module version changed to 1; reason: no old .hi file
2 _interface_ ShouldSucceed 1 302
3 _instance_modules_
4 IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
5 _usages_
6 PrelBase 1 :: $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 Eval 1;
7 PrelTup 1 :: $dEval0 1;
8 _exports_
9 ShouldSucceed mAp ranAFE ranOAL sNd AFE(MkAFE) FG(MkFG) OL(MkOL);
10 _instances_
11 instance _forall_ [a b c] => {PrelBase.Eval (AFE a b c)} = $dEvalAFE0;
12 instance _forall_ [a b] => {PrelBase.Eval (FG a b)} = $dEvalFG0;
13 instance _forall_ [a] => {PrelBase.Eval (OL a)} = $dEvalOL0;
14 _declarations_
15 1 $dEvalAFE0 _:_ _forall_ [a b c] => {PrelBase.Eval (AFE a b c)} ;;
16 1 $dEvalFG0 _:_ _forall_ [a b] => {PrelBase.Eval (FG a b)} ;;
17 1 $dEvalOL0 _:_ _forall_ [a] => {PrelBase.Eval (OL a)} ;;
18 1 data AFE n a b = MkAFE (OL (n, FG a b)) ;
19 1 data FG a b = MkFG (OL (a, b)) ;
20 1 data OL a = MkOL [a] ;
21 1 mAp _:_ _forall_ [a b] => (a -> b) -> [a] -> [b] ;;
22 1 ranAFE _:_ _forall_ [a b c] => AFE a b c -> [FG b c] ;;
23 1 ranOAL _:_ _forall_ [a b] => OL (a, b) -> [b] ;;
24 1 sNd _:_ _forall_ [a b] => (a, b) -> b ;;