anchor.diff:                              Guid = "*"
                               Files = [file]
                               ServiceControls = []
  +                            ServiceInstalls = []
                           })
   
   /// Creates WiX component with directories and files from the given DirectoryInfo
  
positive.code:         failwith "No parameter passed for service control Id!"
      parameters
  
  /// Reference to a component for including it in a feature
  type WiXComponentRef =
      {
  
negative.code:         Guid : string
          Files : WiXFile seq
          ServiceControls : WiXServiceControl seq
          ServiceInstalls : WiXServiceInstall seq
      }
      member w.ToComponentRef() = generateComponentRef (fun f -> { f with Id = w.Id })
      override w.ToString() = sprintf "<Component Id=\"%s\" Guid=\"%s\">%s%s%s</Component>" 
                                  w.Id w.Guid 
                                  (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 =
  