Project.save with forceTouch=true to only touch last-write-date inste…

…ad of content if unchanged
fsprojects · Mar 1, 2016 · a9b6eca · a9b6eca
1 parent 933c9b9
commit a9b6eca
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 10 deletions.
diff --git a/src/Paket.Core/FindReferences.fs b/src/Paket.Core/FindReferences.fs
@@ -39,7 +39,7 @@ let TouchReferencesOfPackages packages environment = trial {
     |> List.distinctBy (fun project-> project.FileName)
     |> List.iter (fun project ->
         verbosefn "Touching project %s" project.FileName
-        ProjectFile.touch project)
+        ProjectFile.save true project)
 }
 
 let ShowReferencesFor packages environment = trial {

diff --git a/src/Paket.Core/ProjectFile.fs b/src/Paket.Core/ProjectFile.fs
@@ -942,16 +942,11 @@ module ProjectFile =
             )
 
     let save forceTouch project =
-        if forceTouch then 
-            project.Document.Save(project.FileName)
-        elif Utils.normalizeXml project.Document <> project.OriginalText then 
+        if Utils.normalizeXml project.Document <> project.OriginalText || not (File.Exists(project.FileName)) then
             verbosefn "Project %s changed" project.FileName
             project.Document.Save(project.FileName)
-
-    let touch (project:ProjectFile) =
-        if File.Exists(project.FileName) then
+        elif forceTouch then
             File.SetLastWriteTimeUtc(project.FileName, DateTime.UtcNow)
-        else save true project
 
     let getPaketFileItems project =
         findPaketNodes "Content" project
@@ -1310,8 +1305,6 @@ type ProjectFile with
 
     member this.UpdateReferences (completeModel, usedPackages, hard) = ProjectFile.updateReferences completeModel usedPackages hard this
 
-    member this.Touch () = ProjectFile.touch this
-
     member this.Save(forceTouch) = ProjectFile.save forceTouch this
 
     member this.GetPaketFileItems () = ProjectFile.getPaketFileItems this