1ParseOk
2  ( Module
3      SrcSpanInfo
4        { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 1 1 8 1
5        , srcInfoPoints =
6            [ SrcSpan "tests/examples/QQType.hs" 1 1 1 1
7            , SrcSpan "tests/examples/QQType.hs" 2 1 2 1
8            , SrcSpan "tests/examples/QQType.hs" 2 1 2 1
9            , SrcSpan "tests/examples/QQType.hs" 4 1 4 1
10            , SrcSpan "tests/examples/QQType.hs" 6 1 6 1
11            , SrcSpan "tests/examples/QQType.hs" 7 1 7 1
12            , SrcSpan "tests/examples/QQType.hs" 8 1 8 1
13            , SrcSpan "tests/examples/QQType.hs" 8 1 8 1
14            ]
15        }
16      (Just
17         (ModuleHead
18            SrcSpanInfo
19              { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 2 1 2 20
20              , srcInfoPoints =
21                  [ SrcSpan "tests/examples/QQType.hs" 2 1 2 7
22                  , SrcSpan "tests/examples/QQType.hs" 2 15 2 20
23                  ]
24              }
25            (ModuleName
26               SrcSpanInfo
27                 { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 2 8 2 14
28                 , srcInfoPoints = []
29                 }
30               "QQType")
31            Nothing
32            Nothing))
33      [ LanguagePragma
34          SrcSpanInfo
35            { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 1 1 1 65
36            , srcInfoPoints =
37                [ SrcSpan "tests/examples/QQType.hs" 1 1 1 13
38                , SrcSpan "tests/examples/QQType.hs" 1 31 1 32
39                , SrcSpan "tests/examples/QQType.hs" 1 48 1 49
40                , SrcSpan "tests/examples/QQType.hs" 1 62 1 65
41                ]
42            }
43          [ Ident
44              SrcSpanInfo
45                { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 1 14 1 31
46                , srcInfoPoints = []
47                }
48              "FlexibleInstances"
49          , Ident
50              SrcSpanInfo
51                { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 1 33 1 48
52                , srcInfoPoints = []
53                }
54              "TemplateHaskell"
55          , Ident
56              SrcSpanInfo
57                { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 1 50 1 61
58                , srcInfoPoints = []
59                }
60              "QuasiQuotes"
61          ]
62      ]
63      [ ImportDecl
64          { importAnn =
65              SrcSpanInfo
66                { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 4 1 4 27
67                , srcInfoPoints = [ SrcSpan "tests/examples/QQType.hs" 4 1 4 7 ]
68                }
69          , importModule =
70              ModuleName
71                SrcSpanInfo
72                  { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 4 8 4 27
73                  , srcInfoPoints = []
74                  }
75                "Language.Haskell.TH"
76          , importQualified = False
77          , importSrc = False
78          , importSafe = False
79          , importPkg = Nothing
80          , importAs = Nothing
81          , importSpecs = Nothing
82          }
83      ]
84      [ TypeSig
85          SrcSpanInfo
86            { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 6 1 6 11
87            , srcInfoPoints = [ SrcSpan "tests/examples/QQType.hs" 6 3 6 5 ]
88            }
89          [ Ident
90              SrcSpanInfo
91                { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 6 1 6 2
92                , srcInfoPoints = []
93                }
94              "x"
95          ]
96          (TyCon
97             SrcSpanInfo
98               { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 6 6 6 11
99               , srcInfoPoints = []
100               }
101             (UnQual
102                SrcSpanInfo
103                  { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 6 6 6 11
104                  , srcInfoPoints = []
105                  }
106                (Ident
107                   SrcSpanInfo
108                     { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 6 6 6 11
109                     , srcInfoPoints = []
110                     }
111                   "DecsQ")))
112      , PatBind
113          SrcSpanInfo
114            { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 1 7 48
115            , srcInfoPoints = []
116            }
117          (PVar
118             SrcSpanInfo
119               { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 1 7 2
120               , srcInfoPoints = []
121               }
122             (Ident
123                SrcSpanInfo
124                  { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 1 7 2
125                  , srcInfoPoints = []
126                  }
127                "x"))
128          (UnGuardedRhs
129             SrcSpanInfo
130               { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 3 7 48
131               , srcInfoPoints = [ SrcSpan "tests/examples/QQType.hs" 7 3 7 4 ]
132               }
133             (BracketExp
134                SrcSpanInfo
135                  { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 5 7 48
136                  , srcInfoPoints =
137                      [ SrcSpan "tests/examples/QQType.hs" 7 5 7 8
138                      , SrcSpan "tests/examples/QQType.hs" 7 46 7 48
139                      ]
140                  }
141                (DeclBracket
142                   SrcSpanInfo
143                     { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 5 7 48
144                     , srcInfoPoints =
145                         [ SrcSpan "tests/examples/QQType.hs" 7 9 7 9
146                         , SrcSpan "tests/examples/QQType.hs" 7 46 7 46
147                         , SrcSpan "tests/examples/QQType.hs" 7 46 7 48
148                         ]
149                     }
150                   [ InstDecl
151                       SrcSpanInfo
152                         { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 9 7 45
153                         , srcInfoPoints = [ SrcSpan "tests/examples/QQType.hs" 7 9 7 17 ]
154                         }
155                       Nothing
156                       (IRule
157                          SrcSpanInfo
158                            { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 18 7 45
159                            , srcInfoPoints = []
160                            }
161                          Nothing
162                          Nothing
163                          (IHApp
164                             SrcSpanInfo
165                               { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 18 7 45
166                               , srcInfoPoints = []
167                               }
168                             (IHCon
169                                SrcSpanInfo
170                                  { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 18 7 22
171                                  , srcInfoPoints = []
172                                  }
173                                (UnQual
174                                   SrcSpanInfo
175                                     { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 18 7 22
176                                     , srcInfoPoints = []
177                                     }
178                                   (Ident
179                                      SrcSpanInfo
180                                        { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 18 7 22
181                                        , srcInfoPoints = []
182                                        }
183                                      "Show")))
184                             (TySplice
185                                SrcSpanInfo
186                                  { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 23 7 45
187                                  , srcInfoPoints =
188                                      [ SrcSpan "tests/examples/QQType.hs" 7 23 7 25
189                                      , SrcSpan "tests/examples/QQType.hs" 7 44 7 45
190                                      ]
191                                  }
192                                (ParenSplice
193                                   SrcSpanInfo
194                                     { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 23 7 45
195                                     , srcInfoPoints =
196                                         [ SrcSpan "tests/examples/QQType.hs" 7 23 7 25
197                                         , SrcSpan "tests/examples/QQType.hs" 7 44 7 45
198                                         ]
199                                     }
200                                   (App
201                                      SrcSpanInfo
202                                        { srcInfoSpan = SrcSpan "tests/examples/QQType.hs" 7 25 7 44
203                                        , srcInfoPoints = []
204                                        }
205                                      (Var
206                                         SrcSpanInfo
207                                           { srcInfoSpan =
208                                               SrcSpan "tests/examples/QQType.hs" 7 25 7 29
209                                           , srcInfoPoints = []
210                                           }
211                                         (UnQual
212                                            SrcSpanInfo
213                                              { srcInfoSpan =
214                                                  SrcSpan "tests/examples/QQType.hs" 7 25 7 29
215                                              , srcInfoPoints = []
216                                              }
217                                            (Ident
218                                               SrcSpanInfo
219                                                 { srcInfoSpan =
220                                                     SrcSpan "tests/examples/QQType.hs" 7 25 7 29
221                                                 , srcInfoPoints = []
222                                                 }
223                                               "conT")))
224                                      (Paren
225                                         SrcSpanInfo
226                                           { srcInfoSpan =
227                                               SrcSpan "tests/examples/QQType.hs" 7 30 7 44
228                                           , srcInfoPoints =
229                                               [ SrcSpan "tests/examples/QQType.hs" 7 30 7 31
230                                               , SrcSpan "tests/examples/QQType.hs" 7 43 7 44
231                                               ]
232                                           }
233                                         (App
234                                            SrcSpanInfo
235                                              { srcInfoSpan =
236                                                  SrcSpan "tests/examples/QQType.hs" 7 31 7 43
237                                              , srcInfoPoints = []
238                                              }
239                                            (Var
240                                               SrcSpanInfo
241                                                 { srcInfoSpan =
242                                                     SrcSpan "tests/examples/QQType.hs" 7 31 7 37
243                                                 , srcInfoPoints = []
244                                                 }
245                                               (UnQual
246                                                  SrcSpanInfo
247                                                    { srcInfoSpan =
248                                                        SrcSpan "tests/examples/QQType.hs" 7 31 7 37
249                                                    , srcInfoPoints = []
250                                                    }
251                                                  (Ident
252                                                     SrcSpanInfo
253                                                       { srcInfoSpan =
254                                                           SrcSpan
255                                                             "tests/examples/QQType.hs" 7 31 7 37
256                                                       , srcInfoPoints = []
257                                                       }
258                                                     "mkName")))
259                                            (Lit
260                                               SrcSpanInfo
261                                                 { srcInfoSpan =
262                                                     SrcSpan "tests/examples/QQType.hs" 7 38 7 43
263                                                 , srcInfoPoints = []
264                                                 }
265                                               (String
266                                                  SrcSpanInfo
267                                                    { srcInfoSpan =
268                                                        SrcSpan "tests/examples/QQType.hs" 7 38 7 43
269                                                    , srcInfoPoints = []
270                                                    }
271                                                  "Int"
272                                                  "Int")))))))))
273                       Nothing
274                   ])))
275          Nothing
276      ]
277  , []
278  )
279