如何在F＃Fable中登录Application Insights？

Question

I am developing a SAFE application in F#, and part of it is sending some logs to Application Insights in Azure. Server side logging is somewhat easy :

open Microsoft.ApplicationInsights
open Microsoft.ApplicationInsights.Extensibility

let getTelemetryClient() =
    let key = <key>
    TelemetryConfiguration.Active.InstrumentationKey <- key
    TelemetryClient()

let log (message : string) =
    let logger = (lazy getTelemetryClient()).Value
    logger.TrackTrace message
    logger.Flush()

Now I want to do something similar in the client side, in Fable. I have an AI key and I somehow need to send the data to Azure. The same code does not transpile to JS.

Answer 1

This can be achieved by means of dynamic programming in Fable.

1. Add AI JS dependency in package.json :

{
    ...
    "devDependencies": {
        ...
        "applicationinsights-js": "^1.0.20"
    }
}

2. Reflect it in webpack.config.js :

fsharpEntry: {
    "app": [
         ...
        "applicationinsights-js"
    ]
}

3. Set up logging (call this in the init phase of the app):

open Fable.Core.JsInterop
open Fable.Import.Browser

let setup() = 
    let key = <key>
    let config = createObj [ "instrumentationKey" ==> key ]
    window?appInsights?downloadAndSetup config

4. Log like this:

let log message = window?appInsights?trackTrace message

Maybe there are more adequate and/or type-safe ways, yet this works.