anchor.diff:     ToolPath:string;
      ForceOutput: bool}
    
  +/// This checks the result file with some XML queries for errors
   let checkForErrors resultFile =
  -  // This version checks the result file with some Xml queries see
  -  // http://blogs.conchango.com/johnrayner/archive/2006/10/05/Getting-FxCop-to-break-the-build.aspx
  +  // original version found at http://blogs.conchango.com/johnrayner/archive/2006/10/05/Getting-FxCop-to-break-the-build.aspx
     let FxCopCriticalWarnings = 0
     let getErrorValue s =
       let found,value = XMLRead_Int false resultFile String.Empty String.Empty (sprintf "string(count(//Issue[@Level='%s']))" s)
  
positive.code: open System.Text.RegularExpressions
  open Microsoft.Win32
  
  type FxCopErrorLevel =
  | Warning = 5
  | CriticalWarning = 4
  
negative.code:   getErrorValue "CriticalWarning",
    getErrorValue "Warning"
  
  /// FxCop Default parameters
  let FxCopDefaults = 
    { ApplyOutXsl = false;
      DirectOutputToConsole = true;
  