anchor.diff:      log.Verbose "Solution name '%s' from solution.xml differs from solutionName argument: '%s'" zipSolutionName solutionName
       log.Verbose "Using '%s'" zipSolutionName
       zipSolutionName
  -    
  -      
   
   // Fetches the entity of views in a packaged solution file from an exported 
   // solution
  
positive.code:   | _ -> 
      diff
      |> Set.toSeq
      |> subset target
      |> Seq.map( fun (x,_) ->
        CrmDataInternal.Entities.updateStateReq ln x 0 1 :> OrganizationRequest )
      |> Seq.toArray
  
negative.code:   getAttribute key x :?> OptionSetValue
    |> fun e -> e.Value
  
  let takeName = snd
  let takeGuid (inp: (Guid*string)) = inp |> fst |> fun x -> x.ToString()
  
  // Returns the solutionComponents in a sequence based on the a list of component names
  let lookup (solutionComponents:seq<Guid*String>) take solutionComponentNames= 
    solutionComponentNames 
    |> Seq.map(fun name -> 
      Seq.find(fun comp -> take comp = name) solutionComponents)
    
  let getEntityIds (entities: seq<Entity>) =
    entities
    |> Seq.map(fun r -> r.Id, getName r)
  
  let getSolutionNameFromSolution solutionName (archive: ZipArchive) (log:ConsoleLogger) =
    log.Verbose "Retrieving solution.xml from solution package"
  