anchor.diff:      let create' = 
         create
         |> Set.toArray
  -      |> Array.Parallel.map (fun x -> 
  +      |> Array.Parallel.map 
  +           (fun x -> 
              localResourceToWebResource ((location, x) ||> fullpath) prefix 
                solutionName log)
         |> Array.choose (fun x -> id x)
  
positive.code:              let guid = CrmData.CRUD.create p' y pc
               let msg = sprintf "%s: (%O,%s) was created" y.LogicalName guid yrn
               log.WriteLine(LogLevel.Verbose, msg)
             | WebResourceAction.Update -> 
               CrmData.CRUD.update p' y |> ignore
               let msg = sprintf "%s: (%O,%s) was updated" yrn y.Id yrn
               log.WriteLine(LogLevel.Verbose, msg)
             | WebResourceAction.Delete -> 
               CrmData.CRUD.delete p' y.LogicalName y.Id |> ignore
               let msg = sprintf "%s: (%O,%s) was deleted" y.LogicalName y.Id yrn
               log.WriteLine(LogLevel.Verbose, msg)
           with ex -> log.WriteLine(LogLevel.Error, ex.Message))
      match create'.Length, delete'.Length, update'.Length with
      | (0, 0, 0) -> ()
      | _ -> 
        log.WriteLine(LogLevel.Verbose, @"Publishing changes to the solution")
  
        CrmData.CRUD.publish p
  
        log.WriteLine
          (LogLevel.Verbose, @"The changes were successfully published")
  
negative.code:       yield! update'
      }
      |> Seq.toArray
      |> Array.forall (fun (x, y) -> 
           use p' = ServiceProxy.getOrganizationServiceProxy m tc
           let yrn = y.Attributes.["name"] :?> string
           try 
  