ghc/compiler/tests/deSugar/ds011.stderr

   1
   2
   3 ================================================================================
   4 Desugared:
   5 i{-r4,x-}  ::
   6     _forall_ [t{-amO-}] => t{-amO-}
   7 {-# L #-}
   8 i{-r4,x-} =
   9     _/\_ t{-amO-} ->
  10         IOBase.error{-87,p-}
  11             _@_ t{-amO-} _string_ "foo"
  12 h{-r5,x-}  ::
  13     _forall_ [t{-amW-}] => t{-amW-}
  14 {-# L #-}
  15 h{-r5,x-} =
  16     _/\_ t{-amW-} ->
  17         let { ds_dpe  ::
  18                   [PrelBase.Char{-38,p-}]
  19               {-# L #-}
  20               ds_dpe =
  21           let {
  22             ds_dpp  ::
  23                 PrelBase.Char{-38,p-}
  24             {-# L #-}
  25             ds_dpp =
  26                 PrelBase.C#{-54,p-}{i}
  27                     {'"'} } in
  28           let {
  29             ds_dpt  ::
  30                 [PrelBase.Char{-38,p-}]
  31             {-# L #-}
  32             ds_dpt =
  33                 PrelBase.[]{-5i,p-}{i}
  34                     {_@_ PrelBase.Char{-38,p-}}
  35           } in
  36             PrelBase.:{-55,p-}{i}
  37                 {_@_ PrelBase.Char{-38,p-} ds_dpp ds_dpt}
  38         } in
  39         IOBase.error{-87,p-}
  40             _@_ t{-amW-} ds_dpe
  41 g{-r6,x-}  ::
  42     _forall_ [t{-an4-}] => t{-an4-}
  43 {-# L #-}
  44 g{-r6,x-} =
  45     _/\_ t{-an4-} ->
  46         let {
  47           ds_dpW  ::
  48               [PrelBase.Char{-38,p-}]
  49           {-# L #-}
  50           ds_dpW =
  51               PrelBase.[]{-5i,p-}{i}
  52                   {_@_ PrelBase.Char{-38,p-}}
  53         } in
  54           IOBase.error{-87,p-}
  55               _@_ t{-an4-} ds_dpW
  56 f{-r7,x-}  ::
  57     _forall_ [t{-and-}] => t{-and-}
  58 {-# L #-}
  59 f{-r7,x-} =
  60     _/\_ t{-and-} ->
  61         let {
  62           ds_dqm  ::
  63               [PrelBase.Char{-38,p-}]
  64           {-# L #-}
  65           ds_dqm =
  66               PrelBase.[]{-5i,p-}{i}
  67                   _@_ PrelBase.Char{-38,p-}
  68         } in
  69           IOBase.error{-87,p-}
  70               _@_ t{-and-} ds_dqm