[project @ 1998-04-17 15:58:37 by simonm]

[ghc-hetmet.git] / ghc / tests / typecheck / should_compile / tc035.stderr

diff --git a/ghc/tests/typecheck/should_compile/tc035.stderr b/ghc/tests/typecheck/should_compile/tc035.stderr
index fe1892c..066a4dd 100644 (file)
--- a/ghc/tests/typecheck/should_compile/tc035.stderr
+++ b/ghc/tests/typecheck/should_compile/tc035.stderr
@@ -1,32 +1,16 @@
-==================== Typechecked ====================
-Var{-r5,x-}{i} =
-    _/\_ a_tr3q -> \ tpl_B1 -> Var{-r5,x-}{i} {_@_ a_tr3q tpl_B1}
-App{-r4,x-}{i} =
-    _/\_ a_tr3q -> \ tpl_B1 tpl_B2 ->
-       App{-r4,x-}{i} {_@_ a_tr3q tpl_B1 tpl_B2}
-AbsBinds [taRR] [] [([taRR], g{-r3t,x-}, g_aRu)]
-    g_aRu (a_r3j, (Var{-r5,x-}{i} name_r3k))
-         = [name_r3k] ([PrelBase.Char{-38,W-}])
-    g_aRu (a_r3m, (App{-r4,x-}{i} e1_r3n e2_r3o))
-         = ++_aSf [PrelBase.Char{-38,W-}] (g_aRu e1_r3n) (g_aRu e2_r3o)
-AbsBinds [taSe] [] [([taSe], $d1{-rSi,x-}, d.Eval_aSb)]
-    d.Eval_aSb = ({-dict-} [] [])
-d.MonadPlus_aSd = PrelBase.$d23{-rpi,p-}
-++_aSf = PrelBase.++{-ruo,p-} PrelBase.[]{-3j,W-} d.MonadPlus_aSd
-
 ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
 _instance_modules_
-ArrBase IO PrelNum
+IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
 _usages_
-PrelBase 1 :: $d2 1 $d23 1 $d24 1 $d25 1 $d38 1 $d39 1 $d40 1 $d42 1 $d45 1 $d47 1 $m>> 1 Eval 1 Monad 1 MonadPlus 1 MonadZero 1;
-PrelTup 1 :: $d13 1;
+PrelBase 1 :: $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dMonad0 1 $dMonadPlus0 1 $dMonadZero0 1 $m>> 1 Eval 1 Monad 1 MonadPlus 1 MonadZero 1;
+PrelTup 1 :: $dEval0 1;
 _exports_
 ShouldSucceed g AnnExpr Expr(Var App);
 _instances_
-instance _forall_ [a] => {PrelBase.Eval (Expr a)} = $d1;
+instance _forall_ [a] => {PrelBase.Eval (Expr a)} = $dEvalExpr0;
 _declarations_
-1 $d1 _:_ _forall_ [a] => {PrelBase.Eval (Expr a)} ;;
-1 type AnnExpr a = (a, Expr a) ;
+1 $dEvalExpr0 _:_ _forall_ [a] => {PrelBase.Eval (Expr a)} ;;
 1 data Expr a = Var [PrelBase.Char] |  App (AnnExpr a) (AnnExpr a) ;
-1 g _:_ _forall_ [ta] => (ta, Expr ta) -> [[PrelBase.Char]] ;;
+1 g _:_ _forall_ [a] => (a, Expr a) -> [[PrelBase.Char]] ;;
+1 type AnnExpr a = (a, Expr a) ;