ParseOk ( Module SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 1 1 5 1 , srcInfoPoints = [ SrcSpan "tests/examples/GADTRecord.hs" 1 1 1 1 , SrcSpan "tests/examples/GADTRecord.hs" 3 1 3 1 , SrcSpan "tests/examples/GADTRecord.hs" 3 1 3 1 , SrcSpan "tests/examples/GADTRecord.hs" 3 1 3 1 , SrcSpan "tests/examples/GADTRecord.hs" 5 1 5 1 , SrcSpan "tests/examples/GADTRecord.hs" 5 1 5 1 ] } Nothing [ LanguagePragma SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 1 1 1 23 , srcInfoPoints = [ SrcSpan "tests/examples/GADTRecord.hs" 1 1 1 13 , SrcSpan "tests/examples/GADTRecord.hs" 1 20 1 23 ] } [ Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 1 14 1 19 , srcInfoPoints = [] } "GADTs" ] ] [] [ GDataDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 3 1 5 0 , srcInfoPoints = [ SrcSpan "tests/examples/GADTRecord.hs" 3 8 3 13 , SrcSpan "tests/examples/GADTRecord.hs" 4 3 4 3 , SrcSpan "tests/examples/GADTRecord.hs" 5 1 5 0 ] } (DataType SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 3 1 3 5 , srcInfoPoints = [] }) Nothing (DHead SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 3 6 3 7 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 3 6 3 7 , srcInfoPoints = [] } "T")) Nothing [ GadtDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 3 4 29 , srcInfoPoints = [ SrcSpan "tests/examples/GADTRecord.hs" 4 5 4 7 , SrcSpan "tests/examples/GADTRecord.hs" 4 8 4 9 , SrcSpan "tests/examples/GADTRecord.hs" 4 23 4 24 , SrcSpan "tests/examples/GADTRecord.hs" 4 25 4 27 ] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 3 4 4 , srcInfoPoints = [] } "T") (Just [ FieldDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 10 4 22 , srcInfoPoints = [ SrcSpan "tests/examples/GADTRecord.hs" 4 16 4 18 ] } [ Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 10 4 15 , srcInfoPoints = [] } "field" ] (TyCon SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 19 4 22 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 19 4 22 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 19 4 22 , srcInfoPoints = [] } "Int"))) ]) (TyCon SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 28 4 29 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 28 4 29 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/GADTRecord.hs" 4 28 4 29 , srcInfoPoints = [] } "T"))) ] [] ] , [] )