ghc/tests/deSugar/should_compile/ds010.stderr

   1
   2
   3 ================================================================================
   4 Desugared:
   5 Rec {
   6 z_aQq  ::  [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
   7 {-# L #-}
   8 z_aQq =
   9     _letrec_ {
  10       ds_dWs  ::  [PrelBase.Char{-38,W-}]
  11                   -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
  12       {-# L #-}
  13       ds_dWs =
  14           \ ds_dWx  ::  [PrelBase.Char{-38,W-}]
  15             {-# L #-}
  16             ds_dWx ->
  17               case ds_dWx of {
  18                 PrelBase.[]{-5i,w-}{i} ->
  19                     PrelBase.[]{-5i,w-}{i}
  20                         {_@_ (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})};
  21                 PrelBase.:{-55,w-}{i} ds_dX5 ds_dXe ->
  22                     let {
  23                       a_r3d  ::  PrelBase.Char{-38,W-}
  24                       {-# L #-}
  25                       a_r3d =
  26                           ds_dX5 } in
  27                     _letrec_ {
  28                       ds_dXk  ::  [PrelBase.Char{-38,W-}]
  29                                   -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
  30                       {-# L #-}
  31                       ds_dXk =
  32                           \ ds_dXp  ::  [PrelBase.Char{-38,W-}]
  33                             {-# L #-}
  34                             ds_dXp ->
  35                               case ds_dXp of {
  36                                 PrelBase.[]{-5i,w-}{i} -> ds_dWs ds_dXe;
  37                                 PrelBase.:{-55,w-}{i} ds_dXE ds_dXN ->
  38                                     let {
  39                                       b_r3f  ::  PrelBase.Char{-38,W-}
  40                                       {-# L #-}
  41                                       b_r3f =
  42                                           ds_dXE } in
  43                                     _letrec_ {
  44                                       ds_dXT  ::  [PrelBase.Char{-38,W-}]
  45                                                   -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
  46                                       {-# L #-}
  47                                       ds_dXT =
  48                                           \ ds_dXY  ::  [PrelBase.Char{-38,W-}]
  49                                             {-# L #-}
  50                                             ds_dXY ->
  51                                               case ds_dXY of {
  52                                                 PrelBase.[]{-5i,w-}{i} -> ds_dXk ds_dXN;
  53                                                 PrelBase.:{-55,w-}{i} ds_dYd ds_dYm ->
  54                                                     let {
  55                                                       c_r3h  ::  PrelBase.Char{-38,W-}
  56                                                       {-# L #-}
  57                                                       c_r3h =
  58                                                           ds_dYd } in
  59                                                     _letrec_ {
  60                                                       ds_dYs  ::  [PrelBase.Char{-38,W-}]
  61                                                                   -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
  62                                                       {-# L #-}
  63                                                       ds_dYs =
  64                                                           \ ds_dYx  ::  [PrelBase.Char{-38,W-}]
  65                                                             {-# L #-}
  66                                                             ds_dYx ->
  67                                                               case ds_dYx of {
  68                                                                 PrelBase.[]{-5i,w-}{i} ->
  69                                                                     ds_dXT ds_dYm;
  70                                                                 PrelBase.:{-55,w-}{i} ds_dYM ds_dYV ->
  71                                                                     let {
  72                                                                       d_r3j  ::  PrelBase.Char{-38,W-}
  73                                                                       {-# L #-}
  74                                                                       d_r3j =
  75                                                                           ds_dYM } in
  76                                                                     _letrec_ {
  77                                                                       ds_dZ1  ::  [PrelBase.Char{-38,W-}]
  78                                                                                   -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
  79                                                                       {-# L #-}
  80                                                                       ds_dZ1 =
  81                                                                           \ ds_dZ6  ::  [PrelBase.Char{-38,W-}]
  82                                                                             {-# L #-}
  83                                                                             ds_dZ6 ->
  84                                                                               case ds_dZ6 of {
  85                                                                                 PrelBase.[]{-5i,w-}{i} ->
  86                                                                                     ds_dYs ds_dYV;
  87                                                                                 PrelBase.:{-55,w-}{i} ds_dZl ds_dZu ->
  88                                                                                     let {
  89                                                                                       e_r3l  ::  PrelBase.Char{-38,W-}
  90                                                                                       {-# L #-}
  91                                                                                       e_r3l =
  92                                                                                           ds_dZl } in
  93                                                                                     _letrec_ {
  94                                                                                       ds_dZA  ::  [PrelBase.Char{-38,W-}]
  95                                                                                                   -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
  96                                                                                       {-# L #-}
  97                                                                                       ds_dZA =
  98                                                                                           \ ds_dZF  ::  [PrelBase.Char{-38,W-}]
  99                                                                                             {-# L #-}
 100                                                                                             ds_dZF ->
 101                                                                                               case
 102                                                                                                   ds_dZF
 103                                                                                               of {
 104                                                                                                 PrelBase.[]{-5i,w-}{i} ->
 105                                                                                                     ds_dZ1
 106                                                                                                         ds_dZu;
 107                                                                                                 PrelBase.:{-55,w-}{i} ds_dZU ds_d103 ->
 108                                                                                                     let {
 109                                                                                                       f_r3n  ::  PrelBase.Char{-38,W-}
 110                                                                                                       {-# L #-}
 111                                                                                                       f_r3n =
 112                                                                                                           ds_dZU } in
 113                                                                                                     _letrec_ {
 114                                                                                                       ds_d109  ::  [PrelBase.Char{-38,W-}]
 115                                                                                                                    -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
 116                                                                                                       {-# L #-}
 117                                                                                                       ds_d109 =
 118                                                                                                           \ ds_d10e  ::  [PrelBase.Char{-38,W-}]
 119                                                                                                             {-# L #-}
 120                                                                                                             ds_d10e ->
 121                                                                                                               case
 122                                                                                                                   ds_d10e
 123                                                                                                               of {
 124                                                                                                                 PrelBase.[]{-5i,w-}{i} ->
 125                                                                                                                     ds_dZA
 126                                                                                                                         ds_d103;
 127                                                                                                                 PrelBase.:{-55,w-}{i} ds_d10t ds_d10C ->
 128                                                                                                                     let {
 129                                                                                                                       g_r3p  ::  PrelBase.Char{-38,W-}
 130                                                                                                                       {-# L #-}
 131                                                                                                                       g_r3p =
 132                                                                                                                           ds_d10t } in
 133                                                                                                                     _letrec_ {
 134                                                                                                                       ds_d10I  ::  [PrelBase.Char{-38,W-}]
 135                                                                                                                                    -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
 136                                                                                                                       {-# L #-}
 137                                                                                                                       ds_d10I =
 138                                                                                                                           \ ds_d10N  ::  [PrelBase.Char{-38,W-}]
 139                                                                                                                             {-# L #-}
 140                                                                                                                             ds_d10N ->
 141                                                                                                                               case
 142                                                                                                                                   ds_d10N
 143                                                                                                                               of {
 144                                                                                                                                 PrelBase.[]{-5i,w-}{i} ->
 145                                                                                                                                     ds_d109
 146                                                                                                                                         ds_d10C;
 147                                                                                                                                 PrelBase.:{-55,w-}{i} ds_d112 ds_d11b ->
 148                                                                                                                                     let {
 149                                                                                                                                       h_r3r  ::  PrelBase.Char{-38,W-}
 150                                                                                                                                       {-# L #-}
 151                                                                                                                                       h_r3r =
 152                                                                                                                                           ds_d112 } in
 153                                                                                                                                     _letrec_ {
 154                                                                                                                                       ds_d11h  ::  [PrelBase.Char{-38,W-}]
 155                                                                                                                                                    -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
 156                                                                                                                                       {-# L #-}
 157                                                                                                                                       ds_d11h =
 158                                                                                                                                           \ ds_d11m  ::  [PrelBase.Char{-38,W-}]
 159                                                                                                                                             {-# L #-}
 160                                                                                                                                             ds_d11m ->
 161                                                                                                                                               case
 162                                                                                                                                                   ds_d11m
 163                                                                                                                                               of {
 164                                                                                                                                                 PrelBase.[]{-5i,w-}{i} ->
 165                                                                                                                                                     ds_d10I
 166                                                                                                                                                         ds_d11b;
 167                                                                                                                                                 PrelBase.:{-55,w-}{i} ds_d11B ds_d11K ->
 168                                                                                                                                                     let {
 169                                                                                                                                                       i_r3t  ::  PrelBase.Char{-38,W-}
 170                                                                                                                                                       {-# L #-}
 171                                                                                                                                                       i_r3t =
 172                                                                                                                                                           ds_d11B } in
 173                                                                                                                                                     _letrec_ {
 174                                                                                                                                                       ds_d11Q  ::  [PrelBase.Char{-38,W-}]
 175                                                                                                                                                                    -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
 176                                                                                                                                                       {-# L #-}
 177                                                                                                                                                       ds_d11Q =
 178                                                                                                                                                           \ ds_d11V  ::  [PrelBase.Char{-38,W-}]
 179                                                                                                                                                             {-# L #-}
 180                                                                                                                                                             ds_d11V ->
 181                                                                                                                                                               case
 182                                                                                                                                                                   ds_d11V
 183                                                                                                                                                               of {
 184                                                                                                                                                                 PrelBase.[]{-5i,w-}{i} ->
 185                                                                                                                                                                     ds_d11h
 186                                                                                                                                                                         ds_d11K;
 187                                                                                                                                                                 PrelBase.:{-55,w-}{i} ds_d12a ds_d12t ->
 188                                                                                                                                                                     let {
 189                                                                                                                                                                       j_r3v  ::  PrelBase.Char{-38,W-}
 190                                                                                                                                                                       {-# L #-}
 191                                                                                                                                                                       j_r3v =
 192                                                                                                                                                                           ds_d12a } in
 193                                                                                                                                                                     let {
 194                                                                                                                                                                       ds_d12m  ::  (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})
 195                                                                                                                                                                       {-# L #-}
 196                                                                                                                                                                       ds_d12m =
 197                                                                                                                                                                           PrelTup.(,,,,,,,,,){-6a,w-}{i}
 198                                                                                                                                                                               {_@_ PrelBase.Char{-38,W-}
 199                                                                                                                                                                                _@_ PrelBase.Char{-38,W-}
 200                                                                                                                                                                                _@_ PrelBase.Char{-38,W-}
 201                                                                                                                                                                                _@_ PrelBase.Char{-38,W-}
 202                                                                                                                                                                                _@_ PrelBase.Char{-38,W-}
 203                                                                                                                                                                                _@_ PrelBase.Char{-38,W-}
 204                                                                                                                                                                                _@_ PrelBase.Char{-38,W-}
 205                                                                                                                                                                                _@_ PrelBase.Char{-38,W-}
 206                                                                                                                                                                                _@_ PrelBase.Char{-38,W-}
 207                                                                                                                                                                                _@_ PrelBase.Char{-38,W-}
 208                                                                                                                                                                                a_r3d
 209                                                                                                                                                                                b_r3f
 210                                                                                                                                                                                c_r3h
 211                                                                                                                                                                                d_r3j
 212                                                                                                                                                                                e_r3l
 213                                                                                                                                                                                f_r3n
 214                                                                                                                                                                                g_r3p
 215                                                                                                                                                                                h_r3r
 216                                                                                                                                                                                i_r3t
 217                                                                                                                                                                                j_r3v} } in
 218                                                                                                                                                                     let {
 219                                                                                                                                                                       ds_d12q  ::  [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
 220                                                                                                                                                                       {-# L #-}
 221                                                                                                                                                                       ds_d12q =
 222                                                                                                                                                                           ds_d11Q
 223                                                                                                                                                                               ds_d12t
 224                                                                                                                                                                     } in
 225                                                                                                                                                                       PrelBase.:{-55,w-}{i}
 226                                                                                                                                                                           {_@_ (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})
 227                                                                                                                                                                            ds_d12m
 228                                                                                                                                                                            ds_d12q};
 229                                                                                                                                                               };
 230                                                                                                                                                     } in
 231                                                                                                                                                       ds_d11Q
 232                                                                                                                                                           _string_ "12";
 233                                                                                                                                               };
 234                                                                                                                                     } in
 235                                                                                                                                       ds_d11h
 236                                                                                                                                           _string_ "12";
 237                                                                                                                               };
 238                                                                                                                     } in
 239                                                                                                                       ds_d10I
 240                                                                                                                           _string_ "12";
 241                                                                                                               };
 242                                                                                                     } in
 243                                                                                                       ds_d109
 244                                                                                                           _string_ "12";
 245                                                                                               };
 246                                                                                     } in
 247                                                                                       ds_dZA
 248                                                                                           _string_ "12";
 249                                                                               };
 250                                                                     } in  ds_dZ1 _string_ "12";
 251                                                               };
 252                                                     } in  ds_dYs _string_ "12";
 253                                               };
 254                                     } in  ds_dXT _string_ "12";
 255                               };
 256                     } in  ds_dXk _string_ "12";
 257               };
 258     } in  ds_dWs _string_ "12"
 259 z{-r3w,x-}  ::  [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})]
 260 {-# L #-}
 261 z{-r3w,x-} =
 262     z_aQq
 263 d.Monad_aRh  ::  {PrelBase.Monad{-28,p-} PrelBase.[]{-3j,W-}}
 264 {-# L #-}
 265 d.Monad_aRh =
 266     PrelBase.$d25{-rpl,p-}
 267 >>=_aWK  ::  _forall_
 268              [taRl taRm]
 269              =>
 270              [taRl] -> (taRl -> [taRm]) -> [taRm]
 271 {-# L #-}
 272 >>=_aWK =
 273     PrelBase.>>={-811,p-} _@_ PrelBase.[]{-3j,W-} d.Monad_aRh
 274 d.Monad_aRk  ::  {PrelBase.Monad{-28,p-} PrelBase.[]{-3j,W-}}
 275 {-# L #-}
 276 d.Monad_aRk =
 277     d.Monad_aRh
 278 return_aWT  ::  _forall_ [taRn] => taRn -> [taRn]
 279 {-# L #-}
 280 return_aWT =
 281     PrelBase.return{-816,p-} _@_ PrelBase.[]{-3j,W-} d.Monad_aRk
 282 end Rec }