fix for fsprojects#2755

lexarchik · Sep 16, 2017 · b998dbe · b998dbe
1 parent 4c3993e
commit b998dbe
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/Paket.Core/Dependencies/NuGet.fs b/src/Paket.Core/Dependencies/NuGet.fs
@@ -631,6 +631,14 @@ let DownloadAndExtractPackage(alternativeProjectRoot, root, isLocalOverride:bool
     let targetFile = FileInfo targetFileName
     let licenseFileName = getLicenseFile packageName version
 
+    if force then 
+        match configResolved.Path with
+        | Some p ->
+            if verbose then
+                verbosefn "Cleaning %s" p
+            CleanDir p
+        | _ -> ()
+
     let rec getFromCache (caches:Cache list) =
         match caches with
         | cache::rest ->
@@ -670,7 +678,7 @@ let DownloadAndExtractPackage(alternativeProjectRoot, root, isLocalOverride:bool
                     use _ = Profile.startCategory Profile.Category.FileIO
                     let parent = Path.GetDirectoryName targetFileName
                     if not (Directory.Exists parent) then Directory.CreateDirectory parent |> ignore
-                    File.Copy(nupkg.FullName,targetFileName)
+                    File.Copy(nupkg.FullName,targetFileName,true)
                 | _ ->
                 // discover the link on the fly
                 let downloadUrl = ref ""