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 ] , [] )