Add lock-dependencies parameter

Add the parameter to the PackArgs-Type and pass it.
dyzmapl · Jul 20, 2015 · c388d05 · c388d05
1 parent 17a1c92
commit c388d05
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/src/Paket/Commands.fs b/src/Paket/Commands.fs
@@ -251,6 +251,7 @@ type PackArgs =
     | [<CustomCommandLine("version")>] Version of string
     | [<CustomCommandLine("templatefile")>] TemplateFile of string
     | [<CustomCommandLine("releaseNotes")>] ReleaseNotes of string
+    | [<CustomCommandLine("lock-dependencies")>] LockDependencies
 with
     interface IArgParserTemplate with
         member this.Usage =
@@ -260,6 +261,7 @@ with
             | Version(_) -> "Specify version of the package."
             | TemplateFile(_) -> "Allows to specify a single template file."
             | ReleaseNotes(_) -> "Specify relase notes for the package."
+            | LockDependencies -> "Get the version requirements from paket.lock instead of paket.dependencies."
 
 type PushArgs =
     | [<CustomCommandLine("url")>][<Mandatory>] Url of string

diff --git a/src/Paket/Program.fs b/src/Paket/Program.fs
@@ -180,7 +180,8 @@ let pack (results : ArgParseResults<_>) =
                       ?version = results.TryGetResult <@ PackArgs.Version @>,
                       ?releaseNotes = results.TryGetResult <@ PackArgs.ReleaseNotes @>,
                       ?templateFile = results.TryGetResult <@ PackArgs.TemplateFile @>,
-                      workingDir = Environment.CurrentDirectory)
+                      workingDir = Environment.CurrentDirectory,
+                      lockDependencies = results.Contains <@ PackArgs.LockDependencies @>)
 
 let findPackages (results : ArgParseResults<_>) =
     let maxResults = defaultArg (results.TryGetResult <@ FindPackagesArgs.MaxResults @>) 10000