Commit 9f4686ef authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Update for flipped order of args for PackageIndex.insert

parent b304416f
......@@ -139,7 +139,7 @@ installLocalPackage verbosity packageDB repos comp conf miscOptions configFlags
let -- The trick is, we add the local package to the available index and
-- then ask to resolve a dependency on exactly that package. So the
-- resolver ends up having to pick the local package.
available' = PackageIndex.insert available localPackage
available' = PackageIndex.insert localPackage available
localPackage = AvailablePackage {
packageInfoId = packageId desc,
Available.packageDescription = desc,
......@@ -261,7 +261,7 @@ completed :: PackageIdentifier
-> InstallPlan buildResult -> InstallPlan buildResult
completed pkgid plan =
case PackageIndex.lookupPackageId index pkgid of
Just (Configured cp) -> plan { planIndex = PackageIndex.insert index (Installed cp) }
Just (Configured cp) -> plan { planIndex = PackageIndex.insert (Installed cp) index }
_ -> error "InstallPlan.completed: internal error; cannot mark package as completed"
where index = planIndex plan
Supports Markdown
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