diff options
Diffstat (limited to 'compiler/GHC/Rename/Utils.hs')
| -rw-r--r-- | compiler/GHC/Rename/Utils.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/GHC/Rename/Utils.hs b/compiler/GHC/Rename/Utils.hs index e5d27fa234..75952fb7df 100644 --- a/compiler/GHC/Rename/Utils.hs +++ b/compiler/GHC/Rename/Utils.hs @@ -18,6 +18,7 @@ module GHC.Rename.Utils ( checkUnusedRecordWildcard, mkFieldEnv, unknownSubordinateErr, badQualBndrErr, typeAppErr, + ambiguousFieldOccErr, HsDocContext(..), pprHsDocContext, inHsDocContext, withHsDocContext, @@ -605,6 +606,10 @@ badQualBndrErr :: RdrName -> SDoc badQualBndrErr rdr_name = text "Qualified name in binding position:" <+> ppr rdr_name +ambiguousFieldOccErr :: RdrName -> SDoc +ambiguousFieldOccErr rdr_name + = text "Ambiguous field selector occurence:" <+> ppr rdr_name + typeAppErr :: String -> LHsType GhcPs -> SDoc typeAppErr what (L _ k) = hang (text "Illegal visible" <+> text what <+> text "application" |