Add some nice methods

[haf]

module Request =
  open System
  let path resource (r: Request) =
    let ub = UriBuilder r.url
    ub.Path <- resource
    { r with url = ub.Uri }
  let resource resource r =
    path resource r

  let method m r =
    { r with ``method`` = m }