Add reproducibility check (#14)
Co-authored-by: Smaug123 <3138005+Smaug123@users.noreply.github.com> Reviewed-on: #14
This commit is contained in:
@@ -15,8 +15,7 @@ open System.Threading.Tasks
|
||||
open RestEase
|
||||
|
||||
/// Module for constructing a REST client.
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix) ; RequireQualifiedAccess>]
|
||||
module PureGymApi =
|
||||
/// Create a REST client. The input functions will be re-evaluated on every HTTP request to obtain the required values for the corresponding header properties.
|
||||
let make (authHeader : unit -> string) (client : System.Net.Http.HttpClient) : IPureGymApi =
|
||||
@@ -202,7 +201,11 @@ module PureGymApi =
|
||||
| v -> v),
|
||||
System.Uri (
|
||||
("v2/gymSessions/member"
|
||||
+ "?fromDate="
|
||||
+ (if "v2/gymSessions/member".IndexOf (char 63) >= 0 then
|
||||
"&"
|
||||
else
|
||||
"?")
|
||||
+ "fromDate="
|
||||
+ ((fromDate.ToString "yyyy-MM-dd") |> System.Web.HttpUtility.UrlEncode)
|
||||
+ "&toDate="
|
||||
+ ((toDate.ToString "yyyy-MM-dd") |> System.Web.HttpUtility.UrlEncode)),
|
||||
|
@@ -8,12 +8,11 @@
|
||||
namespace PureGym
|
||||
|
||||
/// Module containing JSON parsing methods for the GymOpeningHours type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 (
|
||||
@@ -23,10 +22,10 @@ module GymOpeningHours =
|
||||
)
|
||||
| v -> v)
|
||||
.AsArray ()
|
||||
|> Seq.map (fun elt -> elt.AsValue().GetValue<string> ())
|
||||
|> Seq.map (fun elt -> elt.AsValue().GetValue<System.String> ())
|
||||
|> List.ofSeq
|
||||
|
||||
let IsAlwaysOpen =
|
||||
let arg_0 =
|
||||
(match node.["isAlwaysOpen"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -36,21 +35,20 @@ module GymOpeningHours =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<bool> ()
|
||||
.GetValue<System.Boolean> ()
|
||||
|
||||
{
|
||||
IsAlwaysOpen = IsAlwaysOpen
|
||||
OpeningHours = OpeningHours
|
||||
IsAlwaysOpen = arg_0
|
||||
OpeningHours = arg_1
|
||||
}
|
||||
namespace PureGym
|
||||
|
||||
/// Module containing JSON parsing methods for the GymAccessOptions type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 (
|
||||
@@ -60,9 +58,9 @@ module GymAccessOptions =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<bool> ()
|
||||
.GetValue<System.Boolean> ()
|
||||
|
||||
let PinAccess =
|
||||
let arg_0 =
|
||||
(match node.["pinAccess"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -72,21 +70,20 @@ module GymAccessOptions =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<bool> ()
|
||||
.GetValue<System.Boolean> ()
|
||||
|
||||
{
|
||||
PinAccess = PinAccess
|
||||
QrCodeAccess = QrCodeAccess
|
||||
PinAccess = arg_0
|
||||
QrCodeAccess = arg_1
|
||||
}
|
||||
namespace PureGym
|
||||
|
||||
/// Module containing JSON parsing methods for the GymLocation type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 ->
|
||||
@@ -97,7 +94,7 @@ module GymLocation =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<float> ()
|
||||
.GetValue<System.Double> ()
|
||||
with :? System.InvalidOperationException as exc ->
|
||||
if exc.Message.Contains "cannot be converted to" then
|
||||
if
|
||||
@@ -119,7 +116,7 @@ module GymLocation =
|
||||
else
|
||||
reraise ()
|
||||
|
||||
let Longitude =
|
||||
let arg_0 =
|
||||
try
|
||||
(match node.["longitude"] with
|
||||
| null ->
|
||||
@@ -130,7 +127,7 @@ module GymLocation =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<float> ()
|
||||
.GetValue<System.Double> ()
|
||||
with :? System.InvalidOperationException as exc ->
|
||||
if exc.Message.Contains "cannot be converted to" then
|
||||
if
|
||||
@@ -153,18 +150,17 @@ module GymLocation =
|
||||
reraise ()
|
||||
|
||||
{
|
||||
Longitude = Longitude
|
||||
Latitude = Latitude
|
||||
Longitude = arg_0
|
||||
Latitude = arg_1
|
||||
}
|
||||
namespace PureGym
|
||||
|
||||
/// Module containing JSON parsing methods for the GymAddress type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 (
|
||||
@@ -174,14 +170,14 @@ module GymAddress =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let County =
|
||||
let arg_4 =
|
||||
match node.["county"] with
|
||||
| null -> None
|
||||
| v -> v.AsValue().GetValue<string> () |> Some
|
||||
| v -> v.AsValue().GetValue<System.String> () |> Some
|
||||
|
||||
let Town =
|
||||
let arg_3 =
|
||||
(match node.["town"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -191,19 +187,19 @@ module GymAddress =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let AddressLine3 =
|
||||
let arg_2 =
|
||||
match node.["addressLine3"] with
|
||||
| null -> None
|
||||
| v -> v.AsValue().GetValue<string> () |> Some
|
||||
| v -> v.AsValue().GetValue<System.String> () |> Some
|
||||
|
||||
let AddressLine2 =
|
||||
let arg_1 =
|
||||
match node.["addressLine2"] with
|
||||
| null -> None
|
||||
| v -> v.AsValue().GetValue<string> () |> Some
|
||||
| v -> v.AsValue().GetValue<System.String> () |> Some
|
||||
|
||||
let AddressLine1 =
|
||||
let arg_0 =
|
||||
(match node.["addressLine1"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -213,30 +209,29 @@ module GymAddress =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.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
|
||||
|
||||
/// Module containing JSON parsing methods for the Gym type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 -> None
|
||||
| v -> v.AsValue().GetValue<string> () |> Some
|
||||
| v -> v.AsValue().GetValue<System.String> () |> Some
|
||||
|
||||
let TimeZone =
|
||||
let arg_9 =
|
||||
(match node.["timeZone"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -246,9 +241,9 @@ module Gym =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let Location =
|
||||
let arg_8 =
|
||||
GymLocation.jsonParse (
|
||||
match node.["location"] with
|
||||
| null ->
|
||||
@@ -260,7 +255,7 @@ module Gym =
|
||||
| v -> v
|
||||
)
|
||||
|
||||
let AccessOptions =
|
||||
let arg_7 =
|
||||
GymAccessOptions.jsonParse (
|
||||
match node.["accessOptions"] with
|
||||
| null ->
|
||||
@@ -272,7 +267,7 @@ module Gym =
|
||||
| v -> v
|
||||
)
|
||||
|
||||
let GymOpeningHours =
|
||||
let arg_6 =
|
||||
GymOpeningHours.jsonParse (
|
||||
match node.["gymOpeningHours"] with
|
||||
| null ->
|
||||
@@ -284,7 +279,7 @@ module Gym =
|
||||
| v -> v
|
||||
)
|
||||
|
||||
let EmailAddress =
|
||||
let arg_5 =
|
||||
(match node.["emailAddress"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -294,9 +289,9 @@ module Gym =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let PhoneNumber =
|
||||
let arg_4 =
|
||||
(match node.["phoneNumber"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -306,9 +301,9 @@ module Gym =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let Address =
|
||||
let arg_3 =
|
||||
GymAddress.jsonParse (
|
||||
match node.["address"] with
|
||||
| null ->
|
||||
@@ -320,7 +315,7 @@ module Gym =
|
||||
| v -> v
|
||||
)
|
||||
|
||||
let Status =
|
||||
let arg_2 =
|
||||
(match node.["status"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -330,9 +325,9 @@ module Gym =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let Id =
|
||||
let arg_1 =
|
||||
(match node.["id"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -342,9 +337,9 @@ module Gym =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let Name =
|
||||
let arg_0 =
|
||||
(match node.["name"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -354,30 +349,29 @@ module Gym =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.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
|
||||
|
||||
/// Module containing JSON parsing methods for the Member type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
module Member =
|
||||
/// Parse from a JSON node.
|
||||
let jsonParse (node : System.Text.Json.Nodes.JsonNode) : Member =
|
||||
let MemberStatus =
|
||||
let arg_14 =
|
||||
(match node.["memberStatus"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -387,9 +381,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let SuspendedReason =
|
||||
let arg_13 =
|
||||
(match node.["suspendedReason"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -399,9 +393,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let MembershipLevel =
|
||||
let arg_12 =
|
||||
(match node.["membershipLevel"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -411,9 +405,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let MembershipName =
|
||||
let arg_11 =
|
||||
(match node.["membershipName"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -423,9 +417,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let Postcode =
|
||||
let arg_10 =
|
||||
(match node.["postCode"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -435,9 +429,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let MobileNumber =
|
||||
let arg_9 =
|
||||
(match node.["mobileNumber"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -447,9 +441,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let DateOfBirth =
|
||||
let arg_8 =
|
||||
(match node.["dateofBirth"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -462,7 +456,7 @@ module Member =
|
||||
.GetValue<string> ()
|
||||
|> System.DateOnly.Parse
|
||||
|
||||
let GymAccessPin =
|
||||
let arg_7 =
|
||||
(match node.["gymAccessPin"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -472,9 +466,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let EmailAddress =
|
||||
let arg_6 =
|
||||
(match node.["emailAddress"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -484,9 +478,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let HomeGymName =
|
||||
let arg_5 =
|
||||
(match node.["homeGymName"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -496,9 +490,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let HomeGymId =
|
||||
let arg_4 =
|
||||
(match node.["homeGymId"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -508,9 +502,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let LastName =
|
||||
let arg_3 =
|
||||
(match node.["lastName"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -520,9 +514,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let FirstName =
|
||||
let arg_2 =
|
||||
(match node.["firstName"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -532,9 +526,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let CompoundMemberId =
|
||||
let arg_1 =
|
||||
(match node.["compoundMemberId"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -544,9 +538,9 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let Id =
|
||||
let arg_0 =
|
||||
(match node.["id"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -556,34 +550,33 @@ module Member =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
{
|
||||
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
|
||||
|
||||
/// Module containing JSON parsing methods for the GymAttendance type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 (
|
||||
@@ -593,9 +586,9 @@ module GymAttendance =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let LastRefreshedPeopleInClasses =
|
||||
let arg_7 =
|
||||
(match node.["lastRefreshedPeopleInClasses"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -608,7 +601,7 @@ module GymAttendance =
|
||||
.GetValue<string> ()
|
||||
|> System.DateTime.Parse
|
||||
|
||||
let LastRefreshed =
|
||||
let arg_6 =
|
||||
(match node.["lastRefreshed"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -621,7 +614,7 @@ module GymAttendance =
|
||||
.GetValue<string> ()
|
||||
|> System.DateTime.Parse
|
||||
|
||||
let AttendanceTime =
|
||||
let arg_5 =
|
||||
(match node.["attendanceTime"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -634,7 +627,7 @@ module GymAttendance =
|
||||
.GetValue<string> ()
|
||||
|> System.DateTime.Parse
|
||||
|
||||
let IsApproximate =
|
||||
let arg_4 =
|
||||
(match node.["isApproximate"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -644,14 +637,14 @@ module GymAttendance =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<bool> ()
|
||||
.GetValue<System.Boolean> ()
|
||||
|
||||
let TotalPeopleSuffix =
|
||||
let arg_3 =
|
||||
match node.["totalPeopleSuffix"] with
|
||||
| null -> None
|
||||
| v -> v.AsValue().GetValue<string> () |> Some
|
||||
| v -> v.AsValue().GetValue<System.String> () |> Some
|
||||
|
||||
let TotalPeopleInClasses =
|
||||
let arg_2 =
|
||||
(match node.["totalPeopleInClasses"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -661,9 +654,9 @@ module GymAttendance =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let TotalPeopleInGym =
|
||||
let arg_1 =
|
||||
(match node.["totalPeopleInGym"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -673,9 +666,9 @@ module GymAttendance =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let Description =
|
||||
let arg_0 =
|
||||
(match node.["description"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -685,28 +678,27 @@ module GymAttendance =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.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
|
||||
|
||||
/// Module containing JSON parsing methods for the MemberActivityDto type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 (
|
||||
@@ -719,7 +711,7 @@ module MemberActivityDto =
|
||||
.GetValue<string> ()
|
||||
|> System.DateTime.Parse
|
||||
|
||||
let IsEstimated =
|
||||
let arg_4 =
|
||||
(match node.["isEstimated"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -729,9 +721,9 @@ module MemberActivityDto =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<bool> ()
|
||||
.GetValue<System.Boolean> ()
|
||||
|
||||
let TotalClasses =
|
||||
let arg_3 =
|
||||
(match node.["totalClasses"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -741,9 +733,9 @@ module MemberActivityDto =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let TotalVisits =
|
||||
let arg_2 =
|
||||
(match node.["totalVisits"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -753,9 +745,9 @@ module MemberActivityDto =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let AverageDuration =
|
||||
let arg_1 =
|
||||
(match node.["averageDuration"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -765,9 +757,9 @@ module MemberActivityDto =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let TotalDuration =
|
||||
let arg_0 =
|
||||
(match node.["totalDuration"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -777,25 +769,24 @@ module MemberActivityDto =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
{
|
||||
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
|
||||
|
||||
/// Module containing JSON parsing methods for the SessionsAggregate type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 (
|
||||
@@ -805,9 +796,9 @@ module SessionsAggregate =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let Visits =
|
||||
let arg_1 =
|
||||
(match node.["Visits"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -817,9 +808,9 @@ module SessionsAggregate =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let Activities =
|
||||
let arg_0 =
|
||||
(match node.["Activities"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -829,22 +820,21 @@ module SessionsAggregate =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
{
|
||||
Activities = Activities
|
||||
Visits = Visits
|
||||
Duration = Duration
|
||||
Activities = arg_0
|
||||
Visits = arg_1
|
||||
Duration = arg_2
|
||||
}
|
||||
namespace PureGym
|
||||
|
||||
/// Module containing JSON parsing methods for the VisitGym type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 (
|
||||
@@ -854,9 +844,9 @@ module VisitGym =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let Name =
|
||||
let arg_1 =
|
||||
(match node.["Name"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -866,9 +856,9 @@ module VisitGym =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<string> ()
|
||||
.GetValue<System.String> ()
|
||||
|
||||
let Id =
|
||||
let arg_0 =
|
||||
(match node.["Id"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -878,22 +868,21 @@ module VisitGym =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
{
|
||||
Id = Id
|
||||
Name = Name
|
||||
Status = Status
|
||||
Id = arg_0
|
||||
Name = arg_1
|
||||
Status = arg_2
|
||||
}
|
||||
namespace PureGym
|
||||
|
||||
/// Module containing JSON parsing methods for the Visit type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 ->
|
||||
@@ -905,7 +894,7 @@ module Visit =
|
||||
| v -> v
|
||||
)
|
||||
|
||||
let Duration =
|
||||
let arg_2 =
|
||||
(match node.["Duration"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -915,9 +904,9 @@ module Visit =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<int> ()
|
||||
.GetValue<System.Int32> ()
|
||||
|
||||
let StartTime =
|
||||
let arg_1 =
|
||||
(match node.["StartTime"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -930,7 +919,7 @@ module Visit =
|
||||
.GetValue<string> ()
|
||||
|> System.DateTime.Parse
|
||||
|
||||
let IsDurationEstimated =
|
||||
let arg_0 =
|
||||
(match node.["IsDurationEstimated"] with
|
||||
| null ->
|
||||
raise (
|
||||
@@ -940,23 +929,22 @@ module Visit =
|
||||
)
|
||||
| v -> v)
|
||||
.AsValue()
|
||||
.GetValue<bool> ()
|
||||
.GetValue<System.Boolean> ()
|
||||
|
||||
{
|
||||
IsDurationEstimated = IsDurationEstimated
|
||||
StartTime = StartTime
|
||||
Duration = Duration
|
||||
Gym = Gym
|
||||
IsDurationEstimated = arg_0
|
||||
StartTime = arg_1
|
||||
Duration = arg_2
|
||||
Gym = arg_3
|
||||
}
|
||||
namespace PureGym
|
||||
|
||||
/// Module containing JSON parsing methods for the SessionsSummary type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 ->
|
||||
@@ -968,7 +956,7 @@ module SessionsSummary =
|
||||
| v -> v
|
||||
)
|
||||
|
||||
let Total =
|
||||
let arg_0 =
|
||||
SessionsAggregate.jsonParse (
|
||||
match node.["Total"] with
|
||||
| null ->
|
||||
@@ -981,18 +969,17 @@ module SessionsSummary =
|
||||
)
|
||||
|
||||
{
|
||||
Total = Total
|
||||
ThisWeek = ThisWeek
|
||||
Total = arg_0
|
||||
ThisWeek = arg_1
|
||||
}
|
||||
namespace PureGym
|
||||
|
||||
/// Module containing JSON parsing methods for the Sessions type
|
||||
[<RequireQualifiedAccess>]
|
||||
[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
[<RequireQualifiedAccess ; CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
|
||||
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 (
|
||||
@@ -1005,7 +992,7 @@ module Sessions =
|
||||
|> Seq.map (fun elt -> Visit.jsonParse elt)
|
||||
|> List.ofSeq
|
||||
|
||||
let Summary =
|
||||
let arg_0 =
|
||||
SessionsSummary.jsonParse (
|
||||
match node.["Summary"] with
|
||||
| null ->
|
||||
@@ -1018,6 +1005,6 @@ module Sessions =
|
||||
)
|
||||
|
||||
{
|
||||
Summary = Summary
|
||||
Visits = Visits
|
||||
Summary = arg_0
|
||||
Visits = arg_1
|
||||
}
|
||||
|
@@ -4,9 +4,10 @@
|
||||
<TargetFramework>net6.0</TargetFramework>
|
||||
<GenerateDocumentationFile>true</GenerateDocumentationFile>
|
||||
<TreatWarningsAsErrors>true</TreatWarningsAsErrors>
|
||||
<WarningsNotAsErrors>NU1901;NU1902;NU1903;NU1904</WarningsNotAsErrors>
|
||||
<WarnOn>FS3559</WarnOn>
|
||||
|
||||
<WoofWareMyriadPluginVersion>2.0.5</WoofWareMyriadPluginVersion>
|
||||
<WoofWareMyriadPluginVersion>2.1.53</WoofWareMyriadPluginVersion>
|
||||
</PropertyGroup>
|
||||
|
||||
<ItemGroup>
|
||||
@@ -37,8 +38,8 @@
|
||||
<PackageReference Include="System.Text.Json" Version="8.0.0" />
|
||||
<PackageReference Include="Fastenshtein" Version="1.0.0.8" />
|
||||
<PackageReference Include="Myriad.Sdk" Version="0.8.3" PrivateAssets="all" />
|
||||
<PackageReference Include="WoofWare.Myriad.Plugins" Version="$(WoofWareMyriadPluginVersion)" />
|
||||
<PackageReference Include="WoofWare.Myriad.Plugins.Attributes" Version="$(WoofWareMyriadPluginVersion)" />
|
||||
<PackageReference Include="WoofWare.Myriad.Plugins" Version="$(WoofWareMyriadPluginVersion)" PrivateAssets="all" />
|
||||
<PackageReference Include="WoofWare.Myriad.Plugins.Attributes" Version="3.1.9" />
|
||||
</ItemGroup>
|
||||
|
||||
</Project>
|
||||
|
Reference in New Issue
Block a user