BuildURL.fs

BuildURL.fs

        let url =
            let builder = new UriBuilder("https://www.example.com")
            // let values = HttpUtility.ParseQueryString(builder.Query)

            builder.Query <-
                set [("key1", "value1"); ("key2", "value2")]
                |> Set.map (fun (k, v) -> sprintf "%s=%s" <| Uri.EscapeDataString(k) <| Uri.EscapeDataString(v))
                |> String.concat "&"

            builder.ToString()