anchor.diff:      let parameters = WiXComponentRefDefaults |> setParams
       if parameters.Id = "" then 
           failwith "No parameter passed for component ref Id!"
  -    parameters
  +    Some(parameters)
   
   type WiXDirectoryComponent = 
       | C of WiXComponent
       | D of WiXDir      
  +    member w.ToComponentRef() = 
  +        match w with
  +        | C c -> c.ToComponentRef()
  +        | D d -> None
  +    override w.ToString() =
  +          match w with
  +            | C c -> c.ToString()
  +            | D d -> d.ToString()
   /// Component which wraps files into logical components and which allows to 
   and WiXComponent = 
       {
  
positive.code:         NestedFeatures : Feature seq
  
          /// Components included in this feature
          Components : WiXComponentRef seq
      }
      override f.ToString() =
          let (|Empty|NotEmpty|) seq = if Seq.isEmpty seq then Empty else NotEmpty seq
  
          let rec ConcatAll feature (node : string) = 
              match feature.NestedFeatures with
              | Empty ->  "<Feature Id=\"" + feature.Id + "\" Title=\"" + feature.Title + "\" Level=\"" + feature.Level.ToString() + "\" Description=\"" + feature.Description + "\" Display=\"" + feature.Display.ToString() + "\" ConfigurableDirectory=\"INSTALLDIR\">" + Seq.fold(fun acc elem -> acc + elem.ToString()) "" feature.Components + "</Feature>"
              | NotEmpty list -> "<Feature Id=\"" + feature.Id + "\" Title=\"" + feature.Title + "\" Level=\"" + feature.Level.ToString() + "\" Description=\"" + feature.Description + "\" Display=\"" + feature.Display.ToString() + "\" ConfigurableDirectory=\"INSTALLDIR\">" + Seq.fold(fun acc elem -> acc + ConcatAll elem "") "" list + Seq.fold(fun acc elem -> acc + elem.ToString()) "" feature.Components  + "</Feature>"
          ConcatAll f ""
  
  /// Default values for creating WiX Feature
  
negative.code:         Directories : WiXDir seq
  
          /// Nest Components in here
          Components : WiXDirectoryComponent seq
  
          /// Build Number of product
          BuildNumber : string
  