Commit 3e460386 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Merge pull request #2206 from ezyang/ezyang-packagesThatDependOn-bugfix

Bug fix: packagesThatDependOn should go through the fake map.
parents b8b7080b c2644509
......@@ -367,10 +367,11 @@ failed pkgid buildResult buildResult' plan = assert (invariant plan') plan'
packagesThatDependOn :: InstallPlan
-> InstalledPackageId -> [PlanPackage]
packagesThatDependOn plan = map (planPkgOf plan)
packagesThatDependOn plan pkgid = map (planPkgOf plan)
. tail
. Graph.reachable (planGraphRev plan)
. planVertexOf plan
$ Map.findWithDefault pkgid pkgid (planFakeMap plan)
-- | Lookup a package that we expect to be in the processing state.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment