ghc/compiler/tests/deSugar/ds010.stderr

   1 Desugared:
   2 Test.z :: [(Char, Char, Char, Char, Char, Char, Char, Char, Char, Char)]
   3 Test.z =
   4     let
   5       {- CoRec -}
   6       ds.136 =
   7           \ ds.137 ->
   8               case ds.137 of {
   9                 Nil ->
  10                     Nil (Char,
  11                          Char,
  12                          Char,
  13                          Char,
  14                          Char,
  15                          Char,
  16                          Char,
  17                          Char,
  18                          Char,
  19                          Char)
  20                 (:) ds.138 ds.139 ->
  21                     let a.140 = ds.138
  22                     in
  23                       let
  24                         {- CoRec -}
  25                         ds.141 =
  26                             \ ds.142 ->
  27                                 case ds.142 of {
  28                                   Nil -> ds.136 ds.139
  29                                   (:) ds.143 ds.144 ->
  30                                       let b.145 = ds.143
  31                                       in
  32                                         let
  33                                           {- CoRec -}
  34                                           ds.146 =
  35                                               \ ds.147 ->
  36                                                   case ds.147 of {
  37                                                     Nil -> ds.141 ds.144
  38                                                     (:) ds.148 ds.149 ->
  39                                                         let c.150 = ds.148
  40                                                         in
  41                                                           let
  42                                                             {- CoRec -}
  43                                                             ds.151 =
  44                                                                 \ ds.152 ->
  45                                                                     case
  46                                                                         ds.152
  47                                                                     of {
  48                                                                       Nil ->
  49                                                                           ds.146
  50                                                                               ds.149
  51                                                                       (:) ds.153
  52                                                                           ds.154 ->
  53                                                                           let
  54                                                                             d.155 =
  55                                                                                 ds.153
  56                                                                           in
  57                                                                             let
  58                                                                               {- CoRec -}
  59                                                                               ds.156 =
  60                                                                                   \ ds.157 ->
  61                                                                                       case
  62                                                                                           ds.157
  63                                                                                       of {
  64                                                                                         Nil ->
  65                                                                                             ds.151
  66                                                                                                 ds.154
  67                                                                                         (:) ds.158
  68                                                                                             ds.159 ->
  69                                                                                             let
  70                                                                                               e.160 =
  71                                                                                                   ds.158
  72                                                                                             in
  73                                                                                               let
  74                                                                                                 {- CoRec -}
  75                                                                                                 ds.161 =
  76                                                                                                     \ ds.162 ->
  77                                                                                                         case
  78                                                                                                             ds.162
  79                                                                                                         of {
  80                                                                                                           Nil ->
  81                                                                                                               ds.156
  82                                                                                                                   ds.159
  83                                                                                                           (:) ds.163
  84                                                                                                               ds.164 ->
  85                                                                                                               let
  86                                                                                                                 f.165 =
  87                                                                                                                     ds.163
  88                                                                                                               in
  89                                                                                                                 let
  90                                                                                                                   {- CoRec -}
  91                                                                                                                   ds.166 =
  92                                                                                                                       \ ds.167 ->
  93                                                                                                                           case
  94                                                                                                                               ds.167
  95                                                                                                                           of {
  96                                                                                                                             Nil ->
  97                                                                                                                                 ds.161
  98                                                                                                                                     ds.164
  99                                                                                                                             (:) ds.168
 100                                                                                                                                 ds.169 ->
 101                                                                                                                                 let
 102                                                                                                                                   g.170 =
 103                                                                                                                                       ds.168
 104                                                                                                                                 in
 105                                                                                                                                   let
 106                                                                                                                                     {- CoRec -}
 107                                                                                                                                     ds.171 =
 108                                                                                                                                         \ ds.172 ->
 109                                                                                                                                             case
 110                                                                                                                                                 ds.172
 111                                                                                                                                             of {
 112                                                                                                                                               Nil ->
 113                                                                                                                                                   ds.166
 114                                                                                                                                                       ds.169
 115                                                                                                                                               (:) ds.173
 116                                                                                                                                                   ds.174 ->
 117                                                                                                                                                   let
 118                                                                                                                                                     h.175 =
 119                                                                                                                                                         ds.173
 120                                                                                                                                                   in
 121                                                                                                                                                     let
 122                                                                                                                                                       {- CoRec -}
 123                                                                                                                                                       ds.176 =
 124                                                                                                                                                           \ ds.177 ->
 125                                                                                                                                                               case
 126                                                                                                                                                                   ds.177
 127                                                                                                                                                               of {
 128                                                                                                                                                                 Nil ->
 129                                                                                                                                                                     ds.171
 130                                                                                                                                                                         ds.174
 131                                                                                                                                                                 (:) ds.178
 132                                                                                                                                                                     ds.179 ->
 133                                                                                                                                                                     let
 134                                                                                                                                                                       i.180 =
 135                                                                                                                                                                           ds.178
 136                                                                                                                                                                     in
 137                                                                                                                                                                       let
 138                                                                                                                                                                         {- CoRec -}
 139                                                                                                                                                                         ds.181 =
 140                                                                                                                                                                             \ ds.182 ->
 141                                                                                                                                                                                 case
 142                                                                                                                                                                                     ds.182
 143                                                                                                                                                                                 of {
 144                                                                                                                                                                                   Nil ->
 145                                                                                                                                                                                       ds.176
 146                                                                                                                                                                                           ds.179
 147                                                                                                                                                                                   (:) ds.183
 148                                                                                                                                                                                       ds.184 ->
 149                                                                                                                                                                                       let
 150                                                                                                                                                                                         j.185 =
 151                                                                                                                                                                                             ds.183
 152                                                                                                                                                                                       in
 153                                                                                                                                                                                         (: (Char,
 154                                                                                                                                                                                             Char,
 155                                                                                                                                                                                             Char,
 156                                                                                                                                                                                             Char,
 157                                                                                                                                                                                             Char,
 158                                                                                                                                                                                             Char,
 159                                                                                                                                                                                             Char,
 160                                                                                                                                                                                             Char,
 161                                                                                                                                                                                             Char,
 162                                                                                                                                                                                             Char))
 163                                                                                                                                                                                             (MkTuple10!
 164                                                                                                                                                                                                  Char
 165                                                                                                                                                                                                  Char
 166                                                                                                                                                                                                  Char
 167                                                                                                                                                                                                  Char
 168                                                                                                                                                                                                  Char
 169                                                                                                                                                                                                  Char
 170                                                                                                                                                                                                  Char
 171                                                                                                                                                                                                  Char
 172                                                                                                                                                                                                  Char
 173                                                                                                                                                                                                  Char
 174                                                                                                                                                                                                  a.140
 175                                                                                                                                                                                                  b.145
 176                                                                                                                                                                                                  c.150
 177                                                                                                                                                                                                  d.155
 178                                                                                                                                                                                                  e.160
 179                                                                                                                                                                                                  f.165
 180                                                                                                                                                                                                  g.170
 181                                                                                                                                                                                                  h.175
 182                                                                                                                                                                                                  i.180
 183                                                                                                                                                                                                  j.185)
 184                                                                                                                                                                                             (ds.181
 185                                                                                                                                                                                                  ds.184)
 186                                                                                                                                                                                 }
 187                                                                                                                                                                         {- end CoRec -}
 188                                                                                                                                                                       in
 189                                                                                                                                                                         ds.181
 190                                                                                                                                                                             "12"S
 191                                                                                                                                                               }
 192                                                                                                                                                       {- end CoRec -}
 193                                                                                                                                                     in
 194                                                                                                                                                       ds.176
 195                                                                                                                                                           "12"S
 196                                                                                                                                             }
 197                                                                                                                                     {- end CoRec -}
 198                                                                                                                                   in
 199                                                                                                                                     ds.171
 200                                                                                                                                         "12"S
 201                                                                                                                           }
 202                                                                                                                   {- end CoRec -}
 203                                                                                                                 in
 204                                                                                                                   ds.166
 205                                                                                                                       "12"S
 206                                                                                                         }
 207                                                                                                 {- end CoRec -}
 208                                                                                               in
 209                                                                                                 ds.161
 210                                                                                                     "12"S
 211                                                                                       }
 212                                                                               {- end CoRec -}
 213                                                                             in
 214                                                                               ds.156
 215                                                                                   "12"S
 216                                                                     }
 217                                                             {- end CoRec -}
 218                                                           in  ds.151 "12"S
 219                                                   }
 220                                           {- end CoRec -}
 221                                         in  ds.146 "12"S
 222                                 }
 223                         {- end CoRec -}
 224                       in  ds.141 "12"S
 225               }
 226       {- end CoRec -}
 227     in  ds.136 "12"S
 228