anchor.diff:          )
       })
       |> Async.Parallel
  +
     return
       targetIdentifiers
       |> Seq.collect id
  
positive.code:     |> Map.add "buckaroo" buckarooSection
      |> Map.add "repositories" repositoriesSection
  
    do! Files.mkdirp (Path.Combine(root, ".buckconfig.d"))
    do! Files.writeFile (Path.Combine(root, ".buckconfig.d", ".buckconfig.buckaroo")) (BuckConfig.render config)
  }
  
  let task (context : Tasks.TaskContext) = async {
    let! lock = Tasks.readLock
  
    do! installPackages context "." [] lock.Packages
    do! writeTopLevelFiles context "." lock
  
    return ()
  }
  
negative.code:       do! Files.deleteDirectoryIfExists installPath |> Async.Ignore
        do! Files.mkdirp installPath
        do! Archive.extractTo pathToCache installPath http.StripPrefix
      logger.Info ("Writing an installation receipt for " + installPath + "... ")
      do! writeReceipt installPath location
      logger.Success ("Installed " + installPath)
  }
  
  let private generateBuckConfig (sourceExplorer : ISourceExplorer) (parents : PackageIdentifier list) lockedPackage packages (pathToCell : string) = async {
  