ghc/compiler/tests/deSugar/ds010.stderr

   1
   2
   3 ================================================================================
   4 Desugared:
   5 Rec {
   6 d.Monad_aWF  ::
   7     {PrelBase.Monad{-28,p-} PrelBase.[]{-3j,p-}}
   8 {-# L #-}
   9 d.Monad_aWF =
  10     PrelBase.$d24{-rq8,p-}
  11 >>=_a11I  ::
  12     _forall_
  13     [rjI{-aWJ-} rjJ{-aWK-}]
  14     =>
  15     [rjI{-aWJ-}] -> (rjI{-aWJ-} -> [rjJ{-aWK-}]) -> [rjJ{-aWK-}]
  16 {-# L #-}
  17 >>=_a11I =
  18     PrelBase.>>={-811,p-}
  19         _@_ PrelBase.[]{-3j,p-} d.Monad_aWF
  20 d.Monad_aWI  ::
  21     {PrelBase.Monad{-28,p-} PrelBase.[]{-3j,p-}}
  22 {-# L #-}
  23 d.Monad_aWI =
  24     d.Monad_aWF
  25 return_a11P  ::
  26     _forall_ [rjQ{-aWL-}] => rjQ{-aWL-} -> [rjQ{-aWL-}]
  27 {-# L #-}
  28 return_a11P =
  29     PrelBase.return{-816,p-}
  30         _@_ PrelBase.[]{-3j,p-} d.Monad_aWI
  31 z_aW0  ::
  32     [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
  33 {-# L #-}
  34 z_aW0 =
  35     _letrec_ {
  36       ds_d12r  ::
  37           [PrelBase.Char{-38,p-}]
  38           -> [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
  39       {-# L #-}
  40       ds_d12r =
  41           \ ds_d12w  ::
  42                 [PrelBase.Char{-38,p-}]
  43             {-# L #-}
  44             ds_d12w ->
  45               case ds_d12w of {
  46                 PrelBase.[]{-5i,p-}{i} ->
  47                     PrelBase.[]{-5i,p-}{i}
  48                         {_@_ (PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})};
  49                 PrelBase.:{-55,p-}{i} ds_d12I ds_d12R ->
  50                     let {
  51                       a_r3d  ::
  52                           PrelBase.Char{-38,p-}
  53                       {-# L #-}
  54                       a_r3d =
  55                           ds_d12I } in
  56                     _letrec_ {
  57                       ds_d12X  ::
  58                           [PrelBase.Char{-38,p-}]
  59                           -> [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
  60                       {-# L #-}
  61                       ds_d12X =
  62                           \ ds_d132  ::
  63                                 [PrelBase.Char{-38,p-}]
  64                             {-# L #-}
  65                             ds_d132 ->
  66                               case ds_d132 of {
  67                                 PrelBase.[]{-5i,p-}{i} ->
  68                                     ds_d12r
  69                                         ds_d12R;
  70                                 PrelBase.:{-55,p-}{i} ds_d13h ds_d13q ->
  71                                     let {
  72                                       b_r3f  ::
  73                                           PrelBase.Char{-38,p-}
  74                                       {-# L #-}
  75                                       b_r3f =
  76                                           ds_d13h } in
  77                                     _letrec_ {
  78                                       ds_d13w  ::
  79                                           [PrelBase.Char{-38,p-}]
  80                                           -> [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
  81                                       {-# L #-}
  82                                       ds_d13w =
  83                                           \ ds_d13B  ::
  84                                                 [PrelBase.Char{-38,p-}]
  85                                             {-# L #-}
  86                                             ds_d13B ->
  87                                               case ds_d13B of {
  88                                                 PrelBase.[]{-5i,p-}{i} ->
  89                                                     ds_d12X
  90                                                         ds_d13q;
  91                                                 PrelBase.:{-55,p-}{i} ds_d13Q ds_d13Z ->
  92                                                     let {
  93                                                       c_r3h  ::
  94                                                           PrelBase.Char{-38,p-}
  95                                                       {-# L #-}
  96                                                       c_r3h =
  97                                                           ds_d13Q } in
  98                                                     _letrec_ {
  99                                                       ds_d145  ::
 100                                                           [PrelBase.Char{-38,p-}]
 101                                                           -> [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
 102                                                       {-# L #-}
 103                                                       ds_d145 =
 104                                                           \ ds_d14a  ::
 105                                                                 [PrelBase.Char{-38,p-}]
 106                                                             {-# L #-}
 107                                                             ds_d14a ->
 108                                                               case ds_d14a of {
 109                                                                 PrelBase.[]{-5i,p-}{i} ->
 110                                                                     ds_d13w
 111                                                                         ds_d13Z;
 112                                                                 PrelBase.:{-55,p-}{i} ds_d14p ds_d14y ->
 113                                                                     let {
 114                                                                       d_r3j  ::
 115                                                                           PrelBase.Char{-38,p-}
 116                                                                       {-# L #-}
 117                                                                       d_r3j =
 118                                                                           ds_d14p } in
 119                                                                     _letrec_ {
 120                                                                       ds_d14E  ::
 121                                                                           [PrelBase.Char{-38,p-}]
 122                                                                           -> [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
 123                                                                       {-# L #-}
 124                                                                       ds_d14E =
 125                                                                           \ ds_d14J  ::
 126                                                                                 [PrelBase.Char{-38,p-}]
 127                                                                             {-# L #-}
 128                                                                             ds_d14J ->
 129                                                                               case ds_d14J of {
 130                                                                                 PrelBase.[]{-5i,p-}{i} ->
 131                                                                                     ds_d145
 132                                                                                         ds_d14y;
 133                                                                                 PrelBase.:{-55,p-}{i} ds_d14Y ds_d157 ->
 134                                                                                     let {
 135                                                                                       e_r3l  ::
 136                                                                                           PrelBase.Char{-38,p-}
 137                                                                                       {-# L #-}
 138                                                                                       e_r3l =
 139                                                                                           ds_d14Y } in
 140                                                                                     _letrec_ {
 141                                                                                       ds_d15d  ::
 142                                                                                           [PrelBase.Char{-38,p-}]
 143                                                                                           -> [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
 144                                                                                       {-# L #-}
 145                                                                                       ds_d15d =
 146                                                                                           \ ds_d15i  ::
 147                                                                                                 [PrelBase.Char{-38,p-}]
 148                                                                                             {-# L #-}
 149                                                                                             ds_d15i ->
 150                                                                                               case
 151                                                                                                   ds_d15i
 152                                                                                               of {
 153                                                                                                 PrelBase.[]{-5i,p-}{i} ->
 154                                                                                                     ds_d14E
 155                                                                                                         ds_d157;
 156                                                                                                 PrelBase.:{-55,p-}{i} ds_d15x ds_d15G ->
 157                                                                                                     let {
 158                                                                                                       f_r3n  ::
 159                                                                                                           PrelBase.Char{-38,p-}
 160                                                                                                       {-# L #-}
 161                                                                                                       f_r3n =
 162                                                                                                           ds_d15x } in
 163                                                                                                     _letrec_ {
 164                                                                                                       ds_d15M  ::
 165                                                                                                           [PrelBase.Char{-38,p-}]
 166                                                                                                           -> [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
 167                                                                                                       {-# L #-}
 168                                                                                                       ds_d15M =
 169                                                                                                           \ ds_d15R  ::
 170                                                                                                                 [PrelBase.Char{-38,p-}]
 171                                                                                                             {-# L #-}
 172                                                                                                             ds_d15R ->
 173                                                                                                               case
 174                                                                                                                   ds_d15R
 175                                                                                                               of {
 176                                                                                                                 PrelBase.[]{-5i,p-}{i} ->
 177                                                                                                                     ds_d15d
 178                                                                                                                         ds_d15G;
 179                                                                                                                 PrelBase.:{-55,p-}{i} ds_d166 ds_d16f ->
 180                                                                                                                     let {
 181                                                                                                                       g_r3p  ::
 182                                                                                                                           PrelBase.Char{-38,p-}
 183                                                                                                                       {-# L #-}
 184                                                                                                                       g_r3p =
 185                                                                                                                           ds_d166 } in
 186                                                                                                                     _letrec_ {
 187                                                                                                                       ds_d16l  ::
 188                                                                                                                           [PrelBase.Char{-38,p-}]
 189                                                                                                                           -> [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
 190                                                                                                                       {-# L #-}
 191                                                                                                                       ds_d16l =
 192                                                                                                                           \ ds_d16q  ::
 193                                                                                                                                 [PrelBase.Char{-38,p-}]
 194                                                                                                                             {-# L #-}
 195                                                                                                                             ds_d16q ->
 196                                                                                                                               case
 197                                                                                                                                   ds_d16q
 198                                                                                                                               of {
 199                                                                                                                                 PrelBase.[]{-5i,p-}{i} ->
 200                                                                                                                                     ds_d15M
 201                                                                                                                                         ds_d16f;
 202                                                                                                                                 PrelBase.:{-55,p-}{i} ds_d16F ds_d16O ->
 203                                                                                                                                     let {
 204                                                                                                                                       h_r3r  ::
 205                                                                                                                                           PrelBase.Char{-38,p-}
 206                                                                                                                                       {-# L #-}
 207                                                                                                                                       h_r3r =
 208                                                                                                                                           ds_d16F } in
 209                                                                                                                                     _letrec_ {
 210                                                                                                                                       ds_d16U  ::
 211                                                                                                                                           [PrelBase.Char{-38,p-}]
 212                                                                                                                                           -> [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
 213                                                                                                                                       {-# L #-}
 214                                                                                                                                       ds_d16U =
 215                                                                                                                                           \ ds_d16Z  ::
 216                                                                                                                                                 [PrelBase.Char{-38,p-}]
 217                                                                                                                                             {-# L #-}
 218                                                                                                                                             ds_d16Z ->
 219                                                                                                                                               case
 220                                                                                                                                                   ds_d16Z
 221                                                                                                                                               of {
 222                                                                                                                                                 PrelBase.[]{-5i,p-}{i} ->
 223                                                                                                                                                     ds_d16l
 224                                                                                                                                                         ds_d16O;
 225                                                                                                                                                 PrelBase.:{-55,p-}{i} ds_d17e ds_d17n ->
 226                                                                                                                                                     let {
 227                                                                                                                                                       i_r3t  ::
 228                                                                                                                                                           PrelBase.Char{-38,p-}
 229                                                                                                                                                       {-# L #-}
 230                                                                                                                                                       i_r3t =
 231                                                                                                                                                           ds_d17e } in
 232                                                                                                                                                     _letrec_ {
 233                                                                                                                                                       ds_d17t  ::
 234                                                                                                                                                           [PrelBase.Char{-38,p-}]
 235                                                                                                                                                           -> [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
 236                                                                                                                                                       {-# L #-}
 237                                                                                                                                                       ds_d17t =
 238                                                                                                                                                           \ ds_d17y  ::
 239                                                                                                                                                                 [PrelBase.Char{-38,p-}]
 240                                                                                                                                                             {-# L #-}
 241                                                                                                                                                             ds_d17y ->
 242                                                                                                                                                               case
 243                                                                                                                                                                   ds_d17y
 244                                                                                                                                                               of {
 245                                                                                                                                                                 PrelBase.[]{-5i,p-}{i} ->
 246                                                                                                                                                                     ds_d16U
 247                                                                                                                                                                         ds_d17n;
 248                                                                                                                                                                 PrelBase.:{-55,p-}{i} ds_d17N ds_d186 ->
 249                                                                                                                                                                     let {
 250                                                                                                                                                                       j_r3v  ::
 251                                                                                                                                                                           PrelBase.Char{-38,p-}
 252                                                                                                                                                                       {-# L #-}
 253                                                                                                                                                                       j_r3v =
 254                                                                                                                                                                           ds_d17N } in
 255                                                                                                                                                                     let {
 256                                                                                                                                                                       ds_d17Z  ::
 257                                                                                                                                                                           (PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})
 258                                                                                                                                                                       {-# L #-}
 259                                                                                                                                                                       ds_d17Z =
 260                                                                                                                                                                           PrelTup.(,,,,,,,,,){-6a,p-}{i}
 261                                                                                                                                                                               {_@_ PrelBase.Char{-38,p-}
 262                                                                                                                                                                                _@_ PrelBase.Char{-38,p-}
 263                                                                                                                                                                                _@_ PrelBase.Char{-38,p-}
 264                                                                                                                                                                                _@_ PrelBase.Char{-38,p-}
 265                                                                                                                                                                                _@_ PrelBase.Char{-38,p-}
 266                                                                                                                                                                                _@_ PrelBase.Char{-38,p-}
 267                                                                                                                                                                                _@_ PrelBase.Char{-38,p-}
 268                                                                                                                                                                                _@_ PrelBase.Char{-38,p-}
 269                                                                                                                                                                                _@_ PrelBase.Char{-38,p-}
 270                                                                                                                                                                                _@_ PrelBase.Char{-38,p-}
 271                                                                                                                                                                                a_r3d
 272                                                                                                                                                                                b_r3f
 273                                                                                                                                                                                c_r3h
 274                                                                                                                                                                                d_r3j
 275                                                                                                                                                                                e_r3l
 276                                                                                                                                                                                f_r3n
 277                                                                                                                                                                                g_r3p
 278                                                                                                                                                                                h_r3r
 279                                                                                                                                                                                i_r3t
 280                                                                                                                                                                                j_r3v} } in
 281                                                                                                                                                                     let {
 282                                                                                                                                                                       ds_d183  ::
 283                                                                                                                                                                           [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
 284                                                                                                                                                                       {-# L #-}
 285                                                                                                                                                                       ds_d183 =
 286                                                                                                                                                                           ds_d17t
 287                                                                                                                                                                               ds_d186
 288                                                                                                                                                                     } in
 289                                                                                                                                                                       PrelBase.:{-55,p-}{i}
 290                                                                                                                                                                           {_@_ (PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})
 291                                                                                                                                                                            ds_d17Z
 292                                                                                                                                                                            ds_d183};
 293                                                                                                                                                               };
 294                                                                                                                                                     } in
 295                                                                                                                                                       ds_d17t
 296                                                                                                                                                           _string_ "12";
 297                                                                                                                                               };
 298                                                                                                                                     } in
 299                                                                                                                                       ds_d16U
 300                                                                                                                                           _string_ "12";
 301                                                                                                                               };
 302                                                                                                                     } in
 303                                                                                                                       ds_d16l
 304                                                                                                                           _string_ "12";
 305                                                                                                               };
 306                                                                                                     } in
 307                                                                                                       ds_d15M
 308                                                                                                           _string_ "12";
 309                                                                                               };
 310                                                                                     } in
 311                                                                                       ds_d15d
 312                                                                                           _string_ "12";
 313                                                                               };
 314                                                                     } in
 315                                                                       ds_d14E
 316                                                                           _string_ "12";
 317                                                               };
 318                                                     } in
 319                                                       ds_d145
 320                                                           _string_ "12";
 321                                               };
 322                                     } in
 323                                       ds_d13w
 324                                           _string_ "12";
 325                               };
 326                     } in
 327                       ds_d12X
 328                           _string_ "12";
 329               };
 330     } in
 331       ds_d12r
 332           _string_ "12"
 333 z{-r3w,x-}  ::
 334     [(PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-}, PrelBase.Char{-38,p-})]
 335 {-# L #-}
 336 z{-r3w,x-} =
 337     z_aW0
 338 end Rec }