foo.fs

open BenchmarkDotNet.Attributes
open BenchmarkDotNet.Running
open FSharp.Control.Tasks.V2
open System.Threading.Tasks
open System.Net.Http
open System.Net
open System


type Benchmarks() =
    let httpClient = new HttpClient()

    [<Benchmark>]
    member this.Foo() : Task<unit> =
       task {
           let message = new HttpRequestMessage() 
           message.Method <- HttpMethod.Head
           message.RequestUri <- Uri("https://someurlthing.com")
           let! response = httpClient.SendAsync(message)
           if (response.StatusCode <> HttpStatusCode.OK) then failwith "oopsy"
           else return ()
       } 

[<EntryPoint>]
let main argv =
    BenchmarkRunner.Run<Benchmarks>() |> ignore
    0