Merge pull request #593 from sergey-tihon/master

Fix for #592
fsprojects · Feb 12, 2015 · bbc70be · bbc70be
2 parents f18ee42 + 1b76f1e
commit bbc70be
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Paket.Core/RemoteDownload.fs b/src/Paket.Core/RemoteDownload.fs
@@ -138,7 +138,7 @@ let DownloadSourceFiles(rootPath, sourceFiles:ModuleResolver.ResolvedSourceFile
     |> Seq.sortBy (fst >> fst)
     |> Seq.map (fun ((destinationDir, version), sources) ->
         let versionFile = FileInfo(Path.Combine(destinationDir, Constants.PaketVersionFileName))
-        let isInRightVersion = versionFile.Exists && version = File.ReadAllText(versionFile.FullName)
+        let isInRightVersion = versionFile.Exists && File.ReadAllText(versionFile.FullName).Contains(version)
 
         if not isInRightVersion then
             CleanDir destinationDir
@@ -165,6 +165,7 @@ let DownloadSourceFiles(rootPath, sourceFiles:ModuleResolver.ResolvedSourceFile
                     })
                 |> Async.Parallel
 
-            File.WriteAllText(versionFile.FullName, version)
+            if not <| File.ReadAllText(versionFile.FullName).Contains(version)
+                then File.AppendAllLines(versionFile.FullName, [version])
         })
     |> Async.Parallel