ParseOk (Module (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 1 1 5 1, srcInfoPoints = [SrcSpan "tests/examples/RecordPuns.hs" 1 1 1 1,SrcSpan "tests/examples/RecordPuns.hs" 2 1 2 1,SrcSpan "tests/examples/RecordPuns.hs" 2 1 2 1,SrcSpan "tests/examples/RecordPuns.hs" 4 1 4 1,SrcSpan "tests/examples/RecordPuns.hs" 5 1 5 1,SrcSpan "tests/examples/RecordPuns.hs" 5 1 5 1]}) (Just (ModuleHead (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 2 1 2 24, srcInfoPoints = [SrcSpan "tests/examples/RecordPuns.hs" 2 1 2 7,SrcSpan "tests/examples/RecordPuns.hs" 2 19 2 24]}) (ModuleName (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 2 8 2 18, srcInfoPoints = []}) "RecordPuns") Nothing Nothing)) [LanguagePragma (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 1 1 1 32, srcInfoPoints = [SrcSpan "tests/examples/RecordPuns.hs" 1 1 1 13,SrcSpan "tests/examples/RecordPuns.hs" 1 29 1 32]}) [Ident (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 1 14 1 28, srcInfoPoints = []}) "NamedFieldPuns"]] [] [PatBind (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 1 4 30, srcInfoPoints = []}) (PVar (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 1 4 7, srcInfoPoints = []}) (Ident (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 1 4 7, srcInfoPoints = []}) "cotile")) (UnGuardedRhs (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 8 4 30, srcInfoPoints = [SrcSpan "tests/examples/RecordPuns.hs" 4 8 4 9]}) (RecUpdate (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 10 4 30, srcInfoPoints = [SrcSpan "tests/examples/RecordPuns.hs" 4 15 4 16,SrcSpan "tests/examples/RecordPuns.hs" 4 29 4 30]}) (Var (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 10 4 14, srcInfoPoints = []}) (UnQual (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 10 4 14, srcInfoPoints = []}) (Ident (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 10 4 14, srcInfoPoints = []}) "tile"))) [FieldPun (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 16 4 29, srcInfoPoints = []}) (Qual (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 16 4 29, srcInfoPoints = []}) (ModuleName (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 16 4 29, srcInfoPoints = []}) "Kind") (Ident (SrcSpanInfo {srcInfoSpan = SrcSpan "tests/examples/RecordPuns.hs" 4 16 4 29, srcInfoPoints = []}) "ospeedup"))])) Nothing],[])