anchor.diff:  
   let rec private installPackages (context : Tasks.TaskContext) (root : string) (parents : PackageIdentifier list) (packages : Map<PackageIdentifier, LockedPackage>) = async {
     // Prepare workspace
  +  do! Files.mkdirp root
     do! Files.touch (Path.Combine(root, ".buckconfig"))
   
     if File.Exists (Path.Combine(root, Constants.BuckarooMacrosFileName)) |> not
  
positive.code: let installPackageSources (context : Tasks.TaskContext) (installPath : string) (location : PackageLocation) = async {
    let downloadManager = context.DownloadManager
    let gitManager = context.GitManager
    System.Console.WriteLine installPath
    let! mismatch = compareReceipt installPath location
    if mismatch 
    then
      match location with 
      | GitHub gitHub -> 
        let gitUrl = PackageLocation.gitHubUrl gitHub.Package
  
negative.code:     | _ -> 
        new Exception("Unsupported location type") |> raise
      do! writeReceipt installPath location
    else System.Console.WriteLine (installPath + " is up-to-date")
  }
  
  let private generateBuckConfig (sourceExplorer : ISourceExplorer) (parents : PackageIdentifier list) lockedPackage packages (pathToCell : string) = async {
  