An example on how to use SwaggerProvider: a type provider that automatically generates strongly-typed clients for openapi REST api's

swaggerprovider-demo.fsx

//https://fsprojects.github.io/SwaggerProvider/#/

(*
#r "nuget: SwaggerProvider, Version=2.0.0-beta9"
*)
open SwaggerProvider
open System
open System.Net.Http

type PetStore = OpenApiClientProvider<"https://petstore3.swagger.io/api/v3/openapi.json">
let baseUri = Uri("https://petstore3.swagger.io/api/v3/")
let bearerToken = "01832905-a2db-4caa-bdab-5818ef5ec491"

let httpClient = new HttpClient(BaseAddress = baseUri)
httpClient.DefaultRequestHeaders.Authorization <- Headers.AuthenticationHeaderValue("Bearer", bearerToken)
let client = PetStore.Client(httpClient)

let createdPet =
    client
        .AddPet(
            PetStore.Pet(
                id = Option.Some(123),
                name = (sprintf "Pet:%A" (Guid.NewGuid())),
                photoUrls = [||],
                status = "available"
            )
        )
        .Result

let retrieved =
    createdPet.Id
    |> Option.map (fun id -> client.GetPetById(id).Result)

printfn "Retrieved the newly created pet: %A" retrieved

let pets = client.FindPetsByStatus("available").Result

pets
|> Seq.rev
|> Seq.take 3
|> Seq.iter (fun p -> printfn "%A" p.Name)