1ParseOk
2  ( Module
3      SrcSpanInfo
4        { srcInfoSpan =
5            SrcSpan "tests/examples/UnboxedSingleton.hs" 1 1 4 1
6        , srcInfoPoints =
7            [ SrcSpan "tests/examples/UnboxedSingleton.hs" 1 1 1 1
8            , SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 1
9            , SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 1
10            , SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 1
11            , SrcSpan "tests/examples/UnboxedSingleton.hs" 4 1 4 1
12            , SrcSpan "tests/examples/UnboxedSingleton.hs" 4 1 4 1
13            ]
14        }
15      Nothing
16      [ LanguagePragma
17          SrcSpanInfo
18            { srcInfoSpan =
19                SrcSpan "tests/examples/UnboxedSingleton.hs" 1 1 1 31
20            , srcInfoPoints =
21                [ SrcSpan "tests/examples/UnboxedSingleton.hs" 1 1 1 13
22                , SrcSpan "tests/examples/UnboxedSingleton.hs" 1 28 1 31
23                ]
24            }
25          [ Ident
26              SrcSpanInfo
27                { srcInfoSpan =
28                    SrcSpan "tests/examples/UnboxedSingleton.hs" 1 14 1 27
29                , srcInfoPoints = []
30                }
31              "UnboxedTuples"
32          ]
33      ]
34      []
35      [ FunBind
36          SrcSpanInfo
37            { srcInfoSpan =
38                SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 16
39            , srcInfoPoints = []
40            }
41          [ Match
42              SrcSpanInfo
43                { srcInfoSpan =
44                    SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 16
45                , srcInfoPoints = []
46                }
47              (Ident
48                 SrcSpanInfo
49                   { srcInfoSpan =
50                       SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 4
51                   , srcInfoPoints = []
52                   }
53                 "foo")
54              [ PVar
55                  SrcSpanInfo
56                    { srcInfoSpan =
57                        SrcSpan "tests/examples/UnboxedSingleton.hs" 3 5 3 6
58                    , srcInfoPoints = []
59                    }
60                  (Ident
61                     SrcSpanInfo
62                       { srcInfoSpan =
63                           SrcSpan "tests/examples/UnboxedSingleton.hs" 3 5 3 6
64                       , srcInfoPoints = []
65                       }
66                     "a")
67              ]
68              (UnGuardedRhs
69                 SrcSpanInfo
70                   { srcInfoSpan =
71                       SrcSpan "tests/examples/UnboxedSingleton.hs" 3 7 3 16
72                   , srcInfoPoints =
73                       [ SrcSpan "tests/examples/UnboxedSingleton.hs" 3 7 3 8 ]
74                   }
75                 (Tuple
76                    SrcSpanInfo
77                      { srcInfoSpan =
78                          SrcSpan "tests/examples/UnboxedSingleton.hs" 3 9 3 16
79                      , srcInfoPoints =
80                          [ SrcSpan "tests/examples/UnboxedSingleton.hs" 3 9 3 11
81                          , SrcSpan "tests/examples/UnboxedSingleton.hs" 3 14 3 16
82                          ]
83                      }
84                    Unboxed
85                    [ Var
86                        SrcSpanInfo
87                          { srcInfoSpan =
88                              SrcSpan "tests/examples/UnboxedSingleton.hs" 3 12 3 13
89                          , srcInfoPoints = []
90                          }
91                        (UnQual
92                           SrcSpanInfo
93                             { srcInfoSpan =
94                                 SrcSpan "tests/examples/UnboxedSingleton.hs" 3 12 3 13
95                             , srcInfoPoints = []
96                             }
97                           (Ident
98                              SrcSpanInfo
99                                { srcInfoSpan =
100                                    SrcSpan "tests/examples/UnboxedSingleton.hs" 3 12 3 13
101                                , srcInfoPoints = []
102                                }
103                              "a"))
104                    ]))
105              Nothing
106          ]
107      ]
108  , [ Comment
109        False
110        (SrcSpan "tests/examples/UnboxedSingleton.hs" 2 1 2 33)
111        " See e.g. GHC.Prim.indexArray#"
112    ]
113  )
114