diff options
| author | Alfredo Di Napoli <alfredo@well-typed.com> | 2021-07-06 12:48:49 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-07-09 08:46:44 -0400 |
| commit | e17850c4b9b988809dafbd6a35c7b3c3bf050dd5 (patch) | |
| tree | 2b9a7d1426c99dcf3f399bdbc74e4d9796d215f3 /compiler/GHC/Rename | |
| parent | 5193bd06c09009ebd2797a6674b458ec4b70248b (diff) | |
| download | haskell-e17850c4b9b988809dafbd6a35c7b3c3bf050dd5.tar.gz | |
Add TcRnDuplicateFieldName to TcRnMessage
Diffstat (limited to 'compiler/GHC/Rename')
| -rw-r--r-- | compiler/GHC/Rename/Pat.hs | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/compiler/GHC/Rename/Pat.hs b/compiler/GHC/Rename/Pat.hs index b3aabc6942..eef23cf56d 100644 --- a/compiler/GHC/Rename/Pat.hs +++ b/compiler/GHC/Rename/Pat.hs @@ -934,16 +934,7 @@ badDotDotCon con , nest 2 (text "The constructor has no labelled fields") ] dupFieldErr :: HsRecFieldContext -> NE.NonEmpty RdrName -> TcRnMessage -dupFieldErr ctxt dups - = TcRnUnknownMessage $ mkPlainError noHints $ - hsep [text "duplicate field name", - quotes (ppr (NE.head dups)), - text "in record", pprRFC ctxt] - -pprRFC :: HsRecFieldContext -> SDoc -pprRFC (HsRecFieldCon {}) = text "construction" -pprRFC (HsRecFieldPat {}) = text "pattern" -pprRFC (HsRecFieldUpd {}) = text "update" +dupFieldErr ctxt = TcRnDuplicateFieldName (toRecordFieldPart ctxt) toRecordFieldPart :: HsRecFieldContext -> RecordFieldPart toRecordFieldPart (HsRecFieldCon n) = RecordFieldConstructor n |