ghc/compiler/tests/typecheck/should_succeed/tc063.stderr

   1
   2
   3 --================================================================================
   4 Typechecked:
   5 {- nonrec -}
   6 Tag{-r3K,x-}{i} =
   7     _/\_ a{-r3G-} -> \ tpl_B1 ->
   8         Tag{-r3K,x-}{i}
   9             {_@_ a{-r3G-} tpl_B1}
  10 {- nonrec -}
  11 f{-r3I,x-} =
  12     _/\_ r{-r3C-} -> \ tpl_B1 ->
  13         tpl_B1
  14 {- nonrec -}
  15 AbsBinds
  16 [r{-aHm-}]
  17 [d.Reps_aHf]
  18 [([r{-aHm-}], $mf{-rGx,x-}, f_aHh)]
  19     AbsBinds [] [] [([], f_aHh, f_aHj)]
  20         f_aHj
  21             =   GHCerr.noDefaultMethodError{-8k,p-}
  22                     (r{-aHm-} -> r{-aHm-} -> r{-aHm-}) "Class Reps Method f"
  23 {- rec -}
  24 AbsBinds [a{-aHn-}] [] [([a{-aHn-}], $d3{-rHq,x-}, d.Eval_aGM)]
  25     d.Eval_aGM =
  26         ({-dict-} [] [])
  27 {- rec -}
  28 AbsBinds [] [] [([], $d1{-rHr,x-}, d.Reps_aGR)]
  29     AbsBinds [] [] [([], f_aHs, f_aGU)]
  30         f_aGU
  31             PrelBase.True{-5E,p-}{i} PrelBase.True{-5E,p-}{i}
  32                     =   PrelBase.True{-5E,p-}{i}
  33         f_aGU
  34             x_r3o y_r3q
  35                     =   PrelBase.False{-58,p-}{i}
  36     d.Reps_aGR =
  37         ({-dict-} [] [f_aHs])
  38 {- rec -}
  39 AbsBinds [q{-aH9-}] [] [([q{-aH9-}], $d2{-rHt,x-}, d.Reps_aH3)]
  40     AbsBinds [] [] [([], f_aHu, f_aH6)]
  41         f_aH6
  42             x_r3x y_r3z
  43                     =   y_r3z
  44     d.Reps_aH3 =
  45         ({-dict-} [] [f_aHu])
  46 {- nonrec -}
  47 {- nonrec -}
  48 AbsBinds [r{-aGB-}] [d.Reps_aGG] [([r{-aGB-}], g{-r3H,x-}, g_aGw)]
  49     f_aHv =
  50         f{-r3I,x-}
  51             r{-aGB-}
  52             d.Reps_aGG
  53     g_aGw
  54         x_r3h   =   f_aHv x_r3h x_r3h
  55 {- nonrec -}
  56 ghc: module version changed to 1; reason: no old .hi file
  57 _interface_ ShouldSucceed 1
  58 _instance_modules_
  59 ArrBase IO PrelNum
  60 _usages_
  61 PrelBase 1 :: $d37 1 $d39 1 $d41 1 $d46 1 Eval 1;
  62 _exports_
  63 ShouldSucceed g Reps(f) X(Tag);
  64 _instances_
  65 instance {Reps PrelBase.Bool} = $d1;
  66 instance _forall_ [a] => {Reps (X a)} = $d2;
  67 instance _forall_ [a] => {PrelBase.Eval (X a)} = $d3;
  68 _declarations_
  69 1 $d1 _:_ {Reps PrelBase.Bool} ;;
  70 1 $d2 _:_ _forall_ [a] => {Reps (X a)} ;;
  71 1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (X a)} ;;
  72 1 $mf _:_ _forall_ [a] {Reps a} => a -> a -> a ;;
  73 1 class Reps r3C where {f :: r3C -> r3C -> r3C} ;
  74 1 data X r3G = Tag r3G ;
  75 1 g _:_ _forall_ [a] {Reps a} => a -> a ;;