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