Skip to content

Commit b162f9f

Browse files
committed
Remove previous try
1 parent c032c48 commit b162f9f

File tree

2 files changed

+0
-10
lines changed

2 files changed

+0
-10
lines changed

Cabal-syntax/src/Distribution/Types/GenericPackageDescription.hs

-8
Original file line numberDiff line numberDiff line change
@@ -93,17 +93,9 @@ traverseCondTreeBuildInfo
9393
traverseCondTreeBuildInfo g = node where
9494
mkCondNode :: comp -> [CondBranch v [Dependency] comp] -> CondTree v [Dependency] comp
9595
mkCondNode comp = CondNode comp (view L.targetBuildDepends comp)
96-
-- mkCondNode
97-
-- :: comp
98-
-- -> [Dependency]
99-
-- -> [CondBranch v [Dependency] comp]
100-
-- -> CondTree v [Dependency] comp
101-
-- mkCondNode comp deps = CondNode comp (view L.targetBuildDepends comp <> deps)
10296

10397
node (CondNode comp _deps branches) = mkCondNode
10498
<$> L.buildInfo g comp
105-
-- -- [HACK] we cannot operate on dependencies directly
106-
-- <*> fmap (view L.targetBuildDepends) (g (set L.targetBuildDepends deps mempty))
10799
<*> traverse branch branches
108100

109101
branch (CondBranch v x y) = CondBranch v

cabal-install/src/Distribution/Client/CmdRepl.hs

-2
Original file line numberDiff line numberDiff line change
@@ -338,8 +338,6 @@ addDepsToProjectTarget deps pkgId ctx =
338338
| packageId pkg /= pkgId = SpecificSourcePackage pkg
339339
| SourcePackage{..} <- pkg =
340340
SpecificSourcePackage $ pkg { srcpkgDescription =
341-
-- srcpkgDescription & (\f -> L.allCondTrees $ traverseCondTreeC f)
342-
-- %~ (deps ++)
343341
srcpkgDescription & L.traverseBuildInfos
344342
%~ over L.targetBuildDepends (deps ++)
345343
}

0 commit comments

Comments
 (0)