diff options
| author | Aaron Allen <aaron@flipstone.com> | 2021-10-02 14:52:43 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-03-16 02:27:48 -0400 |
| commit | 577135bf2251cf0aecf07ebb4966659d3fcc62b5 (patch) | |
| tree | 37c81bc6ccfd13f5399a85bf4afd9a044bf9fc6f /compiler/GHC/Utils/Error.hs | |
| parent | ab618309069bb47645f33cd1b198ace46e27abb9 (diff) | |
| download | haskell-577135bf2251cf0aecf07ebb4966659d3fcc62b5.tar.gz | |
Convert Diagnostics in GHC.Tc.Gen.Foreign
Converts all uses of 'TcRnUnknownMessage' to proper diagnostics.
Diffstat (limited to 'compiler/GHC/Utils/Error.hs')
| -rw-r--r-- | compiler/GHC/Utils/Error.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/GHC/Utils/Error.hs b/compiler/GHC/Utils/Error.hs index fb981452b6..7d2eb34c3b 100644 --- a/compiler/GHC/Utils/Error.hs +++ b/compiler/GHC/Utils/Error.hs @@ -1,4 +1,5 @@ {-# LANGUAGE BangPatterns #-} +{-# LANGUAGE DeriveFunctor #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE ViewPatterns #-} @@ -194,6 +195,7 @@ mkPlainErrorMsgEnvelope locn msg = data Validity' a = IsValid -- ^ Everything is fine | NotValid a -- ^ A problem, and some indication of why + deriving Functor -- | Monomorphic version of @Validity'@ specialised for 'SDoc's. type Validity = Validity' SDoc |