ghc/tests/typecheck/should_compile/tc056.stderr

   1
   2 tc056.hs:15:warning:
   3     Duplicated class assertion `Eq' a' in context: `(Eq' a, Eq' a)'
   4
   5
   6 ================================================================================
   7 Typechecked:
   8 AbsBinds
   9 [taCJ, taCG]
  10 [d.Eq'_aCN, d.Num_aCR]
  11 [([taCJ, taCG], f{-r3E,x-}, f_aCq)]
  12     d.Eq'_aCO = d.Eq'_aCN
  13     d.Eq'_aCL = $d1{-rDw,x-} taCG [d.Eq'_aCN, d.Eq'_aCO]
  14     doubleeq_aDz = doubleeq{-r3G,x-} [taCG] d.Eq'_aCL
  15     fromInt_aDA = PrelBase.fromInt{-8R,p-} taCG d.Num_aCR
  16     lit_aDB = fromInt_aDA PrelBase.I#{-5b,w-}{i} 1#
  17     f_aCq x_r3h y_r3i = doubleeq_aDz x_r3h [lit_aDB] (taCG)
  18 AbsBinds
  19 [taD4]
  20 [d.Eq'_aD7, d.Eq'_aD8]
  21 [([taD4], $d1{-rDw,x-}, d.Eq'_aCX)]
  22     AbsBinds [] [] [([], doubleeq_aDC, doubleeq_aD1)]
  23         doubleeq_aD1 x_r3p y_r3q = PrelBase.True{-5E,w-}{i}
  24     d.Eq'_aCX = ({-dict-} [] [doubleeq_aDC])
  25 AbsBinds [] [] [([], $d2{-rDx,x-}, d.Eq'_aDg)]
  26     AbsBinds [] [] [([], doubleeq_aDD, doubleeq_aDk)]
  27         doubleeq_aDk x_r3w y_r3x = PrelBase.True{-5E,w-}{i}
  28     d.Eq'_aDg = ({-dict-} [] [doubleeq_aDD])
  29 scsel_Ord'ShouldSucceedEq'{-aDy,x-} =
  30     _/\_ t12 -> \ tpl_B1 ->
  31         case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2  -> tpl_B1;}
  32 lt{-r3H,x-} =
  33     _/\_ t12 -> \ tpl_B1 ->
  34         case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2  -> tpl_B2;}
  35 AbsBinds [taDu] [d.Ord'_aDq] []
  36 doubleeq{-r3G,x-} = _/\_ t12 -> \ tpl_B1 -> tpl_B1
  37 AbsBinds [taDv] [d.Eq'_aDt] []
  38 ghc: module version changed to 1; reason: no old .hi file
  39 _interface_ ShouldSucceed 1
  40 _instance_modules_
  41 ArrBase IO PrelNum
  42 _usages_
  43 PrelBase 1 :: $d1 1 $d12 1 $d16 1 $d2 1 $d22 1 $d28 1 $d3 1 $d33 1 $d34 1 $d38 1 $d39 1 $d4 1 $d40 1 $d42 1 $d43 1 $d45 1 $d47 1 $d55 1 $d8 1 $d9 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
  44 PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
  45 _exports_
  46 ShouldSucceed f Eq'(doubleeq) Ord'(lt);
  47 _instances_
  48 instance _forall_ [a] {Eq' a, Eq' a} => {Eq' [a]} = $d1;
  49 instance {Eq' PrelBase.Int} = $d2;
  50 _declarations_
  51 1 $d1 _:_ _forall_ [a] {Eq' a, Eq' a} => {Eq' [a]} ;;
  52 1 $d2 _:_ {Eq' PrelBase.Int} ;;
  53 1 class Eq' a where {doubleeq :: a -> a -> PrelBase.Bool} ;
  54 1 class {Eq' a} => Ord' a where {lt :: a -> a -> PrelBase.Bool} ;
  55 1 f _:_ _forall_ [ta tb] {Eq' tb, PrelBase.Num tb} => [tb] -> ta -> PrelBase.Bool ;;