ParseOk
  ( Module
      SrcSpanInfo
        { srcInfoSpan =
            SrcSpan "tests/examples/UnboxedSingleton.hs" 1 1 4 1
        , srcInfoPoints =
            [ SrcSpan "tests/examples/UnboxedSingleton.hs" 1 1 1 1
            , SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 1
            , SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 1
            , SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 1
            , SrcSpan "tests/examples/UnboxedSingleton.hs" 4 1 4 1
            , SrcSpan "tests/examples/UnboxedSingleton.hs" 4 1 4 1
            ]
        }
      Nothing
      [ LanguagePragma
          SrcSpanInfo
            { srcInfoSpan =
                SrcSpan "tests/examples/UnboxedSingleton.hs" 1 1 1 31
            , srcInfoPoints =
                [ SrcSpan "tests/examples/UnboxedSingleton.hs" 1 1 1 13
                , SrcSpan "tests/examples/UnboxedSingleton.hs" 1 28 1 31
                ]
            }
          [ Ident
              SrcSpanInfo
                { srcInfoSpan =
                    SrcSpan "tests/examples/UnboxedSingleton.hs" 1 14 1 27
                , srcInfoPoints = []
                }
              "UnboxedTuples"
          ]
      ]
      []
      [ FunBind
          SrcSpanInfo
            { srcInfoSpan =
                SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 16
            , srcInfoPoints = []
            }
          [ Match
              SrcSpanInfo
                { srcInfoSpan =
                    SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 16
                , srcInfoPoints = []
                }
              (Ident
                 SrcSpanInfo
                   { srcInfoSpan =
                       SrcSpan "tests/examples/UnboxedSingleton.hs" 3 1 3 4
                   , srcInfoPoints = []
                   }
                 "foo")
              [ PVar
                  SrcSpanInfo
                    { srcInfoSpan =
                        SrcSpan "tests/examples/UnboxedSingleton.hs" 3 5 3 6
                    , srcInfoPoints = []
                    }
                  (Ident
                     SrcSpanInfo
                       { srcInfoSpan =
                           SrcSpan "tests/examples/UnboxedSingleton.hs" 3 5 3 6
                       , srcInfoPoints = []
                       }
                     "a")
              ]
              (UnGuardedRhs
                 SrcSpanInfo
                   { srcInfoSpan =
                       SrcSpan "tests/examples/UnboxedSingleton.hs" 3 7 3 16
                   , srcInfoPoints =
                       [ SrcSpan "tests/examples/UnboxedSingleton.hs" 3 7 3 8 ]
                   }
                 (Tuple
                    SrcSpanInfo
                      { srcInfoSpan =
                          SrcSpan "tests/examples/UnboxedSingleton.hs" 3 9 3 16
                      , srcInfoPoints =
                          [ SrcSpan "tests/examples/UnboxedSingleton.hs" 3 9 3 11
                          , SrcSpan "tests/examples/UnboxedSingleton.hs" 3 14 3 16
                          ]
                      }
                    Unboxed
                    [ Var
                        SrcSpanInfo
                          { srcInfoSpan =
                              SrcSpan "tests/examples/UnboxedSingleton.hs" 3 12 3 13
                          , srcInfoPoints = []
                          }
                        (UnQual
                           SrcSpanInfo
                             { srcInfoSpan =
                                 SrcSpan "tests/examples/UnboxedSingleton.hs" 3 12 3 13
                             , srcInfoPoints = []
                             }
                           (Ident
                              SrcSpanInfo
                                { srcInfoSpan =
                                    SrcSpan "tests/examples/UnboxedSingleton.hs" 3 12 3 13
                                , srcInfoPoints = []
                                }
                              "a"))
                    ]))
              Nothing
          ]
      ]
  , [ Comment
        False
        (SrcSpan "tests/examples/UnboxedSingleton.hs" 2 1 2 33)
        " See e.g. GHC.Prim.indexArray#"
    ]
  )