[project @ 1997-12-16 17:15:04 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
3 _instance_modules_
4 Addr ArrBase Foreign IO PrelBounded PrelNum
5 _usages_
6 PrelBase 1 :: $d2 1 $d29 1 $d31 1 $d33 1 $d36 1 $d38 1 Eval 1;
7 PrelTup 1 :: $d13 1;
8 _exports_
9 ShouldSucceed mAp ranAFE ranOAL sNd AFE(MkAFE) FG(MkFG) OL(MkOL);
10 _instances_
11 instance _forall_ [n a b] => {PrelBase.Eval (AFE n a b)} = $d1;
12 instance _forall_ [a b] => {PrelBase.Eval (FG a b)} = $d2;
13 instance _forall_ [a] => {PrelBase.Eval (OL a)} = $d3;
14 _declarations_
15 1 $d1 _:_ _forall_ [n a b] => {PrelBase.Eval (AFE n a b)} ;;
16 1 $d2 _:_ _forall_ [a b] => {PrelBase.Eval (FG a b)} ;;
17 1 $d3 _:_ _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_ [ta tb] => (ta -> tb) -> [ta] -> [tb] ;;
22 1 ranAFE _:_ _forall_ [ta tb tc] => AFE ta tb tc -> [FG tb tc] ;;
23 1 ranOAL _:_ _forall_ [ta tb] => OL (ta, tb) -> [tb] ;;
24 1 sNd _:_ _forall_ [ta tb] => (ta, tb) -> tb ;;