ParseOk ( Module SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 1 4 1 , srcInfoPoints = [ SrcSpan "tests/examples/RecordInfixSelector.hs" 1 1 1 1 , SrcSpan "tests/examples/RecordInfixSelector.hs" 1 1 1 1 , SrcSpan "tests/examples/RecordInfixSelector.hs" 1 1 1 1 , SrcSpan "tests/examples/RecordInfixSelector.hs" 3 1 3 1 , SrcSpan "tests/examples/RecordInfixSelector.hs" 4 1 4 1 , SrcSpan "tests/examples/RecordInfixSelector.hs" 4 1 4 1 ] } Nothing [] [] [ DataDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 1 1 59 , srcInfoPoints = [ SrcSpan "tests/examples/RecordInfixSelector.hs" 1 30 1 31 ] } (DataType SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 1 1 5 , srcInfoPoints = [] }) Nothing (DHead SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 6 1 29 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 6 1 29 , srcInfoPoints = [] } "RecordWithInfixSelector")) [ QualConDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 32 1 59 , srcInfoPoints = [ SrcSpan "tests/examples/RecordInfixSelector.hs" 1 37 1 38 , SrcSpan "tests/examples/RecordInfixSelector.hs" 1 58 1 59 ] } Nothing Nothing (RecDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 32 1 59 , srcInfoPoints = [ SrcSpan "tests/examples/RecordInfixSelector.hs" 1 37 1 38 , SrcSpan "tests/examples/RecordInfixSelector.hs" 1 58 1 59 ] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 32 1 36 , srcInfoPoints = [] } "Cons") [ FieldDecl SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 39 1 57 , srcInfoPoints = [ SrcSpan "tests/examples/RecordInfixSelector.hs" 1 44 1 46 ] } [ Symbol SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 39 1 43 , srcInfoPoints = [ SrcSpan "tests/examples/RecordInfixSelector.hs" 1 39 1 40 , SrcSpan "tests/examples/RecordInfixSelector.hs" 1 40 1 42 , SrcSpan "tests/examples/RecordInfixSelector.hs" 1 42 1 43 ] } "<>" ] (TyFun SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 47 1 57 , srcInfoPoints = [ SrcSpan "tests/examples/RecordInfixSelector.hs" 1 51 1 53 ] } (TyCon SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 47 1 50 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 47 1 50 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 47 1 50 , srcInfoPoints = [] } "Int"))) (TyCon SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 54 1 57 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 54 1 57 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 1 54 1 57 , srcInfoPoints = [] } "Int")))) ]) ] [] , PatBind SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 1 3 30 , srcInfoPoints = [] } (PVar SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 1 3 9 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 1 3 9 , srcInfoPoints = [] } "idRecord")) (UnGuardedRhs SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 10 3 30 , srcInfoPoints = [ SrcSpan "tests/examples/RecordInfixSelector.hs" 3 10 3 11 ] } (RecConstr SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 12 3 30 , srcInfoPoints = [ SrcSpan "tests/examples/RecordInfixSelector.hs" 3 17 3 18 , SrcSpan "tests/examples/RecordInfixSelector.hs" 3 29 3 30 ] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 12 3 16 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 12 3 16 , srcInfoPoints = [] } "Cons")) [ FieldUpdate SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 19 3 28 , srcInfoPoints = [ SrcSpan "tests/examples/RecordInfixSelector.hs" 3 24 3 25 ] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 19 3 23 , srcInfoPoints = [ SrcSpan "tests/examples/RecordInfixSelector.hs" 3 19 3 20 , SrcSpan "tests/examples/RecordInfixSelector.hs" 3 20 3 22 , SrcSpan "tests/examples/RecordInfixSelector.hs" 3 22 3 23 ] } (Symbol SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 20 3 22 , srcInfoPoints = [] } "<>")) (Var SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 26 3 28 , srcInfoPoints = [] } (UnQual SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 26 3 28 , srcInfoPoints = [] } (Ident SrcSpanInfo { srcInfoSpan = SrcSpan "tests/examples/RecordInfixSelector.hs" 3 26 3 28 , srcInfoPoints = [] } "id"))) ])) Nothing ] , [] )