Updated ProgramTokenReplacer.fs to use usePipline.

Author: JordanMarr

src/FSharp.SystemCommandLine/CommandBuilders.fs

@@ -334,11 +334,6 @@ type RootCommandParserBuilder<'A, 'B, 'C, 'D, 'E, 'F, 'G, 'H, 'Output>() =
         this.CommandLineBuilder <- subCommand this.CommandLineBuilder
         spec
 
-    [<CustomOperation("useTokenReplacer")>]
-    member this.UseTokenReplacer(spec: CommandSpec<'Inputs, 'Output>, replacer: TryReplaceToken) =
-        this.CommandLineBuilder.UseTokenReplacer(replacer) |> ignore
-        spec
-        
     /// Executes a Command with a handler that returns unit.
     member this.Run (spec: CommandSpec<'Inputs, unit>) =
         this.CommandLineBuilder.Command
@@ -378,11 +373,6 @@ type RootCommandBuilder<'A, 'B, 'C, 'D, 'E, 'F, 'G, 'H, 'Output>(args: string ar
         this.CommandLineBuilder <- subCommand this.CommandLineBuilder
         spec
 
-    [<CustomOperation("useTokenReplacer")>]
-    member this.UseTokenReplacer(spec: CommandSpec<'Inputs, 'Output>, replacer: TryReplaceToken) =
-        this.CommandLineBuilder.UseTokenReplacer(replacer) |> ignore
-        spec
-
     /// Executes a Command with a handler that returns unit.
     member this.Run (spec: CommandSpec<'Inputs, unit>) =
         this.CommandLineBuilder.Command

src/TestConsole/Program.fs

@@ -7,7 +7,7 @@ let app (words: string array, separator: string option) =
     System.String.Join(separator, words) |> printfn "Result: %s"
     0
 
-[<EntryPoint>]
+//[<EntryPoint>]
 let main argv = 
     let words = Input.Option(["--word"; "-w"], Array.empty, "A list of words to be appended")
     let separator = Input.OptionMaybe(["--separator"; "-s"], "A character that will separate the joined words.")

src/TestConsole/ProgramTokenReplacer.fs

@@ -1,7 +1,7 @@
 module ProgramTokenReplacer
 
 open FSharp.SystemCommandLine
-open System.CommandLine.Parsing
+open System.CommandLine.Builder
 
 let app (package: string) =
     if package.StartsWith("@") then
@@ -13,17 +13,20 @@ let app (package: string) =
 
 //[<EntryPoint>]
 let main argv =
-    let package =
-        Input.Option([ "--package"; "-p" ], "A package with a leading @ name")
+
+    // The package option needs to accept strings that start with "@" symbol.
+    // For example, "--package @shoelace-style/shoelace".
+    // To accomplish this, we will need to modify the default pipeline settings below.
+    let package = Input.Option([ "--package"; "-p" ], "A package with a leading @ name")
 
     rootCommand argv {
         description "Can be called with a leading @ package"
 
-        useTokenReplacer (
-            // in this case we want to skip @ processing
-            TryReplaceToken (fun _ _ _ -> false)
+        usePipeline (fun builder -> 
+            // Skip @ processing
+            builder.UseTokenReplacer(fun _ _ _ -> false)
         )
-
+        
         inputs package
         setHandler app
     }