anchor.diff:      }
   
     let delete (i:Identity) (id:string) (entity:'q) =
  -    let name = entity.GetType().Name
  +    let name = entity.GetType() |> findEntityName
       let uri = (Config.BuildUri "https://%s.salesforce.com/services/data/v20.0/sobjects/").ToString() + name + "/" + id + "/"
       async {
         let f = 
  
positive.code:       }
  
    open OAuth
  
    let get (i:Identity) (uri:Uri) =
      async {
  
negative.code:     }
  
    let update (i:Identity) (id:string) (entity:'q) =
      let name = entity.GetType() |> findEntityName
      let uri = (Config.BuildUri "https://%s.salesforce.com/services/data/v20.0/sobjects/").ToString() + name + "/" + id + "/"
      async {
        let f = 
  