anchor.diff:          | Some qs -> Map.map (fun _ value -> toJson props.converter value) qs
           | None -> Map.empty
           |> makeUrl [props.couchUrl; props.databaseName; request.path]
  +
  +    printfn "URL is %s" url
   
       let method = 
           match method with 
  
positive.code:     | :? DavenportException as exn -> exn 
      | _ -> raise exn
  
  let (|StartsWithLocalhost|_|) (s: string) = 
      match s.StartsWith("localhost", StringComparison.OrdinalIgnoreCase) with
      | true -> Some s
      | false ->None
  
  let makeUrl pathSegments (querystring: Map<string, string>) = 
      let rec combinePaths (remaining: string list) output = 
          match remaining with 
  
negative.code: 
      let ub = 
          match String.Join("/", combinePaths pathSegments []) with 
          | StartsWithProtocol s -> s
          | s -> sprintf "%s%s%s" Uri.UriSchemeHttp Uri.SchemeDelimiter s
          |> System.UriBuilder
          
      ub.Query <- 
  