1ParseOk
2  ( Module
3      SrcSpanInfo
4        { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 1 1 4 1
5        , srcInfoPoints =
6            [ SrcSpan "tests/examples/THTSplices.hs" 1 1 1 1
7            , SrcSpan "tests/examples/THTSplices.hs" 2 1 2 1
8            , SrcSpan "tests/examples/THTSplices.hs" 2 1 2 1
9            , SrcSpan "tests/examples/THTSplices.hs" 2 1 2 1
10            , SrcSpan "tests/examples/THTSplices.hs" 3 1 3 1
11            , SrcSpan "tests/examples/THTSplices.hs" 4 1 4 1
12            , SrcSpan "tests/examples/THTSplices.hs" 4 1 4 1
13            ]
14        }
15      Nothing
16      [ LanguagePragma
17          SrcSpanInfo
18            { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 1 1 1 33
19            , srcInfoPoints =
20                [ SrcSpan "tests/examples/THTSplices.hs" 1 1 1 13
21                , SrcSpan "tests/examples/THTSplices.hs" 1 30 1 33
22                ]
23            }
24          [ Ident
25              SrcSpanInfo
26                { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 1 14 1 29
27                , srcInfoPoints = []
28                }
29              "TemplateHaskell"
30          ]
31      ]
32      [ ImportDecl
33          { importAnn =
34              SrcSpanInfo
35                { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 2 1 2 27
36                , srcInfoPoints =
37                    [ SrcSpan "tests/examples/THTSplices.hs" 2 1 2 7 ]
38                }
39          , importModule =
40              ModuleName
41                SrcSpanInfo
42                  { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 2 8 2 27
43                  , srcInfoPoints = []
44                  }
45                "Language.Haskell.TH"
46          , importQualified = False
47          , importSrc = False
48          , importSafe = False
49          , importPkg = Nothing
50          , importAs = Nothing
51          , importSpecs = Nothing
52          }
53      ]
54      [ PatBind
55          SrcSpanInfo
56            { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 1 3 33
57            , srcInfoPoints = []
58            }
59          (PVar
60             SrcSpanInfo
61               { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 1 3 5
62               , srcInfoPoints = []
63               }
64             (Ident
65                SrcSpanInfo
66                  { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 1 3 5
67                  , srcInfoPoints = []
68                  }
69                "main"))
70          (UnGuardedRhs
71             SrcSpanInfo
72               { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 6 3 33
73               , srcInfoPoints =
74                   [ SrcSpan "tests/examples/THTSplices.hs" 3 6 3 7 ]
75               }
76             (ExpTypeSig
77                SrcSpanInfo
78                  { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 8 3 33
79                  , srcInfoPoints =
80                      [ SrcSpan "tests/examples/THTSplices.hs" 3 18 3 20 ]
81                  }
82                (Var
83                   SrcSpanInfo
84                     { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 8 3 17
85                     , srcInfoPoints = []
86                     }
87                   (UnQual
88                      SrcSpanInfo
89                        { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 8 3 17
90                        , srcInfoPoints = []
91                        }
92                      (Ident
93                         SrcSpanInfo
94                           { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 8 3 17
95                           , srcInfoPoints = []
96                           }
97                         "undefined")))
98                (TySplice
99                   SrcSpanInfo
100                     { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 21 3 33
101                     , srcInfoPoints =
102                         [ SrcSpan "tests/examples/THTSplices.hs" 3 21 3 23
103                         , SrcSpan "tests/examples/THTSplices.hs" 3 32 3 33
104                         ]
105                     }
106                   (ParenSplice
107                      SrcSpanInfo
108                        { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 21 3 33
109                        , srcInfoPoints =
110                            [ SrcSpan "tests/examples/THTSplices.hs" 3 21 3 23
111                            , SrcSpan "tests/examples/THTSplices.hs" 3 32 3 33
112                            ]
113                        }
114                      (Var
115                         SrcSpanInfo
116                           { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 23 3 32
117                           , srcInfoPoints = []
118                           }
119                         (UnQual
120                            SrcSpanInfo
121                              { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 23 3 32
122                              , srcInfoPoints = []
123                              }
124                            (Ident
125                               SrcSpanInfo
126                                 { srcInfoSpan = SrcSpan "tests/examples/THTSplices.hs" 3 23 3 32
127                                 , srcInfoPoints = []
128                                 }
129                               "undefined")))))))
130          Nothing
131      ]
132  , []
133  )
134