From 577135bf2251cf0aecf07ebb4966659d3fcc62b5 Mon Sep 17 00:00:00 2001
From: Aaron Allen <aaron@flipstone.com>
Date: Sat, 2 Oct 2021 14:52:43 -0500
Subject: Convert Diagnostics in GHC.Tc.Gen.Foreign

Converts all uses of 'TcRnUnknownMessage' to proper diagnostics.
---
 compiler/GHC/Utils/Error.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'compiler/GHC/Utils/Error.hs')

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
-- 
cgit v1.2.1