Check if a project is already installed before add - references #550

fsprojects · Jan 14, 2015 · ec6435b · ec6435b
1 parent 14bd543
commit ec6435b
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 3 deletions.
diff --git a/src/Paket.Core/AddProcess.fs b/src/Paket.Core/AddProcess.fs
@@ -17,7 +17,8 @@ let Add(dependenciesFileName, package, version, force, hard, interactive, instal
 
     if interactive then
         for project in ProjectFile.FindAllProjects(Path.GetDirectoryName lockFile.FileName) do
-            if Utils.askYesNo(sprintf "  Install to %s?" project.Name) then
+            let notInstalled = project.HasPackageInstalled(NormalizedPackageName package) |> not
+            if notInstalled && Utils.askYesNo(sprintf "  Install to %s?" project.Name) then
                 ProjectFile.FindOrCreateReferencesFile(FileInfo(project.FileName))
                     .AddNuGetReference(package)
                     .Save()

diff --git a/src/Paket.Core/ProjectFile.fs b/src/Paket.Core/ProjectFile.fs
@@ -77,6 +77,14 @@ type ProjectFile =
     member this.CreateNode(name) = 
         this.Document.CreateElement(name, Constants.ProjectDefaultNameSpace)
 
+    member this.HasPackageInstalled(package:NormalizedPackageName) =        
+        let proj = FileInfo(this.FileName)
+        match ProjectFile.FindReferencesFile proj with
+        | None -> false
+        | Some fileName -> 
+            let lines = File.ReadAllLines(fileName)
+            lines |> Seq.exists (fun l -> l.ToLower() = package.ToString().ToLower())
+
     member this.CreateNode(name, text) = 
         let node = this.CreateNode(name)
         node.InnerText <- text

diff --git a/src/Paket/Paket.fsproj b/src/Paket/Paket.fsproj
@@ -28,12 +28,12 @@
     <DocumentationFile>
     </DocumentationFile>
     <StartArguments>update -f</StartArguments>
-    <StartArguments>restore</StartArguments>
+    <StartArguments>add nuget NUnit -i</StartArguments>
     <StartAction>Project</StartAction>
     <StartProgram>paket.exe</StartProgram>
     <StartWorkingDirectory>
     </StartWorkingDirectory>
-    <StartWorkingDirectory>d:\code\jsonLD.Entities\src</StartWorkingDirectory>
+    <StartWorkingDirectory>d:\code\paketkopie</StartWorkingDirectory>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <DebugType>pdbonly</DebugType>