anchor.diff:              dir.Attributes <- dir.Attributes &&& (~~~FileAttributes.ReadOnly)  
   
   /// Sets all files in the directory readonly 
  -let SetDirReadOnly readOnly (dir:DirectoryInfo) =
  +let SetDirReadOnly readOnly dir =
       recursively (setDirectoryReadOnly readOnly) (fun file -> file.IsReadOnly <- readOnly) dir
     
   /// Sets all files in the directory readonly 
  
positive.code:   
      let targetName = target @@ relative
      let target = new FileInfo(targetName)
      if not target.Directory.Exists then
          target.Directory.Create()
      logVerbosefn "Copy %s to %s" file targetName
      fi.CopyTo(targetName,true) |> ignore    
  
  
negative.code:               targetFI.Attributes <- FileAttributes.Normal
                fi.CopyTo(targetName,true) |> ignore
          else
              fi.CopyTo(targetName) |> ignore)
                 
  
  /// Copies the files to the target - Alias for Copy
  