Handles non-existent lock file

fsprojects · Aug 3, 2015 · 501a4dd · 501a4dd
1 parent 1ae326a
commit 501a4dd
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/Paket.Core/UpdateProcess.fs b/src/Paket.Core/UpdateProcess.fs
@@ -97,7 +97,13 @@ let selectiveUpdate resolve lockFile dependenciesFile updateAll package =
     LockFile(lockFile.FileName, dependenciesFile.Options, resolution.ResolvedPackages.GetModelOrFail(), resolution.ResolvedSourceFiles)
 
 let SelectiveUpdate(dependenciesFile : DependenciesFile, updateAll, exclude, force) =
-    let oldLockFile = LockFile.LoadFrom <| dependenciesFile.FindLockfile().FullName 
+    let lockFileName = DependenciesFile.FindLockfile dependenciesFile.FileName
+    let oldLockFile =
+        if not lockFileName.Exists then
+            LockFile.Parse(lockFileName.FullName, [||])
+        else
+            LockFile.LoadFrom lockFileName.FullName
+
     let lockFile = selectiveUpdate (fun d p -> d.Resolve(force, p)) oldLockFile dependenciesFile updateAll exclude
     lockFile.Save()
     lockFile