DeprecatedsetCommand in favor of addCommand/addCommands

Author: JordanMarr

src/FSharp.SystemCommandLine/CommandBuilders.fs

@@ -118,10 +118,19 @@ type BaseCommandBuilder<'A, 'B, 'C, 'D, 'E, 'F, 'G, 'H, 'I, 'J, 'K, 'L, 'M, 'N,
     member this.SetHandler (spec: CommandSpec<'Inputs, 'Output>, handler: 'Inputs -> 'Output) =
         newHandler handler spec
 
-    [<CustomOperation("setCommand")>]
-    member this.SetHandler (spec: CommandSpec<'Inputs, 'Output>, subCommand: System.CommandLine.Command) =
+    [<Obsolete("'setCommand' has been deprecated in favor of 'addCommand' or 'addCommands`.")>]
+    [<CustomOperation("setCommand")>] 
+    member this.SetCommand (spec: CommandSpec<'Inputs, 'Output>, subCommand: System.CommandLine.Command) =
         { spec with SubCommands = spec.SubCommands @ [ subCommand ] }
 
+    [<CustomOperation("addCommand")>]
+    member this.AddCommand (spec: CommandSpec<'Inputs, 'Output>, subCommands: System.CommandLine.Command) =
+        { spec with SubCommands = spec.SubCommands @ [ subCommands ] }
+
+    [<CustomOperation("addCommands")>]
+    member this.AddCommands (spec: CommandSpec<'Inputs, 'Output>, subCommands: System.CommandLine.Command seq) =
+        { spec with SubCommands = spec.SubCommands @ (subCommands |> Seq.toList) }
+
     /// Sets general properties on the command.
     member this.SetGeneralProperties (spec: CommandSpec<'T, 'U>) (cmd: Command) = 
         cmd.Description <- spec.Description

src/TestConsole/ProgramSubCommand.fs

@@ -41,8 +41,7 @@ let main argv =
     rootCommand argv {
         description "File System Manager"
         setHandler id
-        setCommand listCmd
-        setCommand deleteCmd
+        addCommands [ listCmd; deleteCmd ]
     }
 
 

src/Tests/SubCommandAppTest.fs

@@ -29,8 +29,8 @@ let rootCmd argstr listCmdHandler deleteCmdHandler =
     testRootCommand argstr  {
         description "File System Manager"
         setHandler id
-        setCommand (listCmd listCmdHandler)
-        setCommand (deleteCmd deleteCmdHandler)
+        addCommand (listCmd listCmdHandler)
+        addCommand (deleteCmd deleteCmdHandler)
     } 
     |> ignore