1ParseOk
2  ( Module
3      SrcSpanInfo
4        { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 1 1 7 1
5        , srcInfoPoints =
6            [ SrcSpan "tests/examples/THTypedSplices.hs" 1 1 1 1
7            , SrcSpan "tests/examples/THTypedSplices.hs" 2 1 2 1
8            , SrcSpan "tests/examples/THTypedSplices.hs" 2 1 2 1
9            , SrcSpan "tests/examples/THTypedSplices.hs" 2 1 2 1
10            , SrcSpan "tests/examples/THTypedSplices.hs" 4 1 4 1
11            , SrcSpan "tests/examples/THTypedSplices.hs" 6 1 6 1
12            , SrcSpan "tests/examples/THTypedSplices.hs" 7 1 7 1
13            , SrcSpan "tests/examples/THTypedSplices.hs" 7 1 7 1
14            ]
15        }
16      Nothing
17      [ LanguagePragma
18          SrcSpanInfo
19            { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 1 1 1 33
20            , srcInfoPoints =
21                [ SrcSpan "tests/examples/THTypedSplices.hs" 1 1 1 13
22                , SrcSpan "tests/examples/THTypedSplices.hs" 1 30 1 33
23                ]
24            }
25          [ Ident
26              SrcSpanInfo
27                { srcInfoSpan =
28                    SrcSpan "tests/examples/THTypedSplices.hs" 1 14 1 29
29                , srcInfoPoints = []
30                }
31              "TemplateHaskell"
32          ]
33      ]
34      [ ImportDecl
35          { importAnn =
36              SrcSpanInfo
37                { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 2 1 2 27
38                , srcInfoPoints =
39                    [ SrcSpan "tests/examples/THTypedSplices.hs" 2 1 2 7 ]
40                }
41          , importModule =
42              ModuleName
43                SrcSpanInfo
44                  { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 2 8 2 27
45                  , srcInfoPoints = []
46                  }
47                "Language.Haskell.TH"
48          , importQualified = False
49          , importSrc = False
50          , importSafe = False
51          , importPkg = Nothing
52          , importAs = Nothing
53          , importSpecs = Nothing
54          }
55      , ImportDecl
56          { importAnn =
57              SrcSpanInfo
58                { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 4 1 4 27
59                , srcInfoPoints =
60                    [ SrcSpan "tests/examples/THTypedSplices.hs" 4 1 4 7 ]
61                }
62          , importModule =
63              ModuleName
64                SrcSpanInfo
65                  { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 4 8 4 27
66                  , srcInfoPoints = []
67                  }
68                "THTypedSplices.Defs"
69          , importQualified = False
70          , importSrc = False
71          , importSafe = False
72          , importPkg = Nothing
73          , importAs = Nothing
74          , importSpecs = Nothing
75          }
76      ]
77      [ PatBind
78          SrcSpanInfo
79            { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 1 6 33
80            , srcInfoPoints = []
81            }
82          (PVar
83             SrcSpanInfo
84               { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 1 6 5
85               , srcInfoPoints = []
86               }
87             (Ident
88                SrcSpanInfo
89                  { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 1 6 5
90                  , srcInfoPoints = []
91                  }
92                "main"))
93          (UnGuardedRhs
94             SrcSpanInfo
95               { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 6 6 33
96               , srcInfoPoints =
97                   [ SrcSpan "tests/examples/THTypedSplices.hs" 6 6 6 7 ]
98               }
99             (App
100                SrcSpanInfo
101                  { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 8 6 33
102                  , srcInfoPoints = []
103                  }
104                (SpliceExp
105                   SrcSpanInfo
106                     { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 8 6 16
107                     , srcInfoPoints = []
108                     }
109                   (TIdSplice
110                      SrcSpanInfo
111                        { srcInfoSpan = SrcSpan "tests/examples/THTypedSplices.hs" 6 8 6 16
112                        , srcInfoPoints = []
113                        }
114                      "justTH"))
115                (Paren
116                   SrcSpanInfo
117                     { srcInfoSpan =
118                         SrcSpan "tests/examples/THTypedSplices.hs" 6 17 6 33
119                     , srcInfoPoints =
120                         [ SrcSpan "tests/examples/THTypedSplices.hs" 6 17 6 18
121                         , SrcSpan "tests/examples/THTypedSplices.hs" 6 32 6 33
122                         ]
123                     }
124                   (SpliceExp
125                      SrcSpanInfo
126                        { srcInfoSpan =
127                            SrcSpan "tests/examples/THTypedSplices.hs" 6 18 6 32
128                        , srcInfoPoints =
129                            [ SrcSpan "tests/examples/THTypedSplices.hs" 6 18 6 21
130                            , SrcSpan "tests/examples/THTypedSplices.hs" 6 31 6 32
131                            ]
132                        }
133                      (TParenSplice
134                         SrcSpanInfo
135                           { srcInfoSpan =
136                               SrcSpan "tests/examples/THTypedSplices.hs" 6 18 6 32
137                           , srcInfoPoints =
138                               [ SrcSpan "tests/examples/THTypedSplices.hs" 6 18 6 21
139                               , SrcSpan "tests/examples/THTypedSplices.hs" 6 31 6 32
140                               ]
141                           }
142                         (BracketExp
143                            SrcSpanInfo
144                              { srcInfoSpan =
145                                  SrcSpan "tests/examples/THTypedSplices.hs" 6 21 6 31
146                              , srcInfoPoints =
147                                  [ SrcSpan "tests/examples/THTypedSplices.hs" 6 21 6 25
148                                  , SrcSpan "tests/examples/THTypedSplices.hs" 6 28 6 31
149                                  ]
150                              }
151                            (TExpBracket
152                               SrcSpanInfo
153                                 { srcInfoSpan =
154                                     SrcSpan "tests/examples/THTypedSplices.hs" 6 21 6 31
155                                 , srcInfoPoints =
156                                     [ SrcSpan "tests/examples/THTypedSplices.hs" 6 21 6 25
157                                     , SrcSpan "tests/examples/THTypedSplices.hs" 6 28 6 31
158                                     ]
159                                 }
160                               (Lit
161                                  SrcSpanInfo
162                                    { srcInfoSpan =
163                                        SrcSpan "tests/examples/THTypedSplices.hs" 6 26 6 27
164                                    , srcInfoPoints = []
165                                    }
166                                  (Int
167                                     SrcSpanInfo
168                                       { srcInfoSpan =
169                                           SrcSpan "tests/examples/THTypedSplices.hs" 6 26 6 27
170                                       , srcInfoPoints = []
171                                       }
172                                     2
173                                     "2")))))))))
174          Nothing
175      ]
176  , []
177  )
178