anchor.diff:          Directories : WiXDir seq
   
           /// Nest Components in here
  -        Components : WiXComponent seq
  +        Components : WiXDirectoryComponent seq
   
           /// Build Number of product
           BuildNumber : string
  
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:     let parameters = WiXComponentRefDefaults |> setParams
      if parameters.Id = "" then 
          failwith "No parameter passed for component ref Id!"
      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 = 
      {
  