1ParseOk
2  ( Module
3      SrcSpanInfo
4        { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 1 1 6 1
5        , srcInfoPoints =
6            [ SrcSpan "tests/examples/ViewPatterns.hs" 1 1 1 1
7            , SrcSpan "tests/examples/ViewPatterns.hs" 2 1 2 1
8            , SrcSpan "tests/examples/ViewPatterns.hs" 2 1 2 1
9            , SrcSpan "tests/examples/ViewPatterns.hs" 2 1 2 1
10            , SrcSpan "tests/examples/ViewPatterns.hs" 4 1 4 1
11            , SrcSpan "tests/examples/ViewPatterns.hs" 6 1 6 1
12            , SrcSpan "tests/examples/ViewPatterns.hs" 6 1 6 1
13            ]
14        }
15      Nothing
16      [ LanguagePragma
17          SrcSpanInfo
18            { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 1 1 1 30
19            , srcInfoPoints =
20                [ SrcSpan "tests/examples/ViewPatterns.hs" 1 1 1 13
21                , SrcSpan "tests/examples/ViewPatterns.hs" 1 27 1 30
22                ]
23            }
24          [ Ident
25              SrcSpanInfo
26                { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 1 14 1 26
27                , srcInfoPoints = []
28                }
29              "ViewPatterns"
30          ]
31      ]
32      []
33      [ FunBind
34          SrcSpanInfo
35            { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 1 2 25
36            , srcInfoPoints = []
37            }
38          [ Match
39              SrcSpanInfo
40                { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 1 2 25
41                , srcInfoPoints = []
42                }
43              (Ident
44                 SrcSpanInfo
45                   { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 1 2 2
46                   , srcInfoPoints = []
47                   }
48                 "f")
49              [ PParen
50                  SrcSpanInfo
51                    { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 3 2 17
52                    , srcInfoPoints =
53                        [ SrcSpan "tests/examples/ViewPatterns.hs" 2 3 2 4
54                        , SrcSpan "tests/examples/ViewPatterns.hs" 2 16 2 17
55                        ]
56                    }
57                  (PViewPat
58                     SrcSpanInfo
59                       { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 4 2 16
60                       , srcInfoPoints =
61                           [ SrcSpan "tests/examples/ViewPatterns.hs" 2 7 2 9 ]
62                       }
63                     (Var
64                        SrcSpanInfo
65                          { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 4 2 6
66                          , srcInfoPoints = []
67                          }
68                        (UnQual
69                           SrcSpanInfo
70                             { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 4 2 6
71                             , srcInfoPoints = []
72                             }
73                           (Ident
74                              SrcSpanInfo
75                                { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 4 2 6
76                                , srcInfoPoints = []
77                                }
78                              "id")))
79                     (PApp
80                        SrcSpanInfo
81                          { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 10 2 16
82                          , srcInfoPoints = []
83                          }
84                        (UnQual
85                           SrcSpanInfo
86                             { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 10 2 14
87                             , srcInfoPoints = []
88                             }
89                           (Ident
90                              SrcSpanInfo
91                                { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 10 2 14
92                                , srcInfoPoints = []
93                                }
94                              "Just"))
95                        [ PWildCard
96                            SrcSpanInfo
97                              { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 15 2 16
98                              , srcInfoPoints = []
99                              }
100                        ]))
101              , PLit
102                  SrcSpanInfo
103                    { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 18 2 20
104                    , srcInfoPoints = []
105                    }
106                  (Signless
107                     SrcSpanInfo
108                       { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 18 2 20
109                       , srcInfoPoints = []
110                       })
111                  (String
112                     SrcSpanInfo
113                       { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 18 2 20
114                       , srcInfoPoints = []
115                       }
116                     ""
117                     "")
118              ]
119              (UnGuardedRhs
120                 SrcSpanInfo
121                   { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 21 2 25
122                   , srcInfoPoints =
123                       [ SrcSpan "tests/examples/ViewPatterns.hs" 2 21 2 22 ]
124                   }
125                 (Lit
126                    SrcSpanInfo
127                      { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 23 2 25
128                      , srcInfoPoints = []
129                      }
130                    (String
131                       SrcSpanInfo
132                         { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 2 23 2 25
133                         , srcInfoPoints = []
134                         }
135                       ""
136                       "")))
137              Nothing
138          ]
139      , FunBind
140          SrcSpanInfo
141            { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 1 4 23
142            , srcInfoPoints = []
143            }
144          [ Match
145              SrcSpanInfo
146                { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 1 4 23
147                , srcInfoPoints = []
148                }
149              (Ident
150                 SrcSpanInfo
151                   { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 1 4 2
152                   , srcInfoPoints = []
153                   }
154                 "g")
155              [ PParen
156                  SrcSpanInfo
157                    { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 3 4 15
158                    , srcInfoPoints =
159                        [ SrcSpan "tests/examples/ViewPatterns.hs" 4 3 4 4
160                        , SrcSpan "tests/examples/ViewPatterns.hs" 4 14 4 15
161                        ]
162                    }
163                  (PViewPat
164                     SrcSpanInfo
165                       { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 4 4 14
166                       , srcInfoPoints =
167                           [ SrcSpan "tests/examples/ViewPatterns.hs" 4 7 4 9 ]
168                       }
169                     (Var
170                        SrcSpanInfo
171                          { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 4 4 6
172                          , srcInfoPoints = []
173                          }
174                        (UnQual
175                           SrcSpanInfo
176                             { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 4 4 6
177                             , srcInfoPoints = []
178                             }
179                           (Ident
180                              SrcSpanInfo
181                                { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 4 4 6
182                                , srcInfoPoints = []
183                                }
184                              "id")))
185                     (PApp
186                        SrcSpanInfo
187                          { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 10 4 14
188                          , srcInfoPoints = []
189                          }
190                        (UnQual
191                           SrcSpanInfo
192                             { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 10 4 14
193                             , srcInfoPoints = []
194                             }
195                           (Ident
196                              SrcSpanInfo
197                                { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 10 4 14
198                                , srcInfoPoints = []
199                                }
200                              "True"))
201                        []))
202              ]
203              (UnGuardedRhs
204                 SrcSpanInfo
205                   { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 16 4 23
206                   , srcInfoPoints =
207                       [ SrcSpan "tests/examples/ViewPatterns.hs" 4 16 4 17 ]
208                   }
209                 (Con
210                    SrcSpanInfo
211                      { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 18 4 23
212                      , srcInfoPoints = []
213                      }
214                    (UnQual
215                       SrcSpanInfo
216                         { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 18 4 23
217                         , srcInfoPoints = []
218                         }
219                       (Ident
220                          SrcSpanInfo
221                            { srcInfoSpan = SrcSpan "tests/examples/ViewPatterns.hs" 4 18 4 23
222                            , srcInfoPoints = []
223                            }
224                          "False"))))
225              Nothing
226          ]
227      ]
228  , []
229  )
230