anchor.diff:        req.Name <- id;
         let resp = proxy.Execute(req) :?> RetrieveRelationshipResponse
         add_solution_component proxy sol_id resp.RelationshipMetadata.MetadataId.Value SolutionComponent.EntityRelationship);
  -  addElementToTemp "option set" output
  -    dev_node prod_node 
  -    "/ImportExportXml/optionsets/optionset"
  +  AddEntityDataToSolution "option set" "/ImportExportXml/optionsets/optionset"
       (Attribute "Name")
       (AttributeNamedItem "localizedName")
       NoExtra
  
positive.code:             resp.EntityMetadata.Attributes
              |> Array.find (fun a -> a.SchemaName = id)
              |> fun a -> add_entity_component proxy sol_id a.MetadataId.Value EntityComponent.Attribute);
          addElementToTemp "form" output
            dev_ent prod_ent 
            "FormXml/forms/systemform"
            (Node "formid")
            LocalizedNameDescription
            NoExtra
            (fun id -> 
              add_entity_component proxy sol_id (Guid.Parse id) EntityComponent.Form);
          addElementToTemp "view" output
            dev_ent prod_ent 
            "SavedQueries/savedqueries/savedquery"
            (Node "savedqueryid")
            LocalizedNameDescription
            NoExtra
            (fun id -> 
              add_entity_component proxy sol_id (Guid.Parse id) EntityComponent.View);
          addElementToTemp "chart" output
            dev_ent prod_ent 
            "Visualizations/visualization"
            (Node "savedqueryvisualizationid")
            LocalizedNameDescription
            NoExtra
            (fun id -> 
              add_entity_component proxy sol_id (Guid.Parse id) EntityComponent.Chart);
      )
    addElementToTemp "role" output
      dev_node prod_node 
      "/ImportExportXml/Roles/Role"
      (Attribute "id")
      (AttributeNamedItem "name")
      NoExtra
      (fun id -> 
        add_solution_component proxy sol_id (Guid.Parse id) SolutionComponent.Role);
    addElementToTemp "workflow" output
      dev_node prod_node 
      "/ImportExportXml/Workflows/Workflow"
      (Attribute "WorkflowId")
      (AttributeNamedItem "Name")
      WorkflowGuidReplace
      (fun id -> 
        add_solution_component proxy sol_id (Guid.Parse id) SolutionComponent.Workflow);
    addElementToTemp "field security profile" output
      dev_node prod_node 
      "/ImportExportXml/FieldSecurityProfiles/FieldSecurityProfile"
      (Attribute "fieldsecurityprofileid")
      (AttributeNamedItem "name")
      NoExtra
      (fun id -> 
        add_solution_component proxy sol_id (Guid.Parse id) SolutionComponent.FieldSecurityProfile);
    addElementToTemp "entity relationships" output
      dev_node prod_node 
      "/ImportExportXml/EntityRelationships/EntityRelationship"
      (Attribute "Name")
      (AttributeNamedItem "Name")
      NoExtra
  
negative.code:       req.Name <- id;
        let resp = proxy.Execute(req) :?> RetrieveOptionSetResponse
        add_solution_component proxy sol_id resp.OptionSetMetadata.MetadataId.Value SolutionComponent.OptionSet);
    AddEntityDataToSolution "dashboard" "/ImportExportXml/Dashboards/Dashboard"
      (Node "FormId")
      LocalizedNameDescription
      NoExtra
      (fun id -> 
        add_solution_component proxy sol_id (Guid.Parse id) SolutionComponent.Dashboard);
    AddEntityDataToSolution "web resource" "/ImportExportXml/WebResources/WebResource"
      (Node "WebResourceId")
      InnerTextDisplayName
      WebResourceByteDiff
  