Support forcing download for outdatedness check

fsprojects · Jul 28, 2017 · 27c522b · 27c522b
1 parent 5f68356
commit 27c522b
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/completion/paket-completion.zsh b/completion/paket-completion.zsh
@@ -707,6 +707,7 @@ _paket-outdated() {
   args=(
     $global_options
     "${(f)$(_paket_group_option 'specify dependency group (default: all groups)')}"
+    '(-f --force)'{-f,--force}'[force download and reinstallation of all dependencies]'
     '(--ignore-constraints)'--ignore-constraints'[ignore version constraints in the paket.dependencies file]'
     '(--pre --include-prereleases)'{--pre,--include-prereleases}'[consider prerelease versions as updates]'
   )

diff --git a/src/Paket/Commands.fs b/src/Paket/Commands.fs
@@ -171,6 +171,7 @@ with
             | Load_Script_Type_Legacy(_) -> "[obsolete]"
 
 type OutdatedArgs =
+    | [<Unique;AltCommandLine("-f")>] Force
     | [<Unique>] Ignore_Constraints
 
     | [<Unique;AltCommandLine("-g")>] Group of name:string
@@ -181,6 +182,7 @@ with
     interface IArgParserTemplate with
         member this.Usage =
             match this with
+            | Force -> "force download and reinstallation of all dependencies"
             | Ignore_Constraints -> "ignore version constraints in the paket.dependencies file"
 
             | Group(_) -> "specify dependency group (default: all groups)"

diff --git a/src/Paket/Program.fs b/src/Paket/Program.fs
@@ -298,13 +298,14 @@ let install (results : ParseResults<_>) =
         alternativeProjectRoot)
 
 let outdated (results : ParseResults<_>) =
+    let force = results.Contains <@ OutdatedArgs.Force @>
     let strict = results.Contains <@ OutdatedArgs.Ignore_Constraints @> |> not
     let includePrereleases = results.Contains <@ OutdatedArgs.Include_Prereleases @>
     let group =
         (results.TryGetResult<@ OutdatedArgs.Group @>,
          results.TryGetResult<@ OutdatedArgs.Group_Legacy @>)
         |> legacyOption results "--group" "group"
-    Dependencies.Locate().ShowOutdated(strict, false, includePrereleases, group)
+    Dependencies.Locate().ShowOutdated(strict, force, includePrereleases, group)
 
 let remove (results : ParseResults<_>) =
     let packageName =