anchor.diff:      parameters
   
   /// WiX Directories define a logical directory which can include components and files
  -type WiXDir = 
  -    {
  -        Id : string
  -        Name : string
  -        Files : WiXFile seq
  -        Components : WiXComponent seq
  -    }
  -    override d.ToString() = sprintf "<Direcotry Id=\"%s\" Name=\"%s\>%s%s</Directory>"
  -                                d.Id d.Name (Seq.fold(fun acc elem -> acc + elem.ToString()) "" d.Files) (Seq.fold(fun acc elem -> acc + elem.ToString()) "" d.Components)
  +
   
   /// Defaults for directories
   let WiXDirDefaults = 
  
positive.code:                                 (Seq.fold(fun acc elem -> acc + elem.ToString()) "" w.Files) 
                                  (Seq.fold(fun acc elem -> acc + elem.ToString()) "" w.ServiceControls)
                                  (Seq.fold(fun acc elem -> acc + elem.ToString()) "" w.ServiceInstalls)
  
  /// Defaults for component
  let WiXComponentDefaults =
  
negative.code:         failwith "No parameter passed for component ref Id!"
      parameters
  
  type WiXDirectoryComponent = 
      | C of WiXComponent
      | D of WiXDir      
  /// Component which wraps files into logical components and which allows to 
  and WiXComponent = 
      {
          Id : string
          Guid : string
  