Add --redirects switch for "paket add".

src/Paket.Core/PublicAPI.fs

@@ -105,22 +105,31 @@ type Dependencies(dependenciesFileName: string) =
     member this.Add(package: string): unit = this.Add(package,"")
 
     /// Adds the given package with the given version to the dependencies file.
-    member this.Add(package: string,version: string): unit = this.Add(package, version, false, false, false, true)
+    member this.Add(package: string,version: string): unit =
+        this.Add(package, version, force = false, hard = false, redirects = false, interactive = false, installAfter = true)
 
     /// Adds the given package with the given version to the dependencies file.
     member this.Add(package: string,version: string,force: bool,hard: bool,interactive: bool,installAfter: bool): unit =
+        this.Add(package, version, force, hard, false, interactive, installAfter)
+
+    /// Adds the given package with the given version to the dependencies file.
+    member this.Add(package: string,version: string,force: bool,hard: bool,redirects: bool,interactive: bool,installAfter: bool): unit =
         Utils.RunInLockedAccessMode(
             this.RootPath,
             fun () -> AddProcess.Add(dependenciesFileName, PackageName(package.Trim()), version,
-                                     InstallerOptions.createLegacyOptions(force, hard, false),
+                                     InstallerOptions.createLegacyOptions(force, hard, redirects),
                                      interactive, installAfter))
 
     /// Adds the given package with the given version to the dependencies file.
     member this.AddToProject(package: string,version: string,force: bool,hard: bool,projectName: string,installAfter: bool): unit =
+        this.AddToProject(package, version, force, hard, false, projectName, installAfter)
+
+   /// Adds the given package with the given version to the dependencies file.
+    member this.AddToProject(package: string,version: string,force: bool,hard: bool,redirects: bool,projectName: string,installAfter: bool): unit =
         Utils.RunInLockedAccessMode(
             this.RootPath,
             fun () -> AddProcess.AddToProject(dependenciesFileName, PackageName package, version,
-                                              InstallerOptions.createLegacyOptions(force, hard, false),
+                                              InstallerOptions.createLegacyOptions(force, hard, redirects),
                                               projectName, installAfter))
 
     /// Adds credentials for a Nuget feed
@@ -355,4 +364,4 @@ type Dependencies(dependenciesFileName: string) =
         if String.IsNullOrEmpty apiKey then
             failwithf "Could not push package %s. Please specify a NuGet API key via environment variable \"nugetkey\"." packageFileName
         let maxTrials = defaultArg maxTrials 5
-        RemoteUpload.Push maxTrials urlWithEndpoint apiKey packageFileName
+        RemoteUpload.Push maxTrials urlWithEndpoint apiKey packageFileName

src/Paket/Commands.fs

@@ -64,6 +64,7 @@ type AddArgs =
     | [<AltCommandLine("-f")>] Force
     | [<AltCommandLine("-i")>] Interactive
     | Hard
+    | Redirects
     | No_Install
 with 
     interface IArgParserTemplate with
@@ -75,6 +76,7 @@ with
             | Force -> "Forces the download and reinstallation of all packages."
             | Interactive -> "Asks the user for every project if he or she wants to add the package to the projects's paket.references file."
             | Hard -> "Replaces package references within project files even if they are not yet adhering to the Paket's conventions (and hence considered manually managed)."
+            | Redirects -> "Creates binding redirects for the NuGet packages."
             | No_Install -> "Skips paket install --hard process afterward generation of dependencies / references files."
 
 type ConfigArgs = 

src/Paket/Program.fs

@@ -79,6 +79,7 @@ let add (results : ArgParseResults<_>) =
     let version = defaultArg (results.TryGetResult <@ AddArgs.Version @>) ""
     let force = results.Contains <@ AddArgs.Force @>
     let hard = results.Contains <@ AddArgs.Hard @>
+    let redirects = results.Contains <@ AddArgs.Redirects @>
     let noInstall = results.Contains <@ AddArgs.No_Install @>
     match results.TryGetResult <@ AddArgs.Project @> with
     | Some projectName ->