diff options
Diffstat (limited to 'compiler/GHC/HsToCore/Errors/Ppr.hs')
| -rw-r--r-- | compiler/GHC/HsToCore/Errors/Ppr.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore/Errors/Ppr.hs b/compiler/GHC/HsToCore/Errors/Ppr.hs index 745f701d8f..21be8d3d76 100644 --- a/compiler/GHC/HsToCore/Errors/Ppr.hs +++ b/compiler/GHC/HsToCore/Errors/Ppr.hs @@ -128,7 +128,7 @@ instance Diagnostic DsMessage where ThAmbiguousRecordUpdates fld -> mkMsg "Ambiguous record updates" (ppr fld) ThAbstractClosedTypeFamily decl - -> mkMsg "abstract closed type family" (ppr decl) + -> mkMsg "Abstract closed type family" (ppr decl) ThForeignLabel cls -> mkMsg "Foreign label" (doubleQuotes (ppr cls)) ThForeignExport decl @@ -168,6 +168,8 @@ instance Diagnostic DsMessage where -> mkMsg "Splices within declaration brackets" empty ThNonLinearDataCon -> mkMsg "Non-linear fields in data constructors" empty + ThTypeData + -> mkMsg "Type data" empty where mkMsg what doc = mkSimpleDecorated $ |