module GHC.Types.PkgQual where
import GHC.Prelude
import GHC.Types.SourceText
import GHC.Unit.Types
import GHC.Utils.Outputable
import Data.Data
data RawPkgQual
= NoRawPkgQual
| RawPkgQual StringLiteral
deriving (Data)
data PkgQual
= NoPkgQual
| ThisPkg UnitId
| OtherPkg UnitId
deriving (Data, Ord, Eq)
instance Outputable RawPkgQual where
ppr = \case
NoRawPkgQual -> empty
RawPkgQual (StringLiteral st p _)
-> pprWithSourceText st (doubleQuotes (ftext p))
instance Outputable PkgQual where
ppr = \case
NoPkgQual -> empty
ThisPkg u -> doubleQuotes (ppr u)
OtherPkg u -> doubleQuotes (ppr u)