FSharp.Json Union Discriminator as Field

fsharp-json-union-field-discriminator.fsx

#r "nuget: FSharp.Json"

open FSharp.Json

[<JsonUnion(Mode = UnionMode.CaseKeyDiscriminatorField, CaseKeyField="version")>]
type VersionedDto =
  | V0 of DtoV0
  | V1 of DtoV1
and DtoV0 = {
  Prop1: string
  Prop2: int
}
and DtoV1 = {
  Prop1: string
  Prop2: int
  ExtraProp: bool
}

let dtos = [
  V0 { Prop1 = "Hello"; Prop2 = 42}
  V1 { Prop1 = "Hello"; Prop2 = 42; ExtraProp = false}
]

let json = Json.serialize dtos
printfn "%s" json

let deserialized = Json.deserialize<VersionedDto list> json
printfn "%A" deserialized