ghc/tests/typecheck/should_compile/tc059.stderr

   1
   2
   3 ================================================================================
   4 Typechecked:
   5 AbsBinds
   6 [taCB]
   7 [d.Eq2_aCG, d.Num_aCJ]
   8 [([taCB], f{-r3J,x-}, f_aCq)]
   9     d.Eq2_aCE = $d1{-rDT,x-} taCB d.Eq2_aCG
  10     deq_aDV = deq{-r3K,x-} [taCB] d.Eq2_aCE
  11     fromInt_aDW = PrelBase.fromInt{-8R,p-} taCB d.Num_aCJ
  12     lit_aDX = fromInt_aDW PrelBase.I#{-5b,w-}{i} 1#
  13     f_aCq x_r3g = deq_aDV x_r3g [lit_aDX] (taCB)
  14 AbsBinds [taD0] [d.Eq2_aDq] [([taD0], $d1{-rDT,x-}, d.Eq2_aCP)]
  15     d.Eq2_aDt = d.Eq2_aDq
  16     deq_aDY = deq{-r3K,x-} taD0 d.Eq2_aDt
  17     d.Eq2_aDv = d.Eq2_aDq
  18     foo_aDZ = foo{-r3L,x-} taD0 d.Eq2_aDv
  19     deq_aE0 = deq_aE2
  20     foo_aE1 = foo_aE3
  21     AbsBinds [] [] [([], deq_aE2, deq_aCT)]
  22         deq_aCT (a_r3n PrelBase.:{-55,w-}{i} as_r3o)
  23                 (b_r3p PrelBase.:{-55,w-}{i} bs_r3q)
  24                 = if deq_aDY a_r3n foo_aDZ b_r3p then
  25                       deq_aE0 as_r3o foo_aE1 bs_r3q
  26                   else
  27                       PrelBase.False{-58,w-}{i}
  28     AbsBinds [] [] [([], foo_aE3, foo_aDn)]
  29         foo_aDn x_r3u = x_r3u
  30     d.Eq2_aCP = ({-dict-} [] [deq_aE2, foo_aE3])
  31 AbsBinds [] [] [([], $d2{-rDU,x-}, d.Eq2_aDB)]
  32     AbsBinds [] [] [([], deq_aE4, deq_aDF)]
  33         deq_aDF x_r3A y_r3B = PrelBase.True{-5E,w-}{i}
  34     AbsBinds [] [] [([], foo_aE5, foo_aDM)]
  35         foo_aDM x_r3F = x_r3F
  36     d.Eq2_aDB = ({-dict-} [] [deq_aE4, foo_aE5])
  37 deq{-r3K,x-} =
  38     _/\_ t12 -> \ tpl_B1 ->
  39         case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2  -> tpl_B1;}
  40 foo{-r3L,x-} =
  41     _/\_ t12 -> \ tpl_B1 ->
  42         case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2  -> tpl_B2;}
  43 AbsBinds [taDS] [d.Eq2_aDR] []
  44 ghc: module version changed to 1; reason: no old .hi file
  45 _interface_ ShouldSucceed 1
  46 _instance_modules_
  47 ArrBase IO PrelNum
  48 _usages_
  49 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;
  50 PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
  51 _exports_
  52 ShouldSucceed f Eq2(deq foo);
  53 _instances_
  54 instance _forall_ [a] {Eq2 a} => {Eq2 [a]} = $d1;
  55 instance {Eq2 PrelBase.Int} = $d2;
  56 _declarations_
  57 1 $d1 _:_ _forall_ [a] {Eq2 a} => {Eq2 [a]} ;;
  58 1 $d2 _:_ {Eq2 PrelBase.Int} ;;
  59 1 class Eq2 a where {deq :: a -> a -> PrelBase.Bool; foo :: a -> a} ;
  60 1 f _:_ _forall_ [ta] {Eq2 ta, PrelBase.Num ta} => [ta] -> PrelBase.Bool ;;