anchor.diff:        directoryInfo
           |> subDirectories
           |> Seq.map (wixDir fileFilter true)
  -        |> separated ""
  +        |> toLines
   
       let files =
         directoryInfo
           |> filesInDir
           |> Seq.filter fileFilter
           |> Seq.map wixFile
  -        |> separated ""
  +        |> toLines
   
       let compo =
         if files = "" then "" else
  
positive.code: let getFilesAsWiXString files =
      files
        |> Seq.map (fileInfo >> wixFile)
        |> separated " "
  
  /// Creates recursive WiX directory and file tags from the given DirectoryInfo
  let rec wixDir fileFilter asSubDir (directoryInfo:DirectoryInfo) =
  
negative.code:       directoryInfo
          |> subDirectories
          |> Seq.map wixComponentRefs
          |> toLines
  
      if (filesInDir directoryInfo).Length > 0 then sprintf "%s<ComponentRef Id=\"%s\"/>" compos directoryInfo.Name else compos
  
  