anchor.diff:                      with _ ->
                           fail (LockFileParseError fi)
   
  -            let projects = InstallProcess.findAllReferencesFiles(directory.FullName)
  +            let! projects = InstallProcess.findAllReferencesFiles(directory.FullName)
   
  -            create directory
  -            <!> dependenciesFile
  -            <*> lockFile
  -            <*> projects
  +            return create directory dependenciesFile lockFile projects
  +    }
   
       let locatePaketRootDirectory (directory : DirectoryInfo) = 
           if not directory.Exists then 
  
positive.code: 
  [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
  module PaketEnv = 
      
      let create root dependenciesFile lockFile projects = 
          { RootDirectory = root
            DependenciesFile = dependenciesFile
            LockFile = lockFile
            Projects = projects }       
  
      let fromRootDirectory (directory : DirectoryInfo) = 
          if not directory.Exists then 
              fail (DirectoryDoesntExist directory)
          else
              let dependenciesFile = 
                  let fi = FileInfo(Path.Combine(directory.FullName, Constants.DependenciesFileName))
                  if not fi.Exists then
                      fail (DependenciesFileNotFoundInDir directory)
  
negative.code:                     with _ ->
                          fail (DependenciesFileParseError fi)
  
              let! lockFile =
                  let fi = FileInfo(Path.Combine(directory.FullName, Constants.LockFileName))
                  if not fi.Exists then
                      None |> succeed
  