anchor.diff:      traceErrorfn "Paket failed with:%s\t%s" Environment.NewLine exn.Message
   
       if verbose then
  -        traceErrorfn "StackTrace:%s  %s" Environment.NewLine exn.StackTrace+        traceErrorfn "StackTrace:%s  %s" Environment.NewLine exn.StackTrace
  
positive.code: 
  
  let filterGlobalArgs args = 
  
      let globalResults = 
          UnionArgParser.Create<GlobalArgs>().Parse(ignoreMissing = true, ignoreUnrecognized = true, raiseOnUsage = false)
      let verbose = globalResults.Contains <@ GlobalArgs.Verbose @>
      let logFile = globalResults.TryGetResult <@ GlobalArgs.Log_File @> 
  
      let rest = 
          match logFile with
          | Some file -> args |> Array.filter (fun a -> a <> "--log-file" && a <> file)
          | None -> args
  
      let rest = 
          if verbose then rest |> Array.filter (fun a -> a <> "-v" && a <> "--verbose")
          else rest
  
      verbose, logFile, rest
  
      
  let commandArgs<'T when 'T :> IArgParserTemplate> args = 
      UnionArgParser
          .Create<'T>()
          .Parse(inputs = args, raiseOnUsage = false, errorHandler = ProcessExiter())
  
  
  let showHelp (helpTopic:HelpTexts.CommandHelpTopic) = 
  
negative.code: let assembly = Assembly.GetExecutingAssembly()
  let fvi = FileVersionInfo.GetVersionInfo(assembly.Location);
  tracefn "Paket version %s" fvi.FileVersion
  
  type Command =
      | [<First>][<CustomCommandLine("add")>]                 Add
  