blob: c6da9f1b9bcc3df7e8b44eb65758e74e366ca4a1 (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# OPTIONS_GHC -fno-warn-orphans #-} -- instance Diagnostic TcRnMessage
module GHC.Tc.Errors.Ppr where
import GHC.Tc.Errors.Types
import GHC.Types.Error
instance Diagnostic TcRnMessage where
diagnosticMessage (TcRnUnknownMessage m) = diagnosticMessage m
diagnosticReason (TcRnUnknownMessage m) = diagnosticReason m
|