ghc/tests/deSugar/should_compile/ds011.stderr

   1
   2
   3 ================================================================================
   4 Desugared:
   5 Rec {
   6 i{-r4,x-}  ::  _forall_ [take] => take
   7 {-# L #-}
   8 i{-r4,x-} =
   9     _/\_ take ->
  10         _letrec_ {
  11           i_ak8  ::  take
  12           {-# L #-}
  13           i_ak8 =
  14               IOBase.error{-87,w-} _@_ take _string_ "foo";
  15         } in  i_ak8
  16 h{-r5,x-}  ::  _forall_ [takm] => takm
  17 {-# L #-}
  18 h{-r5,x-} =
  19     _/\_ takm ->
  20         _letrec_ {
  21           h_akg  ::  takm
  22           {-# L #-}
  23           h_akg =
  24               let { ds_dn6  ::  [PrelBase.Char{-38,W-}]
  25                     {-# L #-}
  26                     ds_dn6 =
  27                 let {
  28                   ds_dnh  ::  PrelBase.Char{-38,W-}
  29                   {-# L #-}
  30                   ds_dnh =
  31                       PrelBase.C#{-54,w-}{i} {'"'} } in
  32                 let {
  33                   ds_dnl  ::  [PrelBase.Char{-38,W-}]
  34                   {-# L #-}
  35                   ds_dnl =
  36                       PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}}
  37                 } in
  38                   PrelBase.:{-55,w-}{i} {_@_ PrelBase.Char{-38,W-} ds_dnh ds_dnl}
  39               } in
  40               IOBase.error{-87,w-} _@_ takm ds_dn6;
  41         } in  h_akg
  42 g{-r6,x-}  ::  _forall_ [taku] => taku
  43 {-# L #-}
  44 g{-r6,x-} =
  45     _/\_ taku ->
  46         _letrec_ {
  47           g_ako  ::  taku
  48           {-# L #-}
  49           g_ako =
  50               let {
  51                 ds_dnO  ::  [PrelBase.Char{-38,W-}]
  52                 {-# L #-}
  53                 ds_dnO =
  54                     PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}}
  55               } in  IOBase.error{-87,w-} _@_ taku ds_dnO;
  56         } in  g_ako
  57 f{-r7,x-}  ::  _forall_ [takD] => takD
  58 {-# L #-}
  59 f{-r7,x-} =
  60     _/\_ takD ->
  61         _letrec_ {
  62           f_akw  ::  takD
  63           {-# L #-}
  64           f_akw =
  65               let {
  66                 ds_doe  ::  [PrelBase.Char{-38,W-}]
  67                 {-# L #-}
  68                 ds_doe =
  69                     PrelBase.[]{-5i,w-}{i} _@_ PrelBase.Char{-38,W-}
  70               } in  IOBase.error{-87,w-} _@_ takD ds_doe;
  71         } in  f_akw
  72 end Rec }