anchor.diff:      | Status "--similarity" v :: rest -> parse { arg with SearchOptions = { arg.SearchOptions with SimilaritySearching = boolToOptionStatus v } } rest
       | (KeyValue "--target" t | KeyValue "-t" t) :: rest -> parse { arg with Targets = t :: arg.Targets } rest
       | (KeyValue "--reference" r | KeyValue "-r" r) :: rest -> parse { arg with References = r :: arg.References } rest
  +    | Status "--stacktrace" v :: rest -> parse { arg with StackTrace = v } rest
       | ("--help" | "-h") :: rest -> parse { arg with Help = true } rest
       | query :: rest ->
         let q =
  
positive.code:     printfn "Targets the following assemblies."
      client.TargetAssemblies |> List.iter (printfn "  %s")
      printfn "Input query or #q to quit."
      Interactive.loop client args.SearchOptions |> ignore
    0
negative.code:   Targets: string list
    References: string list
    SearchOptions: SearchOptions
    StackTrace: bool
    Help: bool
  }
  
  [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
  module Args =
    let empty = { Query = None; Targets = []; References = []; SearchOptions = SearchOptions.defaultOptions; StackTrace = false; Help = false }
  
    let (|Status|_|) (name: string) (str: string) =
      if str.StartsWith(name) then
  