1ParseOk
2  ( Module
3      SrcSpanInfo
4        { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 1 1 17 1
5        , srcInfoPoints =
6            [ SrcSpan "tests/examples/BlockArguments.hs" 1 1 1 1
7            , SrcSpan "tests/examples/BlockArguments.hs" 2 1 2 1
8            , SrcSpan "tests/examples/BlockArguments.hs" 2 1 2 1
9            , SrcSpan "tests/examples/BlockArguments.hs" 4 1 4 1
10            , SrcSpan "tests/examples/BlockArguments.hs" 8 1 8 1
11            , SrcSpan "tests/examples/BlockArguments.hs" 10 1 10 1
12            , SrcSpan "tests/examples/BlockArguments.hs" 17 1 17 1
13            , SrcSpan "tests/examples/BlockArguments.hs" 17 1 17 1
14            ]
15        }
16      (Just
17         (ModuleHead
18            SrcSpanInfo
19              { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 2 1 2 28
20              , srcInfoPoints =
21                  [ SrcSpan "tests/examples/BlockArguments.hs" 2 1 2 7
22                  , SrcSpan "tests/examples/BlockArguments.hs" 2 23 2 28
23                  ]
24              }
25            (ModuleName
26               SrcSpanInfo
27                 { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 2 8 2 22
28                 , srcInfoPoints = []
29                 }
30               "BlockArguments")
31            Nothing
32            Nothing))
33      [ LanguagePragma
34          SrcSpanInfo
35            { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 1 1 1 32
36            , srcInfoPoints =
37                [ SrcSpan "tests/examples/BlockArguments.hs" 1 1 1 13
38                , SrcSpan "tests/examples/BlockArguments.hs" 1 29 1 32
39                ]
40            }
41          [ Ident
42              SrcSpanInfo
43                { srcInfoSpan =
44                    SrcSpan "tests/examples/BlockArguments.hs" 1 14 1 28
45                , srcInfoPoints = []
46                }
47              "BlockArguments"
48          ]
49      ]
50      []
51      [ PatBind
52          SrcSpanInfo
53            { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 4 1 6 14
54            , srcInfoPoints = []
55            }
56          (PVar
57             SrcSpanInfo
58               { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 4 1 4 4
59               , srcInfoPoints = []
60               }
61             (Ident
62                SrcSpanInfo
63                  { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 4 1 4 4
64                  , srcInfoPoints = []
65                  }
66                "foo"))
67          (UnGuardedRhs
68             SrcSpanInfo
69               { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 4 5 6 14
70               , srcInfoPoints =
71                   [ SrcSpan "tests/examples/BlockArguments.hs" 4 5 4 6 ]
72               }
73             (App
74                SrcSpanInfo
75                  { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 4 7 6 14
76                  , srcInfoPoints = []
77                  }
78                (App
79                   SrcSpanInfo
80                     { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 4 7 4 19
81                     , srcInfoPoints = []
82                     }
83                   (Var
84                      SrcSpanInfo
85                        { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 4 7 4 11
86                        , srcInfoPoints = []
87                        }
88                      (UnQual
89                         SrcSpanInfo
90                           { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 4 7 4 11
91                           , srcInfoPoints = []
92                           }
93                         (Ident
94                            SrcSpanInfo
95                              { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 4 7 4 11
96                              , srcInfoPoints = []
97                              }
98                            "when")))
99                   (Paren
100                      SrcSpanInfo
101                        { srcInfoSpan =
102                            SrcSpan "tests/examples/BlockArguments.hs" 4 12 4 19
103                        , srcInfoPoints =
104                            [ SrcSpan "tests/examples/BlockArguments.hs" 4 12 4 13
105                            , SrcSpan "tests/examples/BlockArguments.hs" 4 18 4 19
106                            ]
107                        }
108                      (InfixApp
109                         SrcSpanInfo
110                           { srcInfoSpan =
111                               SrcSpan "tests/examples/BlockArguments.hs" 4 13 4 18
112                           , srcInfoPoints = []
113                           }
114                         (Var
115                            SrcSpanInfo
116                              { srcInfoSpan =
117                                  SrcSpan "tests/examples/BlockArguments.hs" 4 13 4 14
118                              , srcInfoPoints = []
119                              }
120                            (UnQual
121                               SrcSpanInfo
122                                 { srcInfoSpan =
123                                     SrcSpan "tests/examples/BlockArguments.hs" 4 13 4 14
124                                 , srcInfoPoints = []
125                                 }
126                               (Ident
127                                  SrcSpanInfo
128                                    { srcInfoSpan =
129                                        SrcSpan "tests/examples/BlockArguments.hs" 4 13 4 14
130                                    , srcInfoPoints = []
131                                    }
132                                  "x")))
133                         (QVarOp
134                            SrcSpanInfo
135                              { srcInfoSpan =
136                                  SrcSpan "tests/examples/BlockArguments.hs" 4 15 4 16
137                              , srcInfoPoints = []
138                              }
139                            (UnQual
140                               SrcSpanInfo
141                                 { srcInfoSpan =
142                                     SrcSpan "tests/examples/BlockArguments.hs" 4 15 4 16
143                                 , srcInfoPoints = []
144                                 }
145                               (Symbol
146                                  SrcSpanInfo
147                                    { srcInfoSpan =
148                                        SrcSpan "tests/examples/BlockArguments.hs" 4 15 4 16
149                                    , srcInfoPoints = []
150                                    }
151                                  ">")))
152                         (Lit
153                            SrcSpanInfo
154                              { srcInfoSpan =
155                                  SrcSpan "tests/examples/BlockArguments.hs" 4 17 4 18
156                              , srcInfoPoints = []
157                              }
158                            (Int
159                               SrcSpanInfo
160                                 { srcInfoSpan =
161                                     SrcSpan "tests/examples/BlockArguments.hs" 4 17 4 18
162                                 , srcInfoPoints = []
163                                 }
164                               0
165                               "0")))))
166                (Do
167                   SrcSpanInfo
168                     { srcInfoSpan =
169                         SrcSpan "tests/examples/BlockArguments.hs" 4 20 6 14
170                     , srcInfoPoints =
171                         [ SrcSpan "tests/examples/BlockArguments.hs" 4 20 4 22
172                         , SrcSpan "tests/examples/BlockArguments.hs" 5 3 5 3
173                         , SrcSpan "tests/examples/BlockArguments.hs" 6 3 6 3
174                         , SrcSpan "tests/examples/BlockArguments.hs" 8 1 8 0
175                         ]
176                     }
177                   [ Qualifier
178                       SrcSpanInfo
179                         { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 5 3 5 10
180                         , srcInfoPoints = []
181                         }
182                       (App
183                          SrcSpanInfo
184                            { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 5 3 5 10
185                            , srcInfoPoints = []
186                            }
187                          (Var
188                             SrcSpanInfo
189                               { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 5 3 5 8
190                               , srcInfoPoints = []
191                               }
192                             (UnQual
193                                SrcSpanInfo
194                                  { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 5 3 5 8
195                                  , srcInfoPoints = []
196                                  }
197                                (Ident
198                                   SrcSpanInfo
199                                     { srcInfoSpan =
200                                         SrcSpan "tests/examples/BlockArguments.hs" 5 3 5 8
201                                     , srcInfoPoints = []
202                                     }
203                                   "print")))
204                          (Var
205                             SrcSpanInfo
206                               { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 5 9 5 10
207                               , srcInfoPoints = []
208                               }
209                             (UnQual
210                                SrcSpanInfo
211                                  { srcInfoSpan =
212                                      SrcSpan "tests/examples/BlockArguments.hs" 5 9 5 10
213                                  , srcInfoPoints = []
214                                  }
215                                (Ident
216                                   SrcSpanInfo
217                                     { srcInfoSpan =
218                                         SrcSpan "tests/examples/BlockArguments.hs" 5 9 5 10
219                                     , srcInfoPoints = []
220                                     }
221                                   "x"))))
222                   , Qualifier
223                       SrcSpanInfo
224                         { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 6 3 6 14
225                         , srcInfoPoints = []
226                         }
227                       (Var
228                          SrcSpanInfo
229                            { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 6 3 6 14
230                            , srcInfoPoints = []
231                            }
232                          (UnQual
233                             SrcSpanInfo
234                               { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 6 3 6 14
235                               , srcInfoPoints = []
236                               }
237                             (Ident
238                                SrcSpanInfo
239                                  { srcInfoSpan =
240                                      SrcSpan "tests/examples/BlockArguments.hs" 6 3 6 14
241                                  , srcInfoPoints = []
242                                  }
243                                "exitFailure")))
244                   ])))
245          Nothing
246      , PatBind
247          SrcSpanInfo
248            { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 8 1 8 56
249            , srcInfoPoints = []
250            }
251          (PVar
252             SrcSpanInfo
253               { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 8 1 8 4
254               , srcInfoPoints = []
255               }
256             (Ident
257                SrcSpanInfo
258                  { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 8 1 8 4
259                  , srcInfoPoints = []
260                  }
261                "bar"))
262          (UnGuardedRhs
263             SrcSpanInfo
264               { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 8 5 8 56
265               , srcInfoPoints =
266                   [ SrcSpan "tests/examples/BlockArguments.hs" 8 5 8 6 ]
267               }
268             (App
269                SrcSpanInfo
270                  { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 8 7 8 56
271                  , srcInfoPoints = []
272                  }
273                (App
274                   SrcSpanInfo
275                     { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 8 7 8 26
276                     , srcInfoPoints = []
277                     }
278                   (Var
279                      SrcSpanInfo
280                        { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 8 7 8 21
281                        , srcInfoPoints = []
282                        }
283                      (UnQual
284                         SrcSpanInfo
285                           { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 8 7 8 21
286                           , srcInfoPoints = []
287                           }
288                         (Ident
289                            SrcSpanInfo
290                              { srcInfoSpan = SrcSpan "tests/examples/BlockArguments.hs" 8 7 8 21
291                              , srcInfoPoints = []
292                              }
293                            "withForeignPtr")))
294                   (Var
295                      SrcSpanInfo
296                        { srcInfoSpan =
297                            SrcSpan "tests/examples/BlockArguments.hs" 8 22 8 26
298                        , srcInfoPoints = []
299                        }
300                      (UnQual
301                         SrcSpanInfo
302                           { srcInfoSpan =
303                               SrcSpan "tests/examples/BlockArguments.hs" 8 22 8 26
304                           , srcInfoPoints = []
305                           }
306                         (Ident
307                            SrcSpanInfo
308                              { srcInfoSpan =
309                                  SrcSpan "tests/examples/BlockArguments.hs" 8 22 8 26
310                              , srcInfoPoints = []
311                              }
312                            "fptr"))))
313                (Lambda
314                   SrcSpanInfo
315                     { srcInfoSpan =
316                         SrcSpan "tests/examples/BlockArguments.hs" 8 27 8 56
317                     , srcInfoPoints =
318                         [ SrcSpan "tests/examples/BlockArguments.hs" 8 27 8 28
319                         , SrcSpan "tests/examples/BlockArguments.hs" 8 32 8 34
320                         ]
321                     }
322                   [ PVar
323                       SrcSpanInfo
324                         { srcInfoSpan =
325                             SrcSpan "tests/examples/BlockArguments.hs" 8 28 8 31
326                         , srcInfoPoints = []
327                         }
328                       (Ident
329                          SrcSpanInfo
330                            { srcInfoSpan =
331                                SrcSpan "tests/examples/BlockArguments.hs" 8 28 8 31
332                            , srcInfoPoints = []
333                            }
334                          "ptr")
335                   ]
336                   (App
337                      SrcSpanInfo
338                        { srcInfoSpan =
339                            SrcSpan "tests/examples/BlockArguments.hs" 8 35 8 56
340                        , srcInfoPoints = []
341                        }
342                      (App
343                         SrcSpanInfo
344                           { srcInfoSpan =
345                               SrcSpan "tests/examples/BlockArguments.hs" 8 35 8 51
346                           , srcInfoPoints = []
347                           }
348                         (App
349                            SrcSpanInfo
350                              { srcInfoSpan =
351                                  SrcSpan "tests/examples/BlockArguments.hs" 8 35 8 47
352                              , srcInfoPoints = []
353                              }
354                            (Var
355                               SrcSpanInfo
356                                 { srcInfoSpan =
357                                     SrcSpan "tests/examples/BlockArguments.hs" 8 35 8 43
358                                 , srcInfoPoints = []
359                                 }
360                               (UnQual
361                                  SrcSpanInfo
362                                    { srcInfoSpan =
363                                        SrcSpan "tests/examples/BlockArguments.hs" 8 35 8 43
364                                    , srcInfoPoints = []
365                                    }
366                                  (Ident
367                                     SrcSpanInfo
368                                       { srcInfoSpan =
369                                           SrcSpan "tests/examples/BlockArguments.hs" 8 35 8 43
370                                       , srcInfoPoints = []
371                                       }
372                                     "c_memcpy")))
373                            (Var
374                               SrcSpanInfo
375                                 { srcInfoSpan =
376                                     SrcSpan "tests/examples/BlockArguments.hs" 8 44 8 47
377                                 , srcInfoPoints = []
378                                 }
379                               (UnQual
380                                  SrcSpanInfo
381                                    { srcInfoSpan =
382                                        SrcSpan "tests/examples/BlockArguments.hs" 8 44 8 47
383                                    , srcInfoPoints = []
384                                    }
385                                  (Ident
386                                     SrcSpanInfo
387                                       { srcInfoSpan =
388                                           SrcSpan "tests/examples/BlockArguments.hs" 8 44 8 47
389                                       , srcInfoPoints = []
390                                       }
391                                     "buf"))))
392                         (Var
393                            SrcSpanInfo
394                              { srcInfoSpan =
395                                  SrcSpan "tests/examples/BlockArguments.hs" 8 48 8 51
396                              , srcInfoPoints = []
397                              }
398                            (UnQual
399                               SrcSpanInfo
400                                 { srcInfoSpan =
401                                     SrcSpan "tests/examples/BlockArguments.hs" 8 48 8 51
402                                 , srcInfoPoints = []
403                                 }
404                               (Ident
405                                  SrcSpanInfo
406                                    { srcInfoSpan =
407                                        SrcSpan "tests/examples/BlockArguments.hs" 8 48 8 51
408                                    , srcInfoPoints = []
409                                    }
410                                  "ptr"))))
411                      (Var
412                         SrcSpanInfo
413                           { srcInfoSpan =
414                               SrcSpan "tests/examples/BlockArguments.hs" 8 52 8 56
415                           , srcInfoPoints = []
416                           }
417                         (UnQual
418                            SrcSpanInfo
419                              { srcInfoSpan =
420                                  SrcSpan "tests/examples/BlockArguments.hs" 8 52 8 56
421                              , srcInfoPoints = []
422                              }
423                            (Ident
424                               SrcSpanInfo
425                                 { srcInfoSpan =
426                                     SrcSpan "tests/examples/BlockArguments.hs" 8 52 8 56
427                                 , srcInfoPoints = []
428                                 }
429                               "size")))))))
430          Nothing
431      , FunBind
432          SrcSpanInfo
433            { srcInfoSpan =
434                SrcSpan "tests/examples/BlockArguments.hs" 10 1 16 32
435            , srcInfoPoints = []
436            }
437          [ Match
438              SrcSpanInfo
439                { srcInfoSpan =
440                    SrcSpan "tests/examples/BlockArguments.hs" 10 1 16 32
441                , srcInfoPoints = []
442                }
443              (Ident
444                 SrcSpanInfo
445                   { srcInfoSpan =
446                       SrcSpan "tests/examples/BlockArguments.hs" 10 1 10 4
447                   , srcInfoPoints = []
448                   }
449                 "baz")
450              [ PVar
451                  SrcSpanInfo
452                    { srcInfoSpan =
453                        SrcSpan "tests/examples/BlockArguments.hs" 10 5 10 9
454                    , srcInfoPoints = []
455                    }
456                  (Ident
457                     SrcSpanInfo
458                       { srcInfoSpan =
459                           SrcSpan "tests/examples/BlockArguments.hs" 10 5 10 9
460                       , srcInfoPoints = []
461                       }
462                     "arg1")
463              , PVar
464                  SrcSpanInfo
465                    { srcInfoSpan =
466                        SrcSpan "tests/examples/BlockArguments.hs" 10 10 10 14
467                    , srcInfoPoints = []
468                    }
469                  (Ident
470                     SrcSpanInfo
471                       { srcInfoSpan =
472                           SrcSpan "tests/examples/BlockArguments.hs" 10 10 10 14
473                       , srcInfoPoints = []
474                       }
475                     "arg2")
476              , PVar
477                  SrcSpanInfo
478                    { srcInfoSpan =
479                        SrcSpan "tests/examples/BlockArguments.hs" 10 15 10 19
480                    , srcInfoPoints = []
481                    }
482                  (Ident
483                     SrcSpanInfo
484                       { srcInfoSpan =
485                           SrcSpan "tests/examples/BlockArguments.hs" 10 15 10 19
486                       , srcInfoPoints = []
487                       }
488                     "arg3")
489              , PVar
490                  SrcSpanInfo
491                    { srcInfoSpan =
492                        SrcSpan "tests/examples/BlockArguments.hs" 10 20 10 24
493                    , srcInfoPoints = []
494                    }
495                  (Ident
496                     SrcSpanInfo
497                       { srcInfoSpan =
498                           SrcSpan "tests/examples/BlockArguments.hs" 10 20 10 24
499                       , srcInfoPoints = []
500                       }
501                     "arg4")
502              ]
503              (UnGuardedRhs
504                 SrcSpanInfo
505                   { srcInfoSpan =
506                       SrcSpan "tests/examples/BlockArguments.hs" 10 25 16 32
507                   , srcInfoPoints =
508                       [ SrcSpan "tests/examples/BlockArguments.hs" 10 25 10 26 ]
509                   }
510                 (InfixApp
511                    SrcSpanInfo
512                      { srcInfoSpan =
513                          SrcSpan "tests/examples/BlockArguments.hs" 10 27 16 32
514                      , srcInfoPoints = []
515                      }
516                    (InfixApp
517                       SrcSpanInfo
518                         { srcInfoSpan =
519                             SrcSpan "tests/examples/BlockArguments.hs" 10 27 11 29
520                         , srcInfoPoints = []
521                         }
522                       (Var
523                          SrcSpanInfo
524                            { srcInfoSpan =
525                                SrcSpan "tests/examples/BlockArguments.hs" 10 27 10 39
526                            , srcInfoPoints = []
527                            }
528                          (UnQual
529                             SrcSpanInfo
530                               { srcInfoSpan =
531                                   SrcSpan "tests/examples/BlockArguments.hs" 10 27 10 39
532                               , srcInfoPoints = []
533                               }
534                             (Ident
535                                SrcSpanInfo
536                                  { srcInfoSpan =
537                                      SrcSpan "tests/examples/BlockArguments.hs" 10 27 10 39
538                                  , srcInfoPoints = []
539                                  }
540                                "initialValue")))
541                       (QVarOp
542                          SrcSpanInfo
543                            { srcInfoSpan =
544                                SrcSpan "tests/examples/BlockArguments.hs" 11 3 11 4
545                            , srcInfoPoints = []
546                            }
547                          (UnQual
548                             SrcSpanInfo
549                               { srcInfoSpan =
550                                   SrcSpan "tests/examples/BlockArguments.hs" 11 3 11 4
551                               , srcInfoPoints = []
552                               }
553                             (Symbol
554                                SrcSpanInfo
555                                  { srcInfoSpan =
556                                      SrcSpan "tests/examples/BlockArguments.hs" 11 3 11 4
557                                  , srcInfoPoints = []
558                                  }
559                                "&")))
560                       (App
561                          SrcSpanInfo
562                            { srcInfoSpan =
563                                SrcSpan "tests/examples/BlockArguments.hs" 11 7 11 29
564                            , srcInfoPoints = []
565                            }
566                          (App
567                             SrcSpanInfo
568                               { srcInfoSpan =
569                                   SrcSpan "tests/examples/BlockArguments.hs" 11 7 11 24
570                               , srcInfoPoints = []
571                               }
572                             (Var
573                                SrcSpanInfo
574                                  { srcInfoSpan =
575                                      SrcSpan "tests/examples/BlockArguments.hs" 11 7 11 19
576                                  , srcInfoPoints = []
577                                  }
578                                (UnQual
579                                   SrcSpanInfo
580                                     { srcInfoSpan =
581                                         SrcSpan "tests/examples/BlockArguments.hs" 11 7 11 19
582                                     , srcInfoPoints = []
583                                     }
584                                   (Ident
585                                      SrcSpanInfo
586                                        { srcInfoSpan =
587                                            SrcSpan "tests/examples/BlockArguments.hs" 11 7 11 19
588                                        , srcInfoPoints = []
589                                        }
590                                      "someFunction")))
591                             (Var
592                                SrcSpanInfo
593                                  { srcInfoSpan =
594                                      SrcSpan "tests/examples/BlockArguments.hs" 11 20 11 24
595                                  , srcInfoPoints = []
596                                  }
597                                (UnQual
598                                   SrcSpanInfo
599                                     { srcInfoSpan =
600                                         SrcSpan "tests/examples/BlockArguments.hs" 11 20 11 24
601                                     , srcInfoPoints = []
602                                     }
603                                   (Ident
604                                      SrcSpanInfo
605                                        { srcInfoSpan =
606                                            SrcSpan "tests/examples/BlockArguments.hs" 11 20 11 24
607                                        , srcInfoPoints = []
608                                        }
609                                      "arg1"))))
610                          (Var
611                             SrcSpanInfo
612                               { srcInfoSpan =
613                                   SrcSpan "tests/examples/BlockArguments.hs" 11 25 11 29
614                               , srcInfoPoints = []
615                               }
616                             (UnQual
617                                SrcSpanInfo
618                                  { srcInfoSpan =
619                                      SrcSpan "tests/examples/BlockArguments.hs" 11 25 11 29
620                                  , srcInfoPoints = []
621                                  }
622                                (Ident
623                                   SrcSpanInfo
624                                     { srcInfoSpan =
625                                         SrcSpan "tests/examples/BlockArguments.hs" 11 25 11 29
626                                     , srcInfoPoints = []
627                                     }
628                                   "arg2")))))
629                    (QVarOp
630                       SrcSpanInfo
631                         { srcInfoSpan =
632                             SrcSpan "tests/examples/BlockArguments.hs" 12 3 12 6
633                         , srcInfoPoints = []
634                         }
635                       (UnQual
636                          SrcSpanInfo
637                            { srcInfoSpan =
638                                SrcSpan "tests/examples/BlockArguments.hs" 12 3 12 6
639                            , srcInfoPoints = []
640                            }
641                          (Symbol
642                             SrcSpanInfo
643                               { srcInfoSpan =
644                                   SrcSpan "tests/examples/BlockArguments.hs" 12 3 12 6
645                               , srcInfoPoints = []
646                               }
647                             ">>=")))
648                    (App
649                       SrcSpanInfo
650                         { srcInfoSpan =
651                             SrcSpan "tests/examples/BlockArguments.hs" 12 7 16 32
652                         , srcInfoPoints = []
653                         }
654                       (Var
655                          SrcSpanInfo
656                            { srcInfoSpan =
657                                SrcSpan "tests/examples/BlockArguments.hs" 12 7 12 15
658                            , srcInfoPoints = []
659                            }
660                          (UnQual
661                             SrcSpanInfo
662                               { srcInfoSpan =
663                                   SrcSpan "tests/examples/BlockArguments.hs" 12 7 12 15
664                               , srcInfoPoints = []
665                               }
666                             (Ident
667                                SrcSpanInfo
668                                  { srcInfoSpan =
669                                      SrcSpan "tests/examples/BlockArguments.hs" 12 7 12 15
670                                  , srcInfoPoints = []
671                                  }
672                                "traverse")))
673                       (Lambda
674                          SrcSpanInfo
675                            { srcInfoSpan =
676                                SrcSpan "tests/examples/BlockArguments.hs" 12 16 16 32
677                            , srcInfoPoints =
678                                [ SrcSpan "tests/examples/BlockArguments.hs" 12 16 12 17
679                                , SrcSpan "tests/examples/BlockArguments.hs" 12 24 12 26
680                                ]
681                            }
682                          [ PTuple
683                              SrcSpanInfo
684                                { srcInfoSpan =
685                                    SrcSpan "tests/examples/BlockArguments.hs" 12 17 12 23
686                                , srcInfoPoints =
687                                    [ SrcSpan "tests/examples/BlockArguments.hs" 12 17 12 18
688                                    , SrcSpan "tests/examples/BlockArguments.hs" 12 19 12 20
689                                    , SrcSpan "tests/examples/BlockArguments.hs" 12 22 12 23
690                                    ]
691                                }
692                              Boxed
693                              [ PVar
694                                  SrcSpanInfo
695                                    { srcInfoSpan =
696                                        SrcSpan "tests/examples/BlockArguments.hs" 12 18 12 19
697                                    , srcInfoPoints = []
698                                    }
699                                  (Ident
700                                     SrcSpanInfo
701                                       { srcInfoSpan =
702                                           SrcSpan "tests/examples/BlockArguments.hs" 12 18 12 19
703                                       , srcInfoPoints = []
704                                       }
705                                     "x")
706                              , PVar
707                                  SrcSpanInfo
708                                    { srcInfoSpan =
709                                        SrcSpan "tests/examples/BlockArguments.hs" 12 21 12 22
710                                    , srcInfoPoints = []
711                                    }
712                                  (Ident
713                                     SrcSpanInfo
714                                       { srcInfoSpan =
715                                           SrcSpan "tests/examples/BlockArguments.hs" 12 21 12 22
716                                       , srcInfoPoints = []
717                                       }
718                                     "y")
719                              ]
720                          ]
721                          (InfixApp
722                             SrcSpanInfo
723                               { srcInfoSpan =
724                                   SrcSpan "tests/examples/BlockArguments.hs" 12 27 16 32
725                               , srcInfoPoints = []
726                               }
727                             (Do
728                                SrcSpanInfo
729                                  { srcInfoSpan =
730                                      SrcSpan "tests/examples/BlockArguments.hs" 12 27 15 14
731                                  , srcInfoPoints =
732                                      [ SrcSpan "tests/examples/BlockArguments.hs" 12 27 12 29
733                                      , SrcSpan "tests/examples/BlockArguments.hs" 13 9 13 9
734                                      , SrcSpan "tests/examples/BlockArguments.hs" 14 9 14 9
735                                      , SrcSpan "tests/examples/BlockArguments.hs" 15 9 15 9
736                                      , SrcSpan "tests/examples/BlockArguments.hs" 16 3 16 0
737                                      ]
738                                  }
739                                [ Generator
740                                    SrcSpanInfo
741                                      { srcInfoSpan =
742                                          SrcSpan "tests/examples/BlockArguments.hs" 13 9 13 17
743                                      , srcInfoPoints =
744                                          [ SrcSpan "tests/examples/BlockArguments.hs" 13 11 13 13 ]
745                                      }
746                                    (PVar
747                                       SrcSpanInfo
748                                         { srcInfoSpan =
749                                             SrcSpan "tests/examples/BlockArguments.hs" 13 9 13 10
750                                         , srcInfoPoints = []
751                                         }
752                                       (Ident
753                                          SrcSpanInfo
754                                            { srcInfoSpan =
755                                                SrcSpan
756                                                  "tests/examples/BlockArguments.hs" 13 9 13 10
757                                            , srcInfoPoints = []
758                                            }
759                                          "a"))
760                                    (App
761                                       SrcSpanInfo
762                                         { srcInfoSpan =
763                                             SrcSpan "tests/examples/BlockArguments.hs" 13 14 13 17
764                                         , srcInfoPoints = []
765                                         }
766                                       (Var
767                                          SrcSpanInfo
768                                            { srcInfoSpan =
769                                                SrcSpan
770                                                  "tests/examples/BlockArguments.hs" 13 14 13 15
771                                            , srcInfoPoints = []
772                                            }
773                                          (UnQual
774                                             SrcSpanInfo
775                                               { srcInfoSpan =
776                                                   SrcSpan
777                                                     "tests/examples/BlockArguments.hs" 13 14 13 15
778                                               , srcInfoPoints = []
779                                               }
780                                             (Ident
781                                                SrcSpanInfo
782                                                  { srcInfoSpan =
783                                                      SrcSpan
784                                                        "tests/examples/BlockArguments.hs"
785                                                        13
786                                                        14
787                                                        13
788                                                        15
789                                                  , srcInfoPoints = []
790                                                  }
791                                                "f")))
792                                       (Var
793                                          SrcSpanInfo
794                                            { srcInfoSpan =
795                                                SrcSpan
796                                                  "tests/examples/BlockArguments.hs" 13 16 13 17
797                                            , srcInfoPoints = []
798                                            }
799                                          (UnQual
800                                             SrcSpanInfo
801                                               { srcInfoSpan =
802                                                   SrcSpan
803                                                     "tests/examples/BlockArguments.hs" 13 16 13 17
804                                               , srcInfoPoints = []
805                                               }
806                                             (Ident
807                                                SrcSpanInfo
808                                                  { srcInfoSpan =
809                                                      SrcSpan
810                                                        "tests/examples/BlockArguments.hs"
811                                                        13
812                                                        16
813                                                        13
814                                                        17
815                                                  , srcInfoPoints = []
816                                                  }
817                                                "x"))))
818                                , Generator
819                                    SrcSpanInfo
820                                      { srcInfoSpan =
821                                          SrcSpan "tests/examples/BlockArguments.hs" 14 9 14 17
822                                      , srcInfoPoints =
823                                          [ SrcSpan "tests/examples/BlockArguments.hs" 14 11 14 13 ]
824                                      }
825                                    (PVar
826                                       SrcSpanInfo
827                                         { srcInfoSpan =
828                                             SrcSpan "tests/examples/BlockArguments.hs" 14 9 14 10
829                                         , srcInfoPoints = []
830                                         }
831                                       (Ident
832                                          SrcSpanInfo
833                                            { srcInfoSpan =
834                                                SrcSpan
835                                                  "tests/examples/BlockArguments.hs" 14 9 14 10
836                                            , srcInfoPoints = []
837                                            }
838                                          "b"))
839                                    (App
840                                       SrcSpanInfo
841                                         { srcInfoSpan =
842                                             SrcSpan "tests/examples/BlockArguments.hs" 14 14 14 17
843                                         , srcInfoPoints = []
844                                         }
845                                       (Var
846                                          SrcSpanInfo
847                                            { srcInfoSpan =
848                                                SrcSpan
849                                                  "tests/examples/BlockArguments.hs" 14 14 14 15
850                                            , srcInfoPoints = []
851                                            }
852                                          (UnQual
853                                             SrcSpanInfo
854                                               { srcInfoSpan =
855                                                   SrcSpan
856                                                     "tests/examples/BlockArguments.hs" 14 14 14 15
857                                               , srcInfoPoints = []
858                                               }
859                                             (Ident
860                                                SrcSpanInfo
861                                                  { srcInfoSpan =
862                                                      SrcSpan
863                                                        "tests/examples/BlockArguments.hs"
864                                                        14
865                                                        14
866                                                        14
867                                                        15
868                                                  , srcInfoPoints = []
869                                                  }
870                                                "g")))
871                                       (Var
872                                          SrcSpanInfo
873                                            { srcInfoSpan =
874                                                SrcSpan
875                                                  "tests/examples/BlockArguments.hs" 14 16 14 17
876                                            , srcInfoPoints = []
877                                            }
878                                          (UnQual
879                                             SrcSpanInfo
880                                               { srcInfoSpan =
881                                                   SrcSpan
882                                                     "tests/examples/BlockArguments.hs" 14 16 14 17
883                                               , srcInfoPoints = []
884                                               }
885                                             (Ident
886                                                SrcSpanInfo
887                                                  { srcInfoSpan =
888                                                      SrcSpan
889                                                        "tests/examples/BlockArguments.hs"
890                                                        14
891                                                        16
892                                                        14
893                                                        17
894                                                  , srcInfoPoints = []
895                                                  }
896                                                "y"))))
897                                , Qualifier
898                                    SrcSpanInfo
899                                      { srcInfoSpan =
900                                          SrcSpan "tests/examples/BlockArguments.hs" 15 9 15 14
901                                      , srcInfoPoints = []
902                                      }
903                                    (App
904                                       SrcSpanInfo
905                                         { srcInfoSpan =
906                                             SrcSpan "tests/examples/BlockArguments.hs" 15 9 15 14
907                                         , srcInfoPoints = []
908                                         }
909                                       (App
910                                          SrcSpanInfo
911                                            { srcInfoSpan =
912                                                SrcSpan
913                                                  "tests/examples/BlockArguments.hs" 15 9 15 12
914                                            , srcInfoPoints = []
915                                            }
916                                          (Var
917                                             SrcSpanInfo
918                                               { srcInfoSpan =
919                                                   SrcSpan
920                                                     "tests/examples/BlockArguments.hs" 15 9 15 10
921                                               , srcInfoPoints = []
922                                               }
923                                             (UnQual
924                                                SrcSpanInfo
925                                                  { srcInfoSpan =
926                                                      SrcSpan
927                                                        "tests/examples/BlockArguments.hs"
928                                                        15
929                                                        9
930                                                        15
931                                                        10
932                                                  , srcInfoPoints = []
933                                                  }
934                                                (Ident
935                                                   SrcSpanInfo
936                                                     { srcInfoSpan =
937                                                         SrcSpan
938                                                           "tests/examples/BlockArguments.hs"
939                                                           15
940                                                           9
941                                                           15
942                                                           10
943                                                     , srcInfoPoints = []
944                                                     }
945                                                   "h")))
946                                          (Var
947                                             SrcSpanInfo
948                                               { srcInfoSpan =
949                                                   SrcSpan
950                                                     "tests/examples/BlockArguments.hs" 15 11 15 12
951                                               , srcInfoPoints = []
952                                               }
953                                             (UnQual
954                                                SrcSpanInfo
955                                                  { srcInfoSpan =
956                                                      SrcSpan
957                                                        "tests/examples/BlockArguments.hs"
958                                                        15
959                                                        11
960                                                        15
961                                                        12
962                                                  , srcInfoPoints = []
963                                                  }
964                                                (Ident
965                                                   SrcSpanInfo
966                                                     { srcInfoSpan =
967                                                         SrcSpan
968                                                           "tests/examples/BlockArguments.hs"
969                                                           15
970                                                           11
971                                                           15
972                                                           12
973                                                     , srcInfoPoints = []
974                                                     }
975                                                   "a"))))
976                                       (Var
977                                          SrcSpanInfo
978                                            { srcInfoSpan =
979                                                SrcSpan
980                                                  "tests/examples/BlockArguments.hs" 15 13 15 14
981                                            , srcInfoPoints = []
982                                            }
983                                          (UnQual
984                                             SrcSpanInfo
985                                               { srcInfoSpan =
986                                                   SrcSpan
987                                                     "tests/examples/BlockArguments.hs" 15 13 15 14
988                                               , srcInfoPoints = []
989                                               }
990                                             (Ident
991                                                SrcSpanInfo
992                                                  { srcInfoSpan =
993                                                      SrcSpan
994                                                        "tests/examples/BlockArguments.hs"
995                                                        15
996                                                        13
997                                                        15
998                                                        14
999                                                  , srcInfoPoints = []
1000                                                  }
1001                                                "b"))))
1002                                ])
1003                             (QVarOp
1004                                SrcSpanInfo
1005                                  { srcInfoSpan =
1006                                      SrcSpan "tests/examples/BlockArguments.hs" 16 3 16 6
1007                                  , srcInfoPoints = []
1008                                  }
1009                                (UnQual
1010                                   SrcSpanInfo
1011                                     { srcInfoSpan =
1012                                         SrcSpan "tests/examples/BlockArguments.hs" 16 3 16 6
1013                                     , srcInfoPoints = []
1014                                     }
1015                                   (Symbol
1016                                      SrcSpanInfo
1017                                        { srcInfoSpan =
1018                                            SrcSpan "tests/examples/BlockArguments.hs" 16 3 16 6
1019                                        , srcInfoPoints = []
1020                                        }
1021                                      ">>=")))
1022                             (App
1023                                SrcSpanInfo
1024                                  { srcInfoSpan =
1025                                      SrcSpan "tests/examples/BlockArguments.hs" 16 7 16 32
1026                                  , srcInfoPoints = []
1027                                  }
1028                                (App
1029                                   SrcSpanInfo
1030                                     { srcInfoSpan =
1031                                         SrcSpan "tests/examples/BlockArguments.hs" 16 7 16 27
1032                                     , srcInfoPoints = []
1033                                     }
1034                                   (Var
1035                                      SrcSpanInfo
1036                                        { srcInfoSpan =
1037                                            SrcSpan "tests/examples/BlockArguments.hs" 16 7 16 22
1038                                        , srcInfoPoints = []
1039                                        }
1040                                      (UnQual
1041                                         SrcSpanInfo
1042                                           { srcInfoSpan =
1043                                               SrcSpan "tests/examples/BlockArguments.hs" 16 7 16 22
1044                                           , srcInfoPoints = []
1045                                           }
1046                                         (Ident
1047                                            SrcSpanInfo
1048                                              { srcInfoSpan =
1049                                                  SrcSpan
1050                                                    "tests/examples/BlockArguments.hs" 16 7 16 22
1051                                              , srcInfoPoints = []
1052                                              }
1053                                            "anotherFunction")))
1054                                   (Var
1055                                      SrcSpanInfo
1056                                        { srcInfoSpan =
1057                                            SrcSpan "tests/examples/BlockArguments.hs" 16 23 16 27
1058                                        , srcInfoPoints = []
1059                                        }
1060                                      (UnQual
1061                                         SrcSpanInfo
1062                                           { srcInfoSpan =
1063                                               SrcSpan
1064                                                 "tests/examples/BlockArguments.hs" 16 23 16 27
1065                                           , srcInfoPoints = []
1066                                           }
1067                                         (Ident
1068                                            SrcSpanInfo
1069                                              { srcInfoSpan =
1070                                                  SrcSpan
1071                                                    "tests/examples/BlockArguments.hs" 16 23 16 27
1072                                              , srcInfoPoints = []
1073                                              }
1074                                            "arg3"))))
1075                                (Var
1076                                   SrcSpanInfo
1077                                     { srcInfoSpan =
1078                                         SrcSpan "tests/examples/BlockArguments.hs" 16 28 16 32
1079                                     , srcInfoPoints = []
1080                                     }
1081                                   (UnQual
1082                                      SrcSpanInfo
1083                                        { srcInfoSpan =
1084                                            SrcSpan "tests/examples/BlockArguments.hs" 16 28 16 32
1085                                        , srcInfoPoints = []
1086                                        }
1087                                      (Ident
1088                                         SrcSpanInfo
1089                                           { srcInfoSpan =
1090                                               SrcSpan
1091                                                 "tests/examples/BlockArguments.hs" 16 28 16 32
1092                                           , srcInfoPoints = []
1093                                           }
1094                                         "arg4")))))))))
1095              Nothing
1096          ]
1097      ]
1098  , []
1099  )
1100