anchor.diff:      [for project,packagesConfig in nugetEnv.NugetProjectFiles do 
           project.ReplaceNuGetPackagesFile()
           project.RemoveNuGetTargetsEntries()
  -        yield project, convertPackagesConfigToReferences project.FileName packagesConfig] |> succeed
  -
  -let createPaketEnv rootDirectory nugetEnv credsMirationMode = 
  -    
  -    PaketEnv.create rootDirectory
  -    <!> createDependenciesFileR rootDirectory nugetEnv credsMirationMode
  -    <*> succeed None
  -    <*> convertProjects nugetEnv
  +        yield project, convertPackagesConfigToReferences project.FileName packagesConfig]
  +
  +let createPaketEnv rootDirectory nugetEnv credsMirationMode = rop {
  +
  +    let! depFile = createDependenciesFileR rootDirectory nugetEnv credsMirationMode
  +    return PaketEnv.create rootDirectory depFile None (convertProjects nugetEnv)
  +}
   
   let updateSolutions (rootDirectory : DirectoryInfo) = 
       let dependenciesFileName = Path.Combine(rootDirectory.FullName, Constants.DependenciesFileName)
  -    let root = Path.GetDirectoryName dependenciesFileName
       let solutions =
           FindAllFiles(rootDirectory.FullName, "*.sln")
           |> Array.map(fun fi -> SolutionFile(fi.FullName))
  
positive.code:         |> List.map (fun (p,packages) -> readSingle(FileInfo(packages)) |> lift (fun packages -> (p,packages)))
          |> Rop.collect
  
      let read (rootDirectory : DirectoryInfo) = 
          let configs = FindAllFiles(rootDirectory.FullName, "nuget.config") |> Array.toList 
          let targets = FindAllFiles(rootDirectory.FullName, "nuget.targets") |> Seq.firstOrDefault
          let exe = FindAllFiles(rootDirectory.FullName, "nuget.exe") |> Seq.firstOrDefault
  
          create rootDirectory configs targets exe
          <!> readNugetConfig rootDirectory
          <*> readNugetPackages rootDirectory
  
  
  type ConvertResultR = 
      { NugetEnv : NugetEnv
  
negative.code:         solution.RemoveNugetEntries()
          solution.AddPaketFolder(dependenciesFileRef, None)
  
      solutions
  
  let createResult(rootDirectory, nugetEnv, credsMirationMode) = rop {
  
      let! paketEnv = createPaketEnv rootDirectory nugetEnv credsMirationMode
      return ConvertResultR.create nugetEnv paketEnv (updateSolutions rootDirectory)
  }
  
  let convertR rootDirectory force credsMigrationMode = rop {
  
      let! credsMigrationMode =
          defaultArg 
              (credsMigrationMode |> Option.map CredsMigrationMode.parse)
              (Rop.succeed Encrypt)
  
      let! nugetEnv = NugetEnv.read rootDirectory
  
      let! rootDirectory = 
          if force then succeed rootDirectory
          else ensureNoPaketEnv rootDirectory
  
      return! createResult(rootDirectory, nugetEnv, credsMigrationMode)
  }
  
  let replaceNugetWithPaket initAutoRestore installAfter result = 
      
  