1ParseOk
2  ( Module
3      SrcSpanInfo
4        { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 1 1 5 1
5        , srcInfoPoints =
6            [ SrcSpan "tests/examples/LanguagePragma.hs" 1 1 1 1
7            , SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 1
8            , SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 1
9            , SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 1
10            , SrcSpan "tests/examples/LanguagePragma.hs" 5 1 5 1
11            , SrcSpan "tests/examples/LanguagePragma.hs" 5 1 5 1
12            ]
13        }
14      Nothing
15      [ LanguagePragma
16          SrcSpanInfo
17            { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 1 1 3 5
18            , srcInfoPoints =
19                [ SrcSpan "tests/examples/LanguagePragma.hs" 1 1 1 13
20                , SrcSpan "tests/examples/LanguagePragma.hs" 3 2 3 5
21                ]
22            }
23          [ Ident
24              SrcSpanInfo
25                { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 2 1 2 16
26                , srcInfoPoints = []
27                }
28              "RecordWildCards"
29          ]
30      ]
31      []
32      [ PatBind
33          SrcSpanInfo
34            { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 21
35            , srcInfoPoints = []
36            }
37          (PVar
38             SrcSpanInfo
39               { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 5
40               , srcInfoPoints = []
41               }
42             (Ident
43                SrcSpanInfo
44                  { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 1 4 5
45                  , srcInfoPoints = []
46                  }
47                "main"))
48          (UnGuardedRhs
49             SrcSpanInfo
50               { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 6 4 21
51               , srcInfoPoints =
52                   [ SrcSpan "tests/examples/LanguagePragma.hs" 4 6 4 7 ]
53               }
54             (App
55                SrcSpanInfo
56                  { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 8 4 21
57                  , srcInfoPoints = []
58                  }
59                (Var
60                   SrcSpanInfo
61                     { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 8 4 13
62                     , srcInfoPoints = []
63                     }
64                   (UnQual
65                      SrcSpanInfo
66                        { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 8 4 13
67                        , srcInfoPoints = []
68                        }
69                      (Ident
70                         SrcSpanInfo
71                           { srcInfoSpan = SrcSpan "tests/examples/LanguagePragma.hs" 4 8 4 13
72                           , srcInfoPoints = []
73                           }
74                         "print")))
75                (Lit
76                   SrcSpanInfo
77                     { srcInfoSpan =
78                         SrcSpan "tests/examples/LanguagePragma.hs" 4 14 4 21
79                     , srcInfoPoints = []
80                     }
81                   (String
82                      SrcSpanInfo
83                        { srcInfoSpan =
84                            SrcSpan "tests/examples/LanguagePragma.hs" 4 14 4 21
85                        , srcInfoPoints = []
86                        }
87                      "hello"
88                      "hello"))))
89          Nothing
90      ]
91  , []
92  )
93