Skip to content

Commit 9cf9caa

Browse files
committed
refactor(cabal-install-solver)!: remove dead code
principalPP and setupPP seem to have gone unused since 8194fab
1 parent 5c62a78 commit 9cf9caa

File tree

1 file changed

+0
-24
lines changed
  • cabal-install-solver/src/Distribution/Solver/Modular

1 file changed

+0
-24
lines changed

cabal-install-solver/src/Distribution/Solver/Modular/Package.hs

Lines changed: 0 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -11,8 +11,6 @@ module Distribution.Solver.Modular.Package
1111
, QPV
1212
, instI
1313
, makeIndependent
14-
, primaryPP
15-
, setupPP
1614
, showI
1715
, showPI
1816
, unPN
@@ -77,28 +75,6 @@ instI :: I -> Bool
7775
instI (I _ (Inst _)) = True
7876
instI _ = False
7977

80-
-- | Is the package in the primary group of packages. This is used to
81-
-- determine (1) if we should try to establish stanza preferences
82-
-- for this goal, and (2) whether or not a user specified @--constraint@
83-
-- should apply to this dependency (grep 'primaryPP' to see the
84-
-- use sites). In particular this does not include packages pulled in
85-
-- as setup deps.
86-
--
87-
primaryPP :: PackagePath -> Bool
88-
primaryPP (PackagePath _ns q) = go q
89-
where
90-
go QualToplevel = True
91-
go (QualSetup _) = False
92-
go (QualExe _ _) = False
93-
94-
-- | Is the package a dependency of a setup script. This is used to
95-
-- establish whether or not certain constraints should apply to this
96-
-- dependency (grep 'setupPP' to see the use sites).
97-
--
98-
setupPP :: PackagePath -> Bool
99-
setupPP (PackagePath _ns (QualSetup _)) = True
100-
setupPP (PackagePath _ns _) = False
101-
10278
-- | Qualify a target package with its own name so that its dependencies are not
10379
-- required to be consistent with other targets.
10480
makeIndependent :: PN -> QPN

0 commit comments

Comments
 (0)