anchor.diff:                      "unhighlight" => T<unit> ^-> T<unit>
                   ]
   
  -        let Polygon = Type.New()
  -        let PolygonClass =
  +        let Polygon =
               Class "Microsoft.Maps.VenueMaps.Polygon"
  -            |=> Polygon
               |+> Instance
                   [
                       "bounds" =? LocationRect
  
positive.code:                     "waypoint" =? Waypoint
                  ]
  
          let RouteSelectorRenderEvent = Type.New()
          let RouteSelectorRenderEventClass =
              Class "Microsoft.Maps.Directions.RouteSelectorRenderEvent"
              |=> RouteSelectorRenderEvent
              |+> ConstantStrings RouteSelectorRenderEvent
                      ["afterRouteSelectorRender"; "beforeRouteSelectorRender"]
  
          let DirectionsStepRenderEvent = Type.New()
          let DirectionsStepRenderEventClass =
              Class "Microsoft.Maps.Directions.DirectionsStepRenderEvent"
              |=> DirectionsStepRenderEvent
              |+> ConstantStrings DirectionsStepRenderEvent
                      ["afterStepRender"; "beforeStepRender"]
  
          let RouteSummaryRenderEvent = Type.New()
          let RouteSummaryRenderEventClass =
              Class "Microsoft.Maps.Directions.RouteSummaryRenderEvent"
              |=> RouteSummaryRenderEvent
              |+> ConstantStrings RouteSummaryRenderEvent
                      ["afterSummaryRender"; "beforeSummaryRender"]
  
          let WaypointRenderEvent = Type.New()
          let WaypointRenderEventClass =
              Class "Microsoft.Maps.Directions.WaypointRenderEvent"
              |=> WaypointRenderEvent
              |+> ConstantStrings WaypointRenderEvent
                      ["afterWaypointRender"; "beforeWaypointRender"]
  
          let DirectionsErrorEvent = Type.New()
          let DirectionsErrorEventClass =
              Class "Microsoft.Maps.Directions.DirectionsErrorEvent"
              |=> DirectionsErrorEvent
              |+> ConstantStrings DirectionsErrorEvent
                      ["directionsError"]
  
          let DirectionsEvent = Type.New()
          let DirectionsEventClass =
              Class "Microsoft.Maps.Directions.DirectionsEvent"
              |=> DirectionsEvent
              |+> ConstantStrings DirectionsEvent
                      ["directionsUpdated"]
  
          let RouteSelectorEvent = Type.New()
          let RouteSelectorEventClass =
              Class "Microsoft.Maps.Directions.RouteSelectorEvent"
              |=> RouteSelectorEvent
              |+> ConstantStrings RouteSelectorEvent
                      ["mouseEnterRouteSelector"; "mouseLeaveRouteSelector"; "routeSelectorClicked"]
  
          let DirectionsStepEvent = Type.New()
          let DirectionsStepEventClass =
              Class "Microsoft.Maps.Directions.DirectionsStepEvent"
              |=> DirectionsStepEvent
              |+> ConstantStrings DirectionsStepEvent
                      ["itineraryStepClicked"; "mouseEnterStep"; "mouseLeaveStep"]
  
          let WaypointEvent = Type.New()
          let WaypointEventClass =
              Class "Microsoft.Maps.Directions.WaypointEvent"
              |=> WaypointEvent
              |+> ConstantStrings WaypointEvent
                      ["waypointAdded"; "waypointRemoved"; "changed"; "geocoded"; "reverseGeocoded"]
  
      module Traffic =
  
          let TrafficLayer = Type.New()
          let TrafficLayerClass =
              Class "Microsoft.Maps.Traffic.TrafficLayer"
              |=> TrafficLayer
              |+> Static [
                      Constructor Map
                  ]
  
negative.code:                     "timeWithTraffic" =? T<int>
                  ]
  
          let RouteIconType =
              Class "Microsoft.Maps.Directions.RouteIconType"
              |+> Constants TSelf ["none"; "other"; "auto"; "ferry"
                                   "walk"; "bus"; "train"; "airline"]
  
          let ManeuverType =
              Class "Microsoft.Maps.Directions.ManeuverType"
              |+> Constants TSelf ["none"; "unknown"; "transfer"; "wait"
                                   "takeTransit"; "walk"; "transitDepart"
                                   "transitArrive"]
  
          let TransitLine =
              Class "Microsoft.Maps.Directions.TransitLine"
              |+> Instance
                  [
                      "abbreviatedName" =? T<string>
  