Example of retrieving a secret from an F# Azure Function App

AzureFunctionSecret.fs

namespace AzurefnSecret

open Microsoft.Azure.KeyVault
open Microsoft.IdentityModel.Clients.ActiveDirectory

module Example =
    let getSecret (appKeyDescription:string) (appKeyValue:string) (secretUrl:string) =
        async {
            use keyVault = new KeyVaultClient(fun authority resource (_:string) ->
                async {
                    let authContext = AuthenticationContext(authority)
                    let credential = ClientCredential (appKeyDescription, appKeyValue)
                    let! token = authContext.AcquireTokenAsync (resource, credential) |> Async.AwaitTask
                    return token.AccessToken
                } |> Async.StartAsTask)
            let! secret = keyVault.GetSecretAsync (secretUrl) |> Async.AwaitTask
            return secret.Value
        }