Another grand refactor (#150)

2025-10-10 22:48:40 +00:00 · 2024-05-30 20:34:53 +01:00
parent 94b88a4143
commit 81b7e5361d
14 changed files with 1138 additions and 1587 deletions
--- a/ConsumePlugin/GeneratedJson.fs
+++ b/ConsumePlugin/GeneratedJson.fs
@@ -13,7 +13,7 @@ namespace ConsumePlugin
 module InnerType =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : InnerType =
-        let Thing =
+        let arg_0 =
            (match node.[(Literals.something)] with
             | null ->
                 raise (
@@ -26,7 +26,7 @@ module InnerType =
                .GetValue<string> ()

        {
-            Thing = Thing
+            Thing = arg_0
        }
 namespace ConsumePlugin

@@ -36,7 +36,7 @@ namespace ConsumePlugin
 module JsonRecordType =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : JsonRecordType =
-        let F =
+        let arg_5 =
            (match node.["f"] with
             | null ->
                 raise (
@@ -49,7 +49,7 @@ module JsonRecordType =
            |> Seq.map (fun elt -> elt.AsValue().GetValue<int> ())
            |> Array.ofSeq

-        let E =
+        let arg_4 =
            (match node.["e"] with
             | null ->
                 raise (
@@ -62,7 +62,7 @@ module JsonRecordType =
            |> Seq.map (fun elt -> elt.AsValue().GetValue<string> ())
            |> Array.ofSeq

-        let D =
+        let arg_3 =
            InnerType.jsonParse (
                match node.["d"] with
                | null ->
@@ -74,7 +74,7 @@ module JsonRecordType =
                | v -> v
            )

-        let C =
+        let arg_2 =
            (match node.["hi"] with
             | null ->
                 raise (
@@ -87,7 +87,7 @@ module JsonRecordType =
            |> Seq.map (fun elt -> elt.AsValue().GetValue<int> ())
            |> List.ofSeq

-        let B =
+        let arg_1 =
            (match node.["another-thing"] with
             | null ->
                 raise (
@@ -99,7 +99,7 @@ module JsonRecordType =
                .AsValue()
                .GetValue<string> ()

-        let A =
+        let arg_0 =
            (match node.["a"] with
             | null ->
                 raise (
@@ -112,12 +112,12 @@ module JsonRecordType =
                .GetValue<int> ()

        {
-            A = A
-            B = B
-            C = C
-            D = D
-            E = E
-            F = F
+            A = arg_0
+            B = arg_1
+            C = arg_2
+            D = arg_3
+            E = arg_4
+            F = arg_5
        }
 namespace ConsumePlugin

@@ -129,9 +129,9 @@ module ToGetExtensionMethodJsonParseExtension =

        /// Parse from a JSON node.
        static member jsonParse (node : System.Text.Json.Nodes.JsonNode) : ToGetExtensionMethod =
-            let Whiskey = System.Numerics.BigInteger.Parse (node.["whiskey"].ToJsonString ())
+            let arg_20 = System.Numerics.BigInteger.Parse (node.["whiskey"].ToJsonString ())

-            let Victor =
+            let arg_19 =
                (match node.["victor"] with
                 | null ->
                     raise (
@@ -143,7 +143,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.Char> ()

-            let Uniform =
+            let arg_18 =
                (match node.["uniform"] with
                 | null ->
                     raise (
@@ -155,7 +155,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.Decimal> ()

-            let Tango =
+            let arg_17 =
                (match node.["tango"] with
                 | null ->
                     raise (
@@ -167,7 +167,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.SByte> ()

-            let Quebec =
+            let arg_16 =
                (match node.["quebec"] with
                 | null ->
                     raise (
@@ -179,7 +179,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.Byte> ()

-            let Papa =
+            let arg_15 =
                (match node.["papa"] with
                 | null ->
                     raise (
@@ -191,7 +191,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.Byte> ()

-            let Oscar =
+            let arg_14 =
                (match node.["oscar"] with
                 | null ->
                     raise (
@@ -203,7 +203,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.SByte> ()

-            let November =
+            let arg_13 =
                (match node.["november"] with
                 | null ->
                     raise (
@@ -215,7 +215,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.UInt16> ()

-            let Mike =
+            let arg_12 =
                (match node.["mike"] with
                 | null ->
                     raise (
@@ -227,7 +227,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.Int16> ()

-            let Lima =
+            let arg_11 =
                (match node.["lima"] with
                 | null ->
                     raise (
@@ -239,7 +239,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.UInt32> ()

-            let Kilo =
+            let arg_10 =
                (match node.["kilo"] with
                 | null ->
                     raise (
@@ -251,7 +251,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.Int32> ()

-            let Juliette =
+            let arg_9 =
                (match node.["juliette"] with
                 | null ->
                     raise (
@@ -263,7 +263,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.UInt32> ()

-            let India =
+            let arg_8 =
                (match node.["india"] with
                 | null ->
                     raise (
@@ -275,7 +275,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<int> ()

-            let Hotel =
+            let arg_7 =
                (match node.["hotel"] with
                 | null ->
                     raise (
@@ -287,7 +287,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.UInt64> ()

-            let Golf =
+            let arg_6 =
                (match node.["golf"] with
                 | null ->
                     raise (
@@ -299,7 +299,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.Int64> ()

-            let Foxtrot =
+            let arg_5 =
                (match node.["foxtrot"] with
                 | null ->
                     raise (
@@ -311,7 +311,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.Double> ()

-            let Echo =
+            let arg_4 =
                (match node.["echo"] with
                 | null ->
                     raise (
@@ -323,7 +323,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.Single> ()

-            let Delta =
+            let arg_3 =
                (match node.["delta"] with
                 | null ->
                     raise (
@@ -335,7 +335,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<System.Single> ()

-            let Charlie =
+            let arg_2 =
                (match node.["charlie"] with
                 | null ->
                     raise (
@@ -347,7 +347,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .AsValue()
                    .GetValue<float> ()

-            let Bravo =
+            let arg_1 =
                (match node.["bravo"] with
                 | null ->
                     raise (
@@ -360,7 +360,7 @@ module ToGetExtensionMethodJsonParseExtension =
                    .GetValue<string> ()
                |> System.Uri

-            let Alpha =
+            let arg_0 =
                (match node.["alpha"] with
                 | null ->
                     raise (
@@ -373,25 +373,25 @@ module ToGetExtensionMethodJsonParseExtension =
                    .GetValue<string> ()

            {
-                Alpha = Alpha
-                Bravo = Bravo
-                Charlie = Charlie
-                Delta = Delta
-                Echo = Echo
-                Foxtrot = Foxtrot
-                Golf = Golf
-                Hotel = Hotel
-                India = India
-                Juliette = Juliette
-                Kilo = Kilo
-                Lima = Lima
-                Mike = Mike
-                November = November
-                Oscar = Oscar
-                Papa = Papa
-                Quebec = Quebec
-                Tango = Tango
-                Uniform = Uniform
-                Victor = Victor
-                Whiskey = Whiskey
+                Alpha = arg_0
+                Bravo = arg_1
+                Charlie = arg_2
+                Delta = arg_3
+                Echo = arg_4
+                Foxtrot = arg_5
+                Golf = arg_6
+                Hotel = arg_7
+                India = arg_8
+                Juliette = arg_9
+                Kilo = arg_10
+                Lima = arg_11
+                Mike = arg_12
+                November = arg_13
+                Oscar = arg_14
+                Papa = arg_15
+                Quebec = arg_16
+                Tango = arg_17
+                Uniform = arg_18
+                Victor = arg_19
+                Whiskey = arg_20
            }
--- a/ConsumePlugin/GeneratedMock.fs
+++ b/ConsumePlugin/GeneratedMock.fs
@@ -19,9 +19,9 @@ type internal PublicTypeMock =
    /// An implementation where every method throws.
    static member Empty : PublicTypeMock =
        {
-            Mem1 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem2 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem3 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem1 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem2 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem3 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
        }

    interface IPublicType with
@@ -44,9 +44,9 @@ type public PublicTypeInternalFalseMock =
    /// An implementation where every method throws.
    static member Empty : PublicTypeInternalFalseMock =
        {
-            Mem1 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem2 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem3 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem1 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem2 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem3 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
        }

    interface IPublicTypeInternalFalse with
@@ -68,8 +68,8 @@ type internal InternalTypeMock =
    /// An implementation where every method throws.
    static member Empty : InternalTypeMock =
        {
-            Mem1 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem2 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem1 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem2 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
        }

    interface InternalType with
@@ -90,8 +90,8 @@ type private PrivateTypeMock =
    /// An implementation where every method throws.
    static member Empty : PrivateTypeMock =
        {
-            Mem1 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem2 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem1 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem2 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
        }

    interface PrivateType with
@@ -112,8 +112,8 @@ type private PrivateTypeInternalFalseMock =
    /// An implementation where every method throws.
    static member Empty : PrivateTypeInternalFalseMock =
        {
-            Mem1 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem2 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem1 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem2 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
        }

    interface PrivateTypeInternalFalse with
@@ -133,7 +133,7 @@ type internal VeryPublicTypeMock<'a, 'b> =
    /// An implementation where every method throws.
    static member Empty () : VeryPublicTypeMock<'a, 'b> =
        {
-            Mem1 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem1 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
        }

    interface VeryPublicType<'a, 'b> with
@@ -157,12 +157,12 @@ type internal CurriedMock<'a> =
    /// An implementation where every method throws.
    static member Empty () : CurriedMock<'a> =
        {
-            Mem1 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem2 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem3 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem4 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem5 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem6 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem1 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem2 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem3 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem4 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem5 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem6 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
        }

    interface Curried<'a> with
@@ -196,8 +196,8 @@ type internal TypeWithInterfaceMock =
    static member Empty : TypeWithInterfaceMock =
        {
            Dispose = (fun _ -> ())
-            Mem1 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
-            Mem2 = (fun x -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem1 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
+            Mem2 = (fun _ -> raise (System.NotImplementedException "Unimplemented mock function"))
        }

    interface TypeWithInterface with
--- a/ConsumePlugin/GeneratedPureGymDto.fs
+++ b/ConsumePlugin/GeneratedPureGymDto.fs
@@ -46,7 +46,7 @@ namespace PureGym
 module GymOpeningHours =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : GymOpeningHours =
-        let OpeningHours =
+        let arg_1 =
            (match node.["openingHours"] with
             | null ->
                 raise (
@@ -59,7 +59,7 @@ module GymOpeningHours =
            |> Seq.map (fun elt -> elt.AsValue().GetValue<string> ())
            |> List.ofSeq

-        let IsAlwaysOpen =
+        let arg_0 =
            (match node.["isAlwaysOpen"] with
             | null ->
                 raise (
@@ -72,8 +72,8 @@ module GymOpeningHours =
                .GetValue<bool> ()

        {
-            IsAlwaysOpen = IsAlwaysOpen
-            OpeningHours = OpeningHours
+            IsAlwaysOpen = arg_0
+            OpeningHours = arg_1
        }
 namespace PureGym

@@ -83,7 +83,7 @@ namespace PureGym
 module GymAccessOptions =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : GymAccessOptions =
-        let QrCodeAccess =
+        let arg_1 =
            (match node.["qrCodeAccess"] with
             | null ->
                 raise (
@@ -95,7 +95,7 @@ module GymAccessOptions =
                .AsValue()
                .GetValue<bool> ()

-        let PinAccess =
+        let arg_0 =
            (match node.["pinAccess"] with
             | null ->
                 raise (
@@ -108,8 +108,8 @@ module GymAccessOptions =
                .GetValue<bool> ()

        {
-            PinAccess = PinAccess
-            QrCodeAccess = QrCodeAccess
+            PinAccess = arg_0
+            QrCodeAccess = arg_1
        }
 namespace PureGym

@@ -119,7 +119,7 @@ namespace PureGym
 module GymLocation =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : GymLocation =
-        let Latitude =
+        let arg_1 =
            try
                (match node.["latitude"] with
                 | null ->
@@ -152,7 +152,7 @@ module GymLocation =
                else
                    reraise ()

-        let Longitude =
+        let arg_0 =
            try
                (match node.["longitude"] with
                 | null ->
@@ -186,8 +186,8 @@ module GymLocation =
                    reraise ()

        {
-            Longitude = Longitude
-            Latitude = Latitude
+            Longitude = arg_0
+            Latitude = arg_1
        }
 namespace PureGym

@@ -197,7 +197,7 @@ namespace PureGym
 module GymAddress =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : GymAddress =
-        let Postcode =
+        let arg_5 =
            (match node.["postcode"] with
             | null ->
                 raise (
@@ -209,12 +209,12 @@ module GymAddress =
                .AsValue()
                .GetValue<string> ()

-        let County =
+        let arg_4 =
            match node.["county"] with
            | null -> None
            | v -> v.AsValue().GetValue<string> () |> Some

-        let Town =
+        let arg_3 =
            (match node.["town"] with
             | null ->
                 raise (
@@ -226,17 +226,17 @@ module GymAddress =
                .AsValue()
                .GetValue<string> ()

-        let AddressLine3 =
+        let arg_2 =
            match node.["addressLine3"] with
            | null -> None
            | v -> v.AsValue().GetValue<string> () |> Some

-        let AddressLine2 =
+        let arg_1 =
            match node.["addressLine2"] with
            | null -> None
            | v -> v.AsValue().GetValue<string> () |> Some

-        let AddressLine1 =
+        let arg_0 =
            (match node.["addressLine1"] with
             | null ->
                 raise (
@@ -249,12 +249,12 @@ module GymAddress =
                .GetValue<string> ()

        {
-            AddressLine1 = AddressLine1
-            AddressLine2 = AddressLine2
-            AddressLine3 = AddressLine3
-            Town = Town
-            County = County
-            Postcode = Postcode
+            AddressLine1 = arg_0
+            AddressLine2 = arg_1
+            AddressLine3 = arg_2
+            Town = arg_3
+            County = arg_4
+            Postcode = arg_5
        }
 namespace PureGym

@@ -264,7 +264,7 @@ namespace PureGym
 module Gym =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : Gym =
-        let ReopenDate =
+        let arg_10 =
            (match node.["reopenDate"] with
             | null ->
                 raise (
@@ -276,7 +276,7 @@ module Gym =
                .AsValue()
                .GetValue<string> ()

-        let TimeZone =
+        let arg_9 =
            (match node.["timeZone"] with
             | null ->
                 raise (
@@ -288,7 +288,7 @@ module Gym =
                .AsValue()
                .GetValue<string> ()

-        let Location =
+        let arg_8 =
            GymLocation.jsonParse (
                match node.["location"] with
                | null ->
@@ -300,7 +300,7 @@ module Gym =
                | v -> v
            )

-        let AccessOptions =
+        let arg_7 =
            GymAccessOptions.jsonParse (
                match node.["accessOptions"] with
                | null ->
@@ -312,7 +312,7 @@ module Gym =
                | v -> v
            )

-        let GymOpeningHours =
+        let arg_6 =
            GymOpeningHours.jsonParse (
                match node.["gymOpeningHours"] with
                | null ->
@@ -324,7 +324,7 @@ module Gym =
                | v -> v
            )

-        let EmailAddress =
+        let arg_5 =
            (match node.["emailAddress"] with
             | null ->
                 raise (
@@ -336,7 +336,7 @@ module Gym =
                .AsValue()
                .GetValue<string> ()

-        let PhoneNumber =
+        let arg_4 =
            (match node.["phoneNumber"] with
             | null ->
                 raise (
@@ -348,7 +348,7 @@ module Gym =
                .AsValue()
                .GetValue<string> ()

-        let Address =
+        let arg_3 =
            GymAddress.jsonParse (
                match node.["address"] with
                | null ->
@@ -360,7 +360,7 @@ module Gym =
                | v -> v
            )

-        let Status =
+        let arg_2 =
            (match node.["status"] with
             | null ->
                 raise (
@@ -372,7 +372,7 @@ module Gym =
                .AsValue()
                .GetValue<int> ()

-        let Id =
+        let arg_1 =
            (match node.["id"] with
             | null ->
                 raise (
@@ -384,7 +384,7 @@ module Gym =
                .AsValue()
                .GetValue<int> ()

-        let Name =
+        let arg_0 =
            (match node.["name"] with
             | null ->
                 raise (
@@ -397,17 +397,17 @@ module Gym =
                .GetValue<string> ()

        {
-            Name = Name
-            Id = Id
-            Status = Status
-            Address = Address
-            PhoneNumber = PhoneNumber
-            EmailAddress = EmailAddress
-            GymOpeningHours = GymOpeningHours
-            AccessOptions = AccessOptions
-            Location = Location
-            TimeZone = TimeZone
-            ReopenDate = ReopenDate
+            Name = arg_0
+            Id = arg_1
+            Status = arg_2
+            Address = arg_3
+            PhoneNumber = arg_4
+            EmailAddress = arg_5
+            GymOpeningHours = arg_6
+            AccessOptions = arg_7
+            Location = arg_8
+            TimeZone = arg_9
+            ReopenDate = arg_10
        }
 namespace PureGym

@@ -419,7 +419,7 @@ module MemberJsonParseExtension =

        /// Parse from a JSON node.
        static member jsonParse (node : System.Text.Json.Nodes.JsonNode) : Member =
-            let MemberStatus =
+            let arg_14 =
                (match node.["memberStatus"] with
                 | null ->
                     raise (
@@ -431,7 +431,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<int> ()

-            let SuspendedReason =
+            let arg_13 =
                (match node.["suspendedReason"] with
                 | null ->
                     raise (
@@ -443,7 +443,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<int> ()

-            let MembershipLevel =
+            let arg_12 =
                (match node.["membershipLevel"] with
                 | null ->
                     raise (
@@ -455,7 +455,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<int> ()

-            let MembershipName =
+            let arg_11 =
                (match node.["membershipName"] with
                 | null ->
                     raise (
@@ -467,7 +467,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<string> ()

-            let Postcode =
+            let arg_10 =
                (match node.["postCode"] with
                 | null ->
                     raise (
@@ -479,7 +479,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<string> ()

-            let MobileNumber =
+            let arg_9 =
                (match node.["mobileNumber"] with
                 | null ->
                     raise (
@@ -491,7 +491,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<string> ()

-            let DateOfBirth =
+            let arg_8 =
                (match node.["dateofBirth"] with
                 | null ->
                     raise (
@@ -504,7 +504,7 @@ module MemberJsonParseExtension =
                    .GetValue<string> ()
                |> System.DateOnly.Parse

-            let GymAccessPin =
+            let arg_7 =
                (match node.["gymAccessPin"] with
                 | null ->
                     raise (
@@ -516,7 +516,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<string> ()

-            let EmailAddress =
+            let arg_6 =
                (match node.["emailAddress"] with
                 | null ->
                     raise (
@@ -528,7 +528,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<string> ()

-            let HomeGymName =
+            let arg_5 =
                (match node.["homeGymName"] with
                 | null ->
                     raise (
@@ -540,7 +540,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<string> ()

-            let HomeGymId =
+            let arg_4 =
                (match node.["homeGymId"] with
                 | null ->
                     raise (
@@ -552,7 +552,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<int> ()

-            let LastName =
+            let arg_3 =
                (match node.["lastName"] with
                 | null ->
                     raise (
@@ -564,7 +564,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<string> ()

-            let FirstName =
+            let arg_2 =
                (match node.["firstName"] with
                 | null ->
                     raise (
@@ -576,7 +576,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<string> ()

-            let CompoundMemberId =
+            let arg_1 =
                (match node.["compoundMemberId"] with
                 | null ->
                     raise (
@@ -588,7 +588,7 @@ module MemberJsonParseExtension =
                    .AsValue()
                    .GetValue<string> ()

-            let Id =
+            let arg_0 =
                (match node.["id"] with
                 | null ->
                     raise (
@@ -601,21 +601,21 @@ module MemberJsonParseExtension =
                    .GetValue<int> ()

            {
-                Id = Id
-                CompoundMemberId = CompoundMemberId
-                FirstName = FirstName
-                LastName = LastName
-                HomeGymId = HomeGymId
-                HomeGymName = HomeGymName
-                EmailAddress = EmailAddress
-                GymAccessPin = GymAccessPin
-                DateOfBirth = DateOfBirth
-                MobileNumber = MobileNumber
-                Postcode = Postcode
-                MembershipName = MembershipName
-                MembershipLevel = MembershipLevel
-                SuspendedReason = SuspendedReason
-                MemberStatus = MemberStatus
+                Id = arg_0
+                CompoundMemberId = arg_1
+                FirstName = arg_2
+                LastName = arg_3
+                HomeGymId = arg_4
+                HomeGymName = arg_5
+                EmailAddress = arg_6
+                GymAccessPin = arg_7
+                DateOfBirth = arg_8
+                MobileNumber = arg_9
+                Postcode = arg_10
+                MembershipName = arg_11
+                MembershipLevel = arg_12
+                SuspendedReason = arg_13
+                MemberStatus = arg_14
            }
 namespace PureGym

@@ -625,7 +625,7 @@ namespace PureGym
 module GymAttendance =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : GymAttendance =
-        let MaximumCapacity =
+        let arg_8 =
            (match node.["maximumCapacity"] with
             | null ->
                 raise (
@@ -637,7 +637,7 @@ module GymAttendance =
                .AsValue()
                .GetValue<int> ()

-        let LastRefreshedPeopleInClasses =
+        let arg_7 =
            (match node.["lastRefreshedPeopleInClasses"] with
             | null ->
                 raise (
@@ -650,7 +650,7 @@ module GymAttendance =
                .GetValue<string> ()
            |> System.DateTime.Parse

-        let LastRefreshed =
+        let arg_6 =
            (match node.["lastRefreshed"] with
             | null ->
                 raise (
@@ -663,7 +663,7 @@ module GymAttendance =
                .GetValue<string> ()
            |> System.DateTime.Parse

-        let AttendanceTime =
+        let arg_5 =
            (match node.["attendanceTime"] with
             | null ->
                 raise (
@@ -676,7 +676,7 @@ module GymAttendance =
                .GetValue<string> ()
            |> System.DateTime.Parse

-        let IsApproximate =
+        let arg_4 =
            (match node.["isApproximate"] with
             | null ->
                 raise (
@@ -688,12 +688,12 @@ module GymAttendance =
                .AsValue()
                .GetValue<bool> ()

-        let TotalPeopleSuffix =
+        let arg_3 =
            match node.["totalPeopleSuffix"] with
            | null -> None
            | v -> v.AsValue().GetValue<string> () |> Some

-        let TotalPeopleInClasses =
+        let arg_2 =
            (match node.["totalPeopleInClasses"] with
             | null ->
                 raise (
@@ -705,7 +705,7 @@ module GymAttendance =
                .AsValue()
                .GetValue<int> ()

-        let TotalPeopleInGym =
+        let arg_1 =
            (match node.["totalPeopleInGym"] with
             | null ->
                 raise (
@@ -717,7 +717,7 @@ module GymAttendance =
                .AsValue()
                .GetValue<int> ()

-        let Description =
+        let arg_0 =
            (match node.["description"] with
             | null ->
                 raise (
@@ -730,15 +730,15 @@ module GymAttendance =
                .GetValue<string> ()

        {
-            Description = Description
-            TotalPeopleInGym = TotalPeopleInGym
-            TotalPeopleInClasses = TotalPeopleInClasses
-            TotalPeopleSuffix = TotalPeopleSuffix
-            IsApproximate = IsApproximate
-            AttendanceTime = AttendanceTime
-            LastRefreshed = LastRefreshed
-            LastRefreshedPeopleInClasses = LastRefreshedPeopleInClasses
-            MaximumCapacity = MaximumCapacity
+            Description = arg_0
+            TotalPeopleInGym = arg_1
+            TotalPeopleInClasses = arg_2
+            TotalPeopleSuffix = arg_3
+            IsApproximate = arg_4
+            AttendanceTime = arg_5
+            LastRefreshed = arg_6
+            LastRefreshedPeopleInClasses = arg_7
+            MaximumCapacity = arg_8
        }
 namespace PureGym

@@ -748,7 +748,7 @@ namespace PureGym
 module MemberActivityDto =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : MemberActivityDto =
-        let LastRefreshed =
+        let arg_5 =
            (match node.["lastRefreshed"] with
             | null ->
                 raise (
@@ -761,7 +761,7 @@ module MemberActivityDto =
                .GetValue<string> ()
            |> System.DateTime.Parse

-        let IsEstimated =
+        let arg_4 =
            (match node.["isEstimated"] with
             | null ->
                 raise (
@@ -773,7 +773,7 @@ module MemberActivityDto =
                .AsValue()
                .GetValue<bool> ()

-        let TotalClasses =
+        let arg_3 =
            (match node.["totalClasses"] with
             | null ->
                 raise (
@@ -785,7 +785,7 @@ module MemberActivityDto =
                .AsValue()
                .GetValue<int> ()

-        let TotalVisits =
+        let arg_2 =
            (match node.["totalVisits"] with
             | null ->
                 raise (
@@ -797,7 +797,7 @@ module MemberActivityDto =
                .AsValue()
                .GetValue<int> ()

-        let AverageDuration =
+        let arg_1 =
            (match node.["averageDuration"] with
             | null ->
                 raise (
@@ -809,7 +809,7 @@ module MemberActivityDto =
                .AsValue()
                .GetValue<int> ()

-        let TotalDuration =
+        let arg_0 =
            (match node.["totalDuration"] with
             | null ->
                 raise (
@@ -822,12 +822,12 @@ module MemberActivityDto =
                .GetValue<int> ()

        {
-            TotalDuration = TotalDuration
-            AverageDuration = AverageDuration
-            TotalVisits = TotalVisits
-            TotalClasses = TotalClasses
-            IsEstimated = IsEstimated
-            LastRefreshed = LastRefreshed
+            TotalDuration = arg_0
+            AverageDuration = arg_1
+            TotalVisits = arg_2
+            TotalClasses = arg_3
+            IsEstimated = arg_4
+            LastRefreshed = arg_5
        }
 namespace PureGym

@@ -837,7 +837,7 @@ namespace PureGym
 module SessionsAggregate =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : SessionsAggregate =
-        let Duration =
+        let arg_2 =
            (match node.["Duration"] with
             | null ->
                 raise (
@@ -849,7 +849,7 @@ module SessionsAggregate =
                .AsValue()
                .GetValue<int> ()

-        let Visits =
+        let arg_1 =
            (match node.["Visits"] with
             | null ->
                 raise (
@@ -861,7 +861,7 @@ module SessionsAggregate =
                .AsValue()
                .GetValue<int> ()

-        let Activities =
+        let arg_0 =
            (match node.["Activities"] with
             | null ->
                 raise (
@@ -874,9 +874,9 @@ module SessionsAggregate =
                .GetValue<int> ()

        {
-            Activities = Activities
-            Visits = Visits
-            Duration = Duration
+            Activities = arg_0
+            Visits = arg_1
+            Duration = arg_2
        }
 namespace PureGym

@@ -886,7 +886,7 @@ namespace PureGym
 module VisitGym =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : VisitGym =
-        let Status =
+        let arg_2 =
            (match node.["Status"] with
             | null ->
                 raise (
@@ -898,7 +898,7 @@ module VisitGym =
                .AsValue()
                .GetValue<string> ()

-        let Name =
+        let arg_1 =
            (match node.["Name"] with
             | null ->
                 raise (
@@ -910,7 +910,7 @@ module VisitGym =
                .AsValue()
                .GetValue<string> ()

-        let Id =
+        let arg_0 =
            (match node.["Id"] with
             | null ->
                 raise (
@@ -923,9 +923,9 @@ module VisitGym =
                .GetValue<int> ()

        {
-            Id = Id
-            Name = Name
-            Status = Status
+            Id = arg_0
+            Name = arg_1
+            Status = arg_2
        }
 namespace PureGym

@@ -935,7 +935,7 @@ namespace PureGym
 module Visit =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : Visit =
-        let Gym =
+        let arg_3 =
            VisitGym.jsonParse (
                match node.["Gym"] with
                | null ->
@@ -947,7 +947,7 @@ module Visit =
                | v -> v
            )

-        let Duration =
+        let arg_2 =
            (match node.["Duration"] with
             | null ->
                 raise (
@@ -959,7 +959,7 @@ module Visit =
                .AsValue()
                .GetValue<int> ()

-        let StartTime =
+        let arg_1 =
            (match node.["StartTime"] with
             | null ->
                 raise (
@@ -972,7 +972,7 @@ module Visit =
                .GetValue<string> ()
            |> System.DateTime.Parse

-        let IsDurationEstimated =
+        let arg_0 =
            (match node.["IsDurationEstimated"] with
             | null ->
                 raise (
@@ -985,10 +985,10 @@ module Visit =
                .GetValue<bool> ()

        {
-            IsDurationEstimated = IsDurationEstimated
-            StartTime = StartTime
-            Duration = Duration
-            Gym = Gym
+            IsDurationEstimated = arg_0
+            StartTime = arg_1
+            Duration = arg_2
+            Gym = arg_3
        }
 namespace PureGym

@@ -998,7 +998,7 @@ namespace PureGym
 module SessionsSummary =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : SessionsSummary =
-        let ThisWeek =
+        let arg_1 =
            SessionsAggregate.jsonParse (
                match node.["ThisWeek"] with
                | null ->
@@ -1010,7 +1010,7 @@ module SessionsSummary =
                | v -> v
            )

-        let Total =
+        let arg_0 =
            SessionsAggregate.jsonParse (
                match node.["Total"] with
                | null ->
@@ -1023,8 +1023,8 @@ module SessionsSummary =
            )

        {
-            Total = Total
-            ThisWeek = ThisWeek
+            Total = arg_0
+            ThisWeek = arg_1
        }
 namespace PureGym

@@ -1034,7 +1034,7 @@ namespace PureGym
 module Sessions =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : Sessions =
-        let Visits =
+        let arg_1 =
            (match node.["Visits"] with
             | null ->
                 raise (
@@ -1047,7 +1047,7 @@ module Sessions =
            |> Seq.map (fun elt -> Visit.jsonParse elt)
            |> List.ofSeq

-        let Summary =
+        let arg_0 =
            SessionsSummary.jsonParse (
                match node.["Summary"] with
                | null ->
@@ -1060,8 +1060,8 @@ module Sessions =
            )

        {
-            Summary = Summary
-            Visits = Visits
+            Summary = arg_0
+            Visits = arg_1
        }
 namespace PureGym

@@ -1071,7 +1071,7 @@ namespace PureGym
 module UriThing =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : UriThing =
-        let SomeUri =
+        let arg_0 =
            (match node.["someUri"] with
             | null ->
                 raise (
@@ -1085,5 +1085,5 @@ module UriThing =
            |> System.Uri

        {
-            SomeUri = SomeUri
+            SomeUri = arg_0
        }
--- a/ConsumePlugin/GeneratedSerde.fs
+++ b/ConsumePlugin/GeneratedSerde.fs
@@ -191,7 +191,7 @@ module InnerTypeWithBothJsonParseExtension =

        /// Parse from a JSON node.
        static member jsonParse (node : System.Text.Json.Nodes.JsonNode) : InnerTypeWithBoth =
-            let ConcreteDict =
+            let arg_4 =
                (match node.["concreteDict"] with
                 | null ->
                     raise (
@@ -209,7 +209,7 @@ module InnerTypeWithBothJsonParseExtension =
                |> Seq.map System.Collections.Generic.KeyValuePair
                |> System.Collections.Generic.Dictionary

-            let Dict =
+            let arg_3 =
                (match node.["dict"] with
                 | null ->
                     raise (
@@ -226,7 +226,7 @@ module InnerTypeWithBothJsonParseExtension =
                )
                |> dict

-            let ReadOnlyDict =
+            let arg_2 =
                (match node.["readOnlyDict"] with
                 | null ->
                     raise (
@@ -248,7 +248,7 @@ module InnerTypeWithBothJsonParseExtension =
                )
                |> readOnlyDict

-            let Map =
+            let arg_1 =
                (match node.["map"] with
                 | null ->
                     raise (
@@ -265,7 +265,7 @@ module InnerTypeWithBothJsonParseExtension =
                )
                |> Map.ofSeq

-            let Thing =
+            let arg_0 =
                (match node.[("it's-a-me")] with
                 | null ->
                     raise (
@@ -279,11 +279,11 @@ module InnerTypeWithBothJsonParseExtension =
                |> System.Guid.Parse

            {
-                Thing = Thing
-                Map = Map
-                ReadOnlyDict = ReadOnlyDict
-                Dict = Dict
-                ConcreteDict = ConcreteDict
+                Thing = arg_0
+                Map = arg_1
+                ReadOnlyDict = arg_2
+                Dict = arg_3
+                ConcreteDict = arg_4
            }
 namespace ConsumePlugin

@@ -295,7 +295,7 @@ module JsonRecordTypeWithBothJsonParseExtension =

        /// Parse from a JSON node.
        static member jsonParse (node : System.Text.Json.Nodes.JsonNode) : JsonRecordTypeWithBoth =
-            let F =
+            let arg_5 =
                (match node.["f"] with
                 | null ->
                     raise (
@@ -308,7 +308,7 @@ module JsonRecordTypeWithBothJsonParseExtension =
                |> Seq.map (fun elt -> elt.AsValue().GetValue<int> ())
                |> Array.ofSeq

-            let E =
+            let arg_4 =
                (match node.["e"] with
                 | null ->
                     raise (
@@ -321,7 +321,7 @@ module JsonRecordTypeWithBothJsonParseExtension =
                |> Seq.map (fun elt -> elt.AsValue().GetValue<string> ())
                |> Array.ofSeq

-            let D =
+            let arg_3 =
                InnerTypeWithBoth.jsonParse (
                    match node.["d"] with
                    | null ->
@@ -333,7 +333,7 @@ module JsonRecordTypeWithBothJsonParseExtension =
                    | v -> v
                )

-            let C =
+            let arg_2 =
                (match node.["c"] with
                 | null ->
                     raise (
@@ -346,7 +346,7 @@ module JsonRecordTypeWithBothJsonParseExtension =
                |> Seq.map (fun elt -> elt.AsValue().GetValue<int> ())
                |> List.ofSeq

-            let B =
+            let arg_1 =
                (match node.["b"] with
                 | null ->
                     raise (
@@ -358,7 +358,7 @@ module JsonRecordTypeWithBothJsonParseExtension =
                    .AsValue()
                    .GetValue<string> ()

-            let A =
+            let arg_0 =
                (match node.["a"] with
                 | null ->
                     raise (
@@ -371,10 +371,10 @@ module JsonRecordTypeWithBothJsonParseExtension =
                    .GetValue<int> ()

            {
-                A = A
-                B = B
-                C = C
-                D = D
-                E = E
-                F = F
+                A = arg_0
+                B = arg_1
+                C = arg_2
+                D = arg_3
+                E = arg_4
+                F = arg_5
            }
--- a/ConsumePlugin/GeneratedVault.fs
+++ b/ConsumePlugin/GeneratedVault.fs
@@ -13,7 +13,7 @@ namespace ConsumePlugin
 module JwtVaultAuthResponse =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : JwtVaultAuthResponse =
-        let NumUses =
+        let arg_10 =
            (match node.["num_uses"] with
             | null ->
                 raise (
@@ -25,7 +25,7 @@ module JwtVaultAuthResponse =
                .AsValue()
                .GetValue<int> ()

-        let Orphan =
+        let arg_9 =
            (match node.["orphan"] with
             | null ->
                 raise (
@@ -37,7 +37,7 @@ module JwtVaultAuthResponse =
                .AsValue()
                .GetValue<bool> ()

-        let EntityId =
+        let arg_8 =
            (match node.["entity_id"] with
             | null ->
                 raise (
@@ -49,7 +49,7 @@ module JwtVaultAuthResponse =
                .AsValue()
                .GetValue<string> ()

-        let TokenType =
+        let arg_7 =
            (match node.["token_type"] with
             | null ->
                 raise (
@@ -61,7 +61,7 @@ module JwtVaultAuthResponse =
                .AsValue()
                .GetValue<string> ()

-        let Renewable =
+        let arg_6 =
            (match node.["renewable"] with
             | null ->
                 raise (
@@ -73,7 +73,7 @@ module JwtVaultAuthResponse =
                .AsValue()
                .GetValue<bool> ()

-        let LeaseDuration =
+        let arg_5 =
            (match node.["lease_duration"] with
             | null ->
                 raise (
@@ -85,7 +85,7 @@ module JwtVaultAuthResponse =
                .AsValue()
                .GetValue<int> ()

-        let IdentityPolicies =
+        let arg_4 =
            (match node.["identity_policies"] with
             | null ->
                 raise (
@@ -98,7 +98,7 @@ module JwtVaultAuthResponse =
            |> Seq.map (fun elt -> elt.AsValue().GetValue<string> ())
            |> List.ofSeq

-        let TokenPolicies =
+        let arg_3 =
            (match node.["token_policies"] with
             | null ->
                 raise (
@@ -111,7 +111,7 @@ module JwtVaultAuthResponse =
            |> Seq.map (fun elt -> elt.AsValue().GetValue<string> ())
            |> List.ofSeq

-        let Policies =
+        let arg_2 =
            (match node.["policies"] with
             | null ->
                 raise (
@@ -124,7 +124,7 @@ module JwtVaultAuthResponse =
            |> Seq.map (fun elt -> elt.AsValue().GetValue<string> ())
            |> List.ofSeq

-        let Accessor =
+        let arg_1 =
            (match node.["accessor"] with
             | null ->
                 raise (
@@ -136,7 +136,7 @@ module JwtVaultAuthResponse =
                .AsValue()
                .GetValue<string> ()

-        let ClientToken =
+        let arg_0 =
            (match node.["client_token"] with
             | null ->
                 raise (
@@ -149,17 +149,17 @@ module JwtVaultAuthResponse =
                .GetValue<string> ()

        {
-            ClientToken = ClientToken
-            Accessor = Accessor
-            Policies = Policies
-            TokenPolicies = TokenPolicies
-            IdentityPolicies = IdentityPolicies
-            LeaseDuration = LeaseDuration
-            Renewable = Renewable
-            TokenType = TokenType
-            EntityId = EntityId
-            Orphan = Orphan
-            NumUses = NumUses
+            ClientToken = arg_0
+            Accessor = arg_1
+            Policies = arg_2
+            TokenPolicies = arg_3
+            IdentityPolicies = arg_4
+            LeaseDuration = arg_5
+            Renewable = arg_6
+            TokenType = arg_7
+            EntityId = arg_8
+            Orphan = arg_9
+            NumUses = arg_10
        }
 namespace ConsumePlugin

@@ -169,7 +169,7 @@ namespace ConsumePlugin
 module JwtVaultResponse =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : JwtVaultResponse =
-        let Auth =
+        let arg_4 =
            JwtVaultAuthResponse.jsonParse (
                match node.["auth"] with
                | null ->
@@ -181,7 +181,7 @@ module JwtVaultResponse =
                | v -> v
            )

-        let LeaseDuration =
+        let arg_3 =
            (match node.["lease_duration"] with
             | null ->
                 raise (
@@ -193,7 +193,7 @@ module JwtVaultResponse =
                .AsValue()
                .GetValue<int> ()

-        let Renewable =
+        let arg_2 =
            (match node.["renewable"] with
             | null ->
                 raise (
@@ -205,7 +205,7 @@ module JwtVaultResponse =
                .AsValue()
                .GetValue<bool> ()

-        let LeaseId =
+        let arg_1 =
            (match node.["lease_id"] with
             | null ->
                 raise (
@@ -217,7 +217,7 @@ module JwtVaultResponse =
                .AsValue()
                .GetValue<string> ()

-        let RequestId =
+        let arg_0 =
            (match node.["request_id"] with
             | null ->
                 raise (
@@ -230,11 +230,11 @@ module JwtVaultResponse =
                .GetValue<string> ()

        {
-            RequestId = RequestId
-            LeaseId = LeaseId
-            Renewable = Renewable
-            LeaseDuration = LeaseDuration
-            Auth = Auth
+            RequestId = arg_0
+            LeaseId = arg_1
+            Renewable = arg_2
+            LeaseDuration = arg_3
+            Auth = arg_4
        }
 namespace ConsumePlugin

@@ -244,7 +244,7 @@ namespace ConsumePlugin
 module JwtSecretResponse =
    /// Parse from a JSON node.
    let jsonParse (node : System.Text.Json.Nodes.JsonNode) : JwtSecretResponse =
-        let Data8 =
+        let arg_11 =
            (match node.["data8"] with
             | null ->
                 raise (
@@ -262,7 +262,7 @@ module JwtSecretResponse =
            |> Seq.map System.Collections.Generic.KeyValuePair
            |> System.Collections.Generic.Dictionary

-        let Data7 =
+        let arg_10 =
            (match node.["data7"] with
             | null ->
                 raise (
@@ -279,7 +279,7 @@ module JwtSecretResponse =
            )
            |> Map.ofSeq

-        let Data6 =
+        let arg_9 =
            (match node.["data6"] with
             | null ->
                 raise (
@@ -296,7 +296,7 @@ module JwtSecretResponse =
            )
            |> dict

-        let Data5 =
+        let arg_8 =
            (match node.["data5"] with
             | null ->
                 raise (
@@ -313,7 +313,7 @@ module JwtSecretResponse =
            )
            |> readOnlyDict

-        let Data4 =
+        let arg_7 =
            (match node.["data4"] with
             | null ->
                 raise (
@@ -330,7 +330,7 @@ module JwtSecretResponse =
            )
            |> Map.ofSeq

-        let Data3 =
+        let arg_6 =
            (match node.["data3"] with
             | null ->
                 raise (
@@ -348,7 +348,7 @@ module JwtSecretResponse =
            |> Seq.map System.Collections.Generic.KeyValuePair
            |> System.Collections.Generic.Dictionary

-        let Data2 =
+        let arg_5 =
            (match node.["data2"] with
             | null ->
                 raise (
@@ -365,7 +365,7 @@ module JwtSecretResponse =
            )
            |> dict

-        let Data =
+        let arg_4 =
            (match node.["data"] with
             | null ->
                 raise (
@@ -382,7 +382,7 @@ module JwtSecretResponse =
            )
            |> readOnlyDict

-        let LeaseDuration =
+        let arg_3 =
            (match node.["lease_duration"] with
             | null ->
                 raise (
@@ -394,7 +394,7 @@ module JwtSecretResponse =
                .AsValue()
                .GetValue<int> ()

-        let Renewable =
+        let arg_2 =
            (match node.["renewable"] with
             | null ->
                 raise (
@@ -406,7 +406,7 @@ module JwtSecretResponse =
                .AsValue()
                .GetValue<bool> ()

-        let LeaseId =
+        let arg_1 =
            (match node.["lease_id"] with
             | null ->
                 raise (
@@ -418,7 +418,7 @@ module JwtSecretResponse =
                .AsValue()
                .GetValue<string> ()

-        let RequestId =
+        let arg_0 =
            (match node.["request_id"] with
             | null ->
                 raise (
@@ -431,18 +431,18 @@ module JwtSecretResponse =
                .GetValue<string> ()

        {
-            RequestId = RequestId
-            LeaseId = LeaseId
-            Renewable = Renewable
-            LeaseDuration = LeaseDuration
-            Data = Data
-            Data2 = Data2
-            Data3 = Data3
-            Data4 = Data4
-            Data5 = Data5
-            Data6 = Data6
-            Data7 = Data7
-            Data8 = Data8
+            RequestId = arg_0
+            LeaseId = arg_1
+            Renewable = arg_2
+            LeaseDuration = arg_3
+            Data = arg_4
+            Data2 = arg_5
+            Data3 = arg_6
+            Data4 = arg_7
+            Data5 = arg_8
+            Data6 = arg_9
+            Data7 = arg_10
+            Data8 = arg_11
        }

 namespace ConsumePlugin