F# Minimal Web Api with HTTPS certificate

gistfile1.txt

open System
open System.IO
open System.Net
open System.Security.Cryptography.X509Certificates
open Microsoft.AspNetCore.Builder
open Microsoft.AspNetCore.Connections
open Microsoft.Extensions.Hosting
open Microsoft.AspNetCore.Hosting;

let private loadCert (_: ConnectionContext) (_: string) : X509Certificate2 =
    let cert = Path.Combine(AppContext.BaseDirectory, "wwwroot", "certs", "certificate.pem")
    let key = Path.Combine(AppContext.BaseDirectory, "wwwroot", "certs", "key.pem")
    X509Certificate2.CreateFromPemFile(cert, key)

[<EntryPoint>]
let main args =
    let builder = WebApplication.CreateBuilder(args)
    
    builder.WebHost.UseUrls("https://*:443") |> ignore
    builder.WebHost.UseSetting("https_port", "443") |> ignore
    
    builder.WebHost.ConfigureKestrel(fun serverOptions ->
        serverOptions.Listen(IPAddress.Any, 443, fun listenOptions -> (
            listenOptions.UseHttps(fun httpsOptions ->(
                httpsOptions.ServerCertificateSelector <- loadCert
                )) |> ignore
            ))) |> ignore
    
    let app = builder.Build()

    app.MapGet("/", Func<string>(fun () -> "Hello World with https")) |> ignore

    app.Run()

    0