blob: 9154ae7578c681b560b1839725eda6696e3a4211 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE LambdaCase #-}
module GHC.Types.PkgQual where
import GHC.Prelude
import GHC.Types.SourceText
import GHC.Unit.Types
import GHC.Utils.Outputable
import Data.Data
-- | Package-qualifier as it was parsed
data RawPkgQual
= NoRawPkgQual -- ^ No package qualifier
| RawPkgQual StringLiteral -- ^ Raw package qualifier string.
deriving (Data)
-- | Package-qualifier after renaming
--
-- Renaming detects if "this" or the unit-id of the home-unit was used as a
-- package qualifier.
data PkgQual
= NoPkgQual -- ^ No package qualifier
| ThisPkg UnitId -- ^ Import from home-unit
| OtherPkg UnitId -- ^ Import from another unit
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)
|