ghc/compiler/tests/printing/Print003.stderr

   1
   2
   3 ================================================================================
   4 Typechecked:
   5 {- nonrec -}
   6 bitRsh{-r3h,x-} =
   7     _/\_ a{-r3f-} -> \ tpl_B1 ->
   8         case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2  -> tpl_B1;}
   9 bitLsh{-r3g,x-} =
  10     _/\_ a{-r3f-} -> \ tpl_B1 ->
  11         case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2  -> tpl_B2;}
  12 {- nonrec -}
  13 AbsBinds
  14 [a{-anm-}]
  15 [d.Bits_anf]
  16 [([a{-anm-}], $mbitRsh{-rnw,x-}, bitRsh_anh)]
  17     AbsBinds [] [] [([], bitRsh_anh, bitRsh_anj)]
  18         bitRsh_anj
  19             =   GHCerr.noDefaultMethodError{-8k,p-}
  20                     (a{-anm-} -> PrelBase.Int{-3g,p-} -> a{-anm-})
  21                     "Class Bits Method bitRsh"
  22 AbsBinds
  23 [a{-anm-}]
  24 [d.Bits_anp]
  25 [([a{-anm-}], $mbitLsh{-rnx,x-}, bitLsh_anr)]
  26     AbsBinds [] [] [([], bitLsh_anr, bitLsh_ant)]
  27         bitLsh_ant
  28             =   GHCerr.noDefaultMethodError{-8k,p-}
  29                     (a{-anm-} -> PrelBase.Int{-3g,p-} -> a{-anm-})
  30                     "Class Bits Method bitLsh"
  31 {- nonrec -}
  32 ghc: module version changed to 1; reason: no old .hi file
  33 _interface_ Word 1
  34 _instance_modules_
  35 ArrBase IO PrelNum
  36 _exports_
  37 Word Bits(bitRsh bitLsh);
  38 _fixities_
  39 infixl 8 bitLsh;
  40 infixl 8 bitRsh;
  41 _declarations_
  42 1 $mbitLsh _:_ _forall_ [a] {Bits a} => a -> PrelBase.Int -> a ;;
  43 1 $mbitRsh _:_ _forall_ [a] {Bits a} => a -> PrelBase.Int -> a ;;
  44 1 class Bits r3f where {bitRsh :: r3f -> PrelBase.Int -> r3f; bitLsh :: r3f -> PrelBase.Int -> r3f} ;