[project @ 1997-07-31 00:05:10 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / typecheck / should_succeed / tc053.stderr

diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc053.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc053.stderr
deleted file mode 100644 (file)
index ada7849..0000000
--- a/ghc/compiler/tests/typecheck/should_succeed/tc053.stderr
+++ /dev/null
@@ -1,94 +0,0 @@
-
-
---================================================================================
-Typechecked:
-{- nonrec -}
-deq{-r3D,x-} =
-    _/\_ a{-r3B-} -> \ tpl_B1 ->
-       tpl_B1
-{- nonrec -}
-AbsBinds
-[a{-aIm-}]
-[d.Eq'_aIf]
-[([a{-aIm-}], $mdeq{-rHb,x-}, deq_aIh)]
-    AbsBinds [] [] [([], deq_aIh, deq_aIj)]
-       deq_aIj
-           =   GHCerr.noDefaultMethodError{-8k,p-}
-                   (a{-aIm-}
-                    -> a{-aIm-}
-                    -> PrelBase.Bool{-34,p-}) "Class Eq' Method deq"
-{- rec -}
-AbsBinds
-[a{-aHK-}]
-[d.Eq'_aHW]
-[([a{-aHK-}], $d1{-rIn,x-}, d.Eq'_aHA)]
-    d.Eq'_aI0 =
-       d.Eq'_aHW
-    deq_aIq =
-       deq{-r3D,x-}
-           a{-aHK-}
-           d.Eq'_aI0
-    deq_aIp =
-       deq_aIo
-    AbsBinds [] [] [([], deq_aIo, deq_aHD)]
-       deq_aHD
-           (a_r3m PrelBase.:{-55,p-}{i} as_r3n)
-           (b_r3p PrelBase.:{-55,p-}{i} bs_r3q)
-                   =   if deq_aIq a_r3m b_r3p then
-                           deq_aIp as_r3n bs_r3q
-                       else
-                           PrelBase.False{-58,p-}{i}
-    d.Eq'_aHA =
-       ({-dict-} [] [deq_aIo])
-{- rec -}
-AbsBinds [] [] [([], $d2{-rIr,x-}, d.Eq'_aI6)]
-    AbsBinds [] [] [([], deq_aIs, deq_aI9)]
-       deq_aI9
-           x_r3w y_r3y
-                   =   PrelBase.True{-5E,p-}{i}
-    d.Eq'_aI6 =
-       ({-dict-} [] [deq_aIs])
-{- nonrec -}
-{- nonrec -}
-AbsBinds
-[t{-aHl-}]
-[d.Eq'_aHr, d.Num_aHu]
-[([t{-aHl-}], f{-r3C,x-}, f_aHa)]
-    d.Eq'_aHp =
-       $d1{-rIn,x-}
-           t{-aHl-}
-           d.Eq'_aHr
-    deq_aIv =
-       deq{-r3D,x-}
-           [t{-aHl-}]
-           d.Eq'_aHp
-    fromInt_aIu =
-       PrelBase.fromInt{-8R,p-}
-           t{-aHl-}
-           d.Num_aHu
-    lit_aIt =
-       fromInt_aIu PrelBase.I#{-5b,p-}{i} 1#
-    f_aHa
-       x_r3f   =   deq_aIv x_r3f [lit_aIt] (t{-aHl-})
-{- nonrec -}
-tc053.hs:10: 
-    Warning: Possibly incomplete patterns
-       in the definition of function `deq'
-ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
-_instance_modules_
-ArrBase IO PrelNum
-_usages_
-PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-_exports_
-ShouldSucceed f Eq'(deq);
-_instances_
-instance _forall_ [a] {Eq' a} => {Eq' [a]} = $d1;
-instance {Eq' PrelBase.Int} = $d2;
-_declarations_
-1 $d1 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
-1 $d2 _:_ {Eq' PrelBase.Int} ;;
-1 $mdeq _:_ _forall_ [a] {Eq' a} => a -> a -> PrelBase.Bool ;;
-1 class Eq' r3B where {deq :: r3B -> r3B -> PrelBase.Bool} ;
-1 f _:_ _forall_ [a] {Eq' a, PrelBase.Num a} => [a] -> PrelBase.Bool ;;