为微软的Luis编写F#类型提供程序的好方法是什么？

dotnet add package FSharp.Data

{
  "luis_schema_version": "3.2.0",
  "versionId": "0.1",
  "name": "MyLUISModel",
  "desc": "",
  "culture": "en-us",
  "intents": [
    {
      "name": "Greeting"
    },
    {
      "name": "Goodbye"
    }
  ],
  "entities": [
    {
      "name": "Name",
      "roles": []
    }
  ]
}

open FSharp.Data

[<Literal>]
let LuisModelPath = "path/to/your/luis_model.json"

type LuisModel = JsonProvider<LuisModelPath>

type Intent =
    | Greeting
    | Goodbye

type Entity =
    | Name

let parseIntent intentName =
    match intentName with
    | "Greeting" -> Greeting
    | "Goodbye" -> Goodbye
    | _ -> failwith "Unknown intent"

let parseEntity entityName =
    match entityName with
    | "Name" -> Name
    | _ -> failwith "Unknown entity"

let luisResponse = """
{
  "query": "Hello, my name is John",
  "topScoringIntent": {
    "intent": "Greeting",
    "score": 0.98
  },
  "entities": [
    {
      "entity": "John",
      "type": "Name",
      "startIndex": 15,
      "endIndex": 19
    }
  ]
}
"""

let parsedResponse = LuisModel.Parse(luisResponse)

let intent = parseIntent parsedResponse.topScoringIntent.intent
let entities =
    parsedResponse.entities
    |> Array.map (fun e -> parseEntity e.type)

printfn "Intent: %A" intent
printfn "Entities: %A" entities