anchor.diff:          (results.TryGetResult <@ AddArgs.Project @>,
            results.TryGetResult <@ AddArgs.Project_Legacy @>)
           |> legacyOption results (ReplaceArgument("--project", "project"))
  -    let packageKind = 
  +    let packageKind =
           match results.GetResult (<@ AddArgs.Type @>, defaultValue = AddArgsDependencyType.Nuget) with
           | AddArgsDependencyType.Nuget -> Requirements.PackageRequirementKind.Package
           | AddArgsDependencyType.Clitool -> Requirements.PackageRequirementKind.DotnetCliTool
  
positive.code: 
  let github (results : ParseResults<_>) =
      match results.GetResult <@ GithubArgs.Add @> with
      | add -> 
          let group =
              add.TryGetResult <@ AddGithubArgs.Group @>
          let repository =
  
negative.code: let restriction (results: ParseResults<RestrictionArgs>) =
      let restrictionRaw = results.GetResult <@ RestrictionArgs.Restriction @>
      let restriction, parseProblems = Requirements.parseRestrictions restrictionRaw
  
      for problem in parseProblems |> Seq.map (fun x -> x.AsMessage) do
          Logging.traceWarnfn "Problem: %s" problem
  
      Logging.tracefn "Restriction: %s" restrictionRaw
      Logging.tracefn "Simplified: %s" (restriction.ToString())
      Logging.tracefn "Frameworks: [ "
  