SerializationAndDeserialization.fs

namespace ConsumePlugin

open System
open System.Collections.Generic
open System.Text.Json.Serialization

[<WoofWare.Myriad.Plugins.JsonParse true>]
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
type InnerTypeWithBoth =
    {
        [<JsonPropertyName("it's-a-me")>]
        Thing : Guid
        Map : Map<string, Uri>
        ReadOnlyDict : IReadOnlyDictionary<string, char list>
        Dict : IDictionary<Uri, bool>
        ConcreteDict : Dictionary<string, InnerTypeWithBoth>
    }

[<WoofWare.Myriad.Plugins.JsonParse true>]
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
type SomeEnum =
    | Blah = 1
    | Thing = 0

[<Measure>]
type measure

[<WoofWare.Myriad.Plugins.JsonParse true>]
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
type JsonRecordTypeWithBoth =
    {
        A : int
        B : string
        C : int list
        D : InnerTypeWithBoth
        E : string array
        Arr : int[]
        Byte : byte<measure>
        Sbyte : sbyte<measure>
        I : int<measure>
        I32 : int32<measure>
        I64 : int64<measure>
        U : uint<measure>
        U32 : uint32<measure>
        U64 : uint64<measure>
        F : float<measure>
        F32 : float32<measure>
        Single : single<measure>
        IntMeasureOption : int<measure> option
        IntMeasureNullable : int<measure> Nullable
        Enum : SomeEnum
        Timestamp : DateTimeOffset
        Unit : unit
    }

[<WoofWare.Myriad.Plugins.JsonSerialize true>]
[<WoofWare.Myriad.Plugins.JsonParse true>]
type FirstDu =
    | EmptyCase
    | Case1 of data : string
    | Case2 of record : JsonRecordTypeWithBoth * i : int

[<WoofWare.Myriad.Plugins.JsonParse true>]
[<WoofWare.Myriad.Plugins.JsonSerialize true>]
type HeaderAndValue =
    {
        Header : string
        Value : string
    }

[<WoofWare.Myriad.Plugins.JsonSerialize true>]
[<WoofWare.Myriad.Plugins.JsonParse true>]
type Foo =
    {
        Message : HeaderAndValue option
    }

[<WoofWare.Myriad.Plugins.JsonSerialize true>]
[<WoofWare.Myriad.Plugins.JsonParse true>]
type CollectRemaining =
    {
        Message : HeaderAndValue option
        [<JsonExtensionData>]
        Rest : Dictionary<string, System.Text.Json.Nodes.JsonNode>
    }

[<WoofWare.Myriad.Plugins.JsonSerialize true>]
[<WoofWare.Myriad.Plugins.JsonParse true>]
type OuterCollectRemaining =
    {
        [<JsonExtensionData>]
        Others : Dictionary<string, int>
        Remaining : CollectRemaining
    }