anchor.diff:  let removeFileFromProject fileName project _ = alterProject project (fun x -> x.RemoveFile fileName)
   let addReferenceToProject reference project = alterProject project (fun x -> x.AddReference reference)
   
  +let listReferencesOfProject project =
  +    let fsProj = ProjectFile.FromFile(project)
  +    fsProj.References
  +    |> List.iter (fun i -> printfn "%s" i)
  +
  +let getProjects() =
  +    DirectoryInfo(directory) |> Fake.FileSystemHelper.filesInDirMatching "*.fsproj"
  +
   let file fileName f =
  -    let projects = DirectoryInfo(directory) |> Fake.FileSystemHelper.filesInDirMatching "*.fsproj"
       let node = nodeType fileName
  -    match projects with
  +    match getProjects() with
       | [| project |] -> f fileName project.Name node
  -    | [||] -> printfn "No project found in this directory."
  +    | [||] -> promptNoProjectFound()
       | _ ->
           let project = promptList ()
           f fileName project node
  
positive.code:           \n                    - Add reference to the current project.\
            \n                      If more than one project is in the current\
            \n                      directory you will be prompted which to use.\n\
              update paket        - Updates Paket to latest version\n\
              update fake         - Updates FAKE to latest version\n\
              paket [args]        - Runs Paket with given arguments\n\
  
negative.code:     Path.Combine(directory, fileName) |> Fake.FileHelper.CreateFile
  
  let AddReference reference =
      match getProjects() with
      | [| project |] -> addReferenceToProject reference project.Name
      | [||] -> promptNoProjectFound()
      | _ ->
          let project = promptList ()
          addReferenceToProject reference project
  
  let ListReference() =
      match getProjects() with
      | [| project |] -> listReferencesOfProject project.Name
      | [||] -> promptNoProjectFound()
      | _ ->
          let project = promptList ()
          listReferencesOfProject project
  
  let Remove fileName =
      file fileName removeFileFromProject
  