haskell-src-exts-1.17.0: tests/examples/QualifiedRecordfieldPuns.hs.parser.golden
ParseOk
( Module
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 1 1 4 1
, srcInfoPoints =
[ SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 1 1 1 1
, SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 1 2 1
, SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 1 2 1
, SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 1 2 1
, SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 4 1 4 1
, SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 4 1 4 1
]
}
Nothing
[ LanguagePragma
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 1 1 1 32
, srcInfoPoints =
[ SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 1 1 1 13
, SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 1 29 1 32
]
}
[ Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 1 14 1 28
, srcInfoPoints = []
}
"NamedFieldPuns"
]
]
[]
[ FunBind
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 1 2 16
, srcInfoPoints = []
}
[ Match
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 1 2 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 1 2 2
, srcInfoPoints = []
}
"f")
[ PParen
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 3 2 12
, srcInfoPoints =
[ SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 3 2 4
, SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 11 2 12
]
}
(PRec
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 4 2 11
, srcInfoPoints =
[ SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 6 2 7
, SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 10 2 11
]
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 4 2 5
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 4 2 5
, srcInfoPoints = []
}
"C"))
[ PFieldPun
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 7 2 10
, srcInfoPoints = []
}
(Qual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 7 2 10
, srcInfoPoints = []
}
(ModuleName
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 7 2 10
, srcInfoPoints = []
}
"M")
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 7 2 10
, srcInfoPoints = []
}
"a"))
])
]
(UnGuardedRhs
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 13 2 16
, srcInfoPoints =
[ SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 13 2 14 ]
}
(Var
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 15 2 16
, srcInfoPoints = []
}
(UnQual
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 15 2 16
, srcInfoPoints = []
}
(Ident
SrcSpanInfo
{ srcInfoSpan =
SrcSpan "tests/examples/QualifiedRecordfieldPuns.hs" 2 15 2 16
, srcInfoPoints = []
}
"a"))))
Nothing
]
]
, []
)