anchor.diff:  /// The default TraceListener for Console
   let defaultConsoleTraceListener = ConsoleTraceListener(buildServer <> CCNet,colorMap)
   
  +/// Specifies if the XmlWriter should close tags automatically
   let mutable AutoCloseXmlWriter = false
   
  -/// <summary>Implements a TraceListener which writes NAnt like XML files.</summary>
  -/// <param name="xmlOutputFile">Defines the xml output file.</param>
  +/// Implements a TraceListener which writes NAnt like XML files.
  +/// ## Parameters
  +///  - `xmlOutputFile` - Defines the xml output file.
   type NAntXmlTraceListener(xmlOutputFile) =
       let getXmlWriter() = new IO.StreamWriter(xmlOutputFile,true,encoding)
       let mutable xmlWriter:IO.StreamWriter = null
  
positive.code:             xmlWriter.Flush()
              if AutoCloseXmlWriter || msg = FinishedMessage then closeWriter()
  
  let listeners = new Collections.Generic.List<ITraceListener>()
  let addXmlListener xmlOutputFile = listeners.Add(new NAntXmlTraceListener(xmlOutputFile))
  
  // register listeners
  listeners.Add defaultConsoleTraceListener
  if hasBuildParam "logfile" || buildServer = CCNet then addXmlListener xmlOutputFile
  
  let postMessage x = listeners.ForEach (fun listener -> listener.Write x)
negative.code: ﻿[<AutoOpen>]
  /// Defines default listeners for build output traces
  module Fake.TraceListener
  
  open System
  
  /// Defines Tracing information for TraceListeners
  type TraceData =
  | StartMessage
  | ImportantMessage of string
  | ErrorMessage  of string
  | LogMessage of string * bool
  | TraceMessage of string * bool
  | FinishedMessage 
  | OpenTag of string * string
  | CloseTag of string
  
  /// Defines a TraceListener interface
  type ITraceListener =
      abstract Write: TraceData -> unit
  
  /// A default color map which maps TracePriorities to ConsoleColors
  let colorMap traceData = 
      match traceData with
      | ImportantMessage _ -> ConsoleColor.Yellow
      | ErrorMessage _     -> ConsoleColor.Red
      | LogMessage _       -> ConsoleColor.Gray
  