//------------------------------------------------------------------------------ // This code was generated by myriad. // Changes to this file will be lost when the code is regenerated. //------------------------------------------------------------------------------ namespace PureGym open System open System.Text.Json.Serialization /// Module containing JSON serializing extension members for the Member type [] module MemberJsonSerializeExtension = /// Extension methods for JSON parsing type Member with /// Serialize to a JSON node static member toJsonNode (input : Member) : System.Text.Json.Nodes.JsonNode = let node = System.Text.Json.Nodes.JsonObject () do node.Add ("id", System.Text.Json.Nodes.JsonValue.Create input.Id) node.Add ("compoundMemberId", System.Text.Json.Nodes.JsonValue.Create input.CompoundMemberId) node.Add ("firstName", System.Text.Json.Nodes.JsonValue.Create input.FirstName) node.Add ("lastName", System.Text.Json.Nodes.JsonValue.Create input.LastName) node.Add ("homeGymId", System.Text.Json.Nodes.JsonValue.Create input.HomeGymId) node.Add ("homeGymName", System.Text.Json.Nodes.JsonValue.Create input.HomeGymName) node.Add ("emailAddress", System.Text.Json.Nodes.JsonValue.Create input.EmailAddress) node.Add ("gymAccessPin", System.Text.Json.Nodes.JsonValue.Create input.GymAccessPin) node.Add ("dateofBirth", System.Text.Json.Nodes.JsonValue.Create input.DateOfBirth) node.Add ("mobileNumber", System.Text.Json.Nodes.JsonValue.Create input.MobileNumber) node.Add ("postCode", System.Text.Json.Nodes.JsonValue.Create input.Postcode) node.Add ("membershipName", System.Text.Json.Nodes.JsonValue.Create input.MembershipName) node.Add ("membershipLevel", System.Text.Json.Nodes.JsonValue.Create input.MembershipLevel) node.Add ("suspendedReason", System.Text.Json.Nodes.JsonValue.Create input.SuspendedReason) node.Add ("memberStatus", System.Text.Json.Nodes.JsonValue.Create input.MemberStatus) node :> _ namespace PureGym /// Module containing JSON parsing methods for the GymOpeningHours type [] module GymOpeningHours = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : GymOpeningHours = let arg_1 = (match node.["openingHours"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("openingHours") ) ) | v -> v) .AsArray () |> Seq.map (fun elt -> elt.AsValue().GetValue ()) |> List.ofSeq let arg_0 = (match node.["isAlwaysOpen"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("isAlwaysOpen") ) ) | v -> v) .AsValue() .GetValue () { IsAlwaysOpen = arg_0 OpeningHours = arg_1 } namespace PureGym /// Module containing JSON parsing methods for the GymAccessOptions type [] module GymAccessOptions = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : GymAccessOptions = let arg_1 = (match node.["qrCodeAccess"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("qrCodeAccess") ) ) | v -> v) .AsValue() .GetValue () let arg_0 = (match node.["pinAccess"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("pinAccess") ) ) | v -> v) .AsValue() .GetValue () { PinAccess = arg_0 QrCodeAccess = arg_1 } namespace PureGym /// Module containing JSON parsing methods for the GymLocation type [] module GymLocation = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : GymLocation = let arg_1 = try (match node.["latitude"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("latitude") ) ) | v -> v) .AsValue() .GetValue () with :? System.InvalidOperationException as exc -> if exc.Message.Contains "cannot be converted to" then if System.Text.Json.Serialization.JsonNumberHandling.AllowReadingFromString = System.Text.Json.Serialization.JsonNumberHandling.AllowReadingFromString then (match node.["latitude"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("latitude") ) ) | v -> v) .AsValue() .GetValue () |> System.Double.Parse else reraise () else reraise () |> LanguagePrimitives.FloatWithMeasure let arg_0 = try (match node.["longitude"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("longitude") ) ) | v -> v) .AsValue() .GetValue () with :? System.InvalidOperationException as exc -> if exc.Message.Contains "cannot be converted to" then if System.Text.Json.Serialization.JsonNumberHandling.AllowReadingFromString = System.Text.Json.Serialization.JsonNumberHandling.AllowReadingFromString then (match node.["longitude"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("longitude") ) ) | v -> v) .AsValue() .GetValue () |> System.Double.Parse else reraise () else reraise () { Longitude = arg_0 Latitude = arg_1 } namespace PureGym /// Module containing JSON parsing methods for the GymAddress type [] module GymAddress = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : GymAddress = let arg_5 = (match node.["postcode"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("postcode") ) ) | v -> v) .AsValue() .GetValue () let arg_4 = match node.["county"] with | null -> None | v -> v.AsValue().GetValue () |> Some let arg_3 = (match node.["town"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("town") ) ) | v -> v) .AsValue() .GetValue () let arg_2 = match node.["addressLine3"] with | null -> None | v -> v.AsValue().GetValue () |> Some let arg_1 = match node.["addressLine2"] with | null -> None | v -> v.AsValue().GetValue () |> Some let arg_0 = (match node.["addressLine1"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("addressLine1") ) ) | v -> v) .AsValue() .GetValue () { AddressLine1 = arg_0 AddressLine2 = arg_1 AddressLine3 = arg_2 Town = arg_3 County = arg_4 Postcode = arg_5 } namespace PureGym /// Module containing JSON parsing methods for the Gym type [] module Gym = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : Gym = let arg_10 = (match node.["reopenDate"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("reopenDate") ) ) | v -> v) .AsValue() .GetValue () let arg_9 = (match node.["timeZone"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("timeZone") ) ) | v -> v) .AsValue() .GetValue () let arg_8 = GymLocation.jsonParse ( match node.["location"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("location") ) ) | v -> v ) let arg_7 = GymAccessOptions.jsonParse ( match node.["accessOptions"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("accessOptions") ) ) | v -> v ) let arg_6 = GymOpeningHours.jsonParse ( match node.["gymOpeningHours"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("gymOpeningHours") ) ) | v -> v ) let arg_5 = (match node.["emailAddress"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("emailAddress") ) ) | v -> v) .AsValue() .GetValue () let arg_4 = (match node.["phoneNumber"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("phoneNumber") ) ) | v -> v) .AsValue() .GetValue () let arg_3 = GymAddress.jsonParse ( match node.["address"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("address") ) ) | v -> v ) let arg_2 = (match node.["status"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("status") ) ) | v -> v) .AsValue() .GetValue () let arg_1 = (match node.["id"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("id") ) ) | v -> v) .AsValue() .GetValue () let arg_0 = (match node.["name"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("name") ) ) | v -> v) .AsValue() .GetValue () { 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 /// Module containing JSON parsing extension members for the Member type [] module MemberJsonParseExtension = /// Extension methods for JSON parsing type Member with /// Parse from a JSON node. static member jsonParse (node : System.Text.Json.Nodes.JsonNode) : Member = let arg_14 = (match node.["memberStatus"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("memberStatus") ) ) | v -> v) .AsValue() .GetValue () let arg_13 = (match node.["suspendedReason"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("suspendedReason") ) ) | v -> v) .AsValue() .GetValue () let arg_12 = (match node.["membershipLevel"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("membershipLevel") ) ) | v -> v) .AsValue() .GetValue () let arg_11 = (match node.["membershipName"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("membershipName") ) ) | v -> v) .AsValue() .GetValue () let arg_10 = (match node.["postCode"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("postCode") ) ) | v -> v) .AsValue() .GetValue () let arg_9 = (match node.["mobileNumber"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("mobileNumber") ) ) | v -> v) .AsValue() .GetValue () let arg_8 = (match node.["dateofBirth"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("dateofBirth") ) ) | v -> v) .AsValue() .GetValue () |> System.DateOnly.Parse let arg_7 = (match node.["gymAccessPin"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("gymAccessPin") ) ) | v -> v) .AsValue() .GetValue () let arg_6 = (match node.["emailAddress"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("emailAddress") ) ) | v -> v) .AsValue() .GetValue () let arg_5 = (match node.["homeGymName"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("homeGymName") ) ) | v -> v) .AsValue() .GetValue () let arg_4 = (match node.["homeGymId"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("homeGymId") ) ) | v -> v) .AsValue() .GetValue () let arg_3 = (match node.["lastName"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("lastName") ) ) | v -> v) .AsValue() .GetValue () let arg_2 = (match node.["firstName"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("firstName") ) ) | v -> v) .AsValue() .GetValue () let arg_1 = (match node.["compoundMemberId"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("compoundMemberId") ) ) | v -> v) .AsValue() .GetValue () let arg_0 = (match node.["id"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("id") ) ) | v -> v) .AsValue() .GetValue () { 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 /// Module containing JSON parsing methods for the GymAttendance type [] module GymAttendance = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : GymAttendance = let arg_8 = (match node.["maximumCapacity"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("maximumCapacity") ) ) | v -> v) .AsValue() .GetValue () let arg_7 = (match node.["lastRefreshedPeopleInClasses"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("lastRefreshedPeopleInClasses") ) ) | v -> v) .AsValue() .GetValue () |> System.DateTime.Parse let arg_6 = (match node.["lastRefreshed"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("lastRefreshed") ) ) | v -> v) .AsValue() .GetValue () |> System.DateTime.Parse let arg_5 = (match node.["attendanceTime"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("attendanceTime") ) ) | v -> v) .AsValue() .GetValue () |> System.DateTime.Parse let arg_4 = (match node.["isApproximate"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("isApproximate") ) ) | v -> v) .AsValue() .GetValue () let arg_3 = match node.["totalPeopleSuffix"] with | null -> None | v -> v.AsValue().GetValue () |> Some let arg_2 = (match node.["totalPeopleInClasses"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("totalPeopleInClasses") ) ) | v -> v) .AsValue() .GetValue () let arg_1 = (match node.["totalPeopleInGym"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("totalPeopleInGym") ) ) | v -> v) .AsValue() .GetValue () let arg_0 = (match node.["description"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("description") ) ) | v -> v) .AsValue() .GetValue () { 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 /// Module containing JSON parsing methods for the MemberActivityDto type [] module MemberActivityDto = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : MemberActivityDto = let arg_5 = (match node.["lastRefreshed"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("lastRefreshed") ) ) | v -> v) .AsValue() .GetValue () |> System.DateTime.Parse let arg_4 = (match node.["isEstimated"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("isEstimated") ) ) | v -> v) .AsValue() .GetValue () let arg_3 = (match node.["totalClasses"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("totalClasses") ) ) | v -> v) .AsValue() .GetValue () let arg_2 = (match node.["totalVisits"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("totalVisits") ) ) | v -> v) .AsValue() .GetValue () let arg_1 = (match node.["averageDuration"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("averageDuration") ) ) | v -> v) .AsValue() .GetValue () let arg_0 = (match node.["totalDuration"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("totalDuration") ) ) | v -> v) .AsValue() .GetValue () { TotalDuration = arg_0 AverageDuration = arg_1 TotalVisits = arg_2 TotalClasses = arg_3 IsEstimated = arg_4 LastRefreshed = arg_5 } namespace PureGym /// Module containing JSON parsing methods for the SessionsAggregate type [] module SessionsAggregate = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : SessionsAggregate = let arg_2 = (match node.["Duration"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("Duration") ) ) | v -> v) .AsValue() .GetValue () let arg_1 = (match node.["Visits"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("Visits") ) ) | v -> v) .AsValue() .GetValue () let arg_0 = (match node.["Activities"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("Activities") ) ) | v -> v) .AsValue() .GetValue () { Activities = arg_0 Visits = arg_1 Duration = arg_2 } namespace PureGym /// Module containing JSON parsing methods for the VisitGym type [] module VisitGym = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : VisitGym = let arg_2 = (match node.["Status"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("Status") ) ) | v -> v) .AsValue() .GetValue () let arg_1 = (match node.["Name"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("Name") ) ) | v -> v) .AsValue() .GetValue () let arg_0 = (match node.["Id"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("Id") ) ) | v -> v) .AsValue() .GetValue () { Id = arg_0 Name = arg_1 Status = arg_2 } namespace PureGym /// Module containing JSON parsing methods for the Visit type [] module Visit = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : Visit = let arg_3 = VisitGym.jsonParse ( match node.["Gym"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("Gym") ) ) | v -> v ) let arg_2 = (match node.["Duration"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("Duration") ) ) | v -> v) .AsValue() .GetValue () let arg_1 = (match node.["StartTime"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("StartTime") ) ) | v -> v) .AsValue() .GetValue () |> System.DateTime.Parse let arg_0 = (match node.["IsDurationEstimated"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("IsDurationEstimated") ) ) | v -> v) .AsValue() .GetValue () { IsDurationEstimated = arg_0 StartTime = arg_1 Duration = arg_2 Gym = arg_3 } namespace PureGym /// Module containing JSON parsing methods for the SessionsSummary type [] module SessionsSummary = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : SessionsSummary = let arg_1 = SessionsAggregate.jsonParse ( match node.["ThisWeek"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("ThisWeek") ) ) | v -> v ) let arg_0 = SessionsAggregate.jsonParse ( match node.["Total"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("Total") ) ) | v -> v ) { Total = arg_0 ThisWeek = arg_1 } namespace PureGym /// Module containing JSON parsing methods for the Sessions type [] module Sessions = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : Sessions = let arg_1 = (match node.["Visits"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("Visits") ) ) | v -> v) .AsArray () |> Seq.map (fun elt -> Visit.jsonParse elt) |> List.ofSeq let arg_0 = SessionsSummary.jsonParse ( match node.["Summary"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("Summary") ) ) | v -> v ) { Summary = arg_0 Visits = arg_1 } namespace PureGym /// Module containing JSON parsing methods for the UriThing type [] module UriThing = /// Parse from a JSON node. let jsonParse (node : System.Text.Json.Nodes.JsonNode) : UriThing = let arg_0 = (match node.["someUri"] with | null -> raise ( System.Collections.Generic.KeyNotFoundException ( sprintf "Required key '%s' not found on JSON object" ("someUri") ) ) | v -> v) .AsValue() .GetValue () |> System.Uri { SomeUri = arg_0 }