HttpClientFactory and named HttpClient with F#

HttpClientFactory.fsx

#r "nuget: Microsoft.Extensions.Http, 6.0.0"

let factory =
    ServiceCollection()
        .AddHttpClient("dummy")
            .ConfigureHttpClient(fun c ->
                printfn "dummy configured"
                c.BaseAddress <- Uri "https://dummyjson.com"
                c.Timeout <- TimeSpan.FromMinutes 2.)
            .Services
        .BuildServiceProvider()
        .GetService<IHttpClientFactory>()

(*
There is no need to dispose of the HttpClient instances from HttpClientFactory.
Disposal will not actually do anything in this case
    because the factory manages the handler and connection lifetimes and not the HttpClient instances.
*)

let fetchPlaceHolder () =
    let client = factory.CreateClient()
    client.GetStringAsync "https://jsonplaceholder.typicode.com/todos/1"

let fetchDummy () =
    let client = factory.CreateClient "dummy"
    client.GetStringAsync "/todos/1"
        
fetchDummy().Result |> printfn "%s\n"
fetchPlaceHolder().Result |> printfn "%s\n"
fetchDummy().Result |> printfn "%s\n"