Format
All checks were successful
ci/woodpecker/push/build Pipeline was successful
ci/woodpecker/pr/build Pipeline was successful
ci/woodpecker/push/all-checks-complete Pipeline was successful
ci/woodpecker/pr/all-checks-complete Pipeline was successful

This commit is contained in:
Smaug123
2024-06-01 00:35:24 +01:00
parent 08e19a4063
commit 550fb4de6c
3 changed files with 302 additions and 275 deletions

1
.fantomasignore Normal file
View File

@@ -0,0 +1 @@
.direnv/

View File

@@ -228,5 +228,5 @@ module PureGymApi =
return Sessions.jsonParse jsonNode
}
|> (fun a -> Async.StartAsTask(a, ?cancellationToken = ct)) }
|> (fun a -> Async.StartAsTask (a, ?cancellationToken = ct))
}

View File

@@ -38,8 +38,10 @@ module GymOpeningHours =
.AsValue()
.GetValue<bool> ()
{ IsAlwaysOpen = IsAlwaysOpen
OpeningHours = OpeningHours }
{
IsAlwaysOpen = IsAlwaysOpen
OpeningHours = OpeningHours
}
namespace PureGym
/// Module containing JSON parsing methods for the GymAccessOptions type
@@ -72,8 +74,10 @@ module GymAccessOptions =
.AsValue()
.GetValue<bool> ()
{ PinAccess = PinAccess
QrCodeAccess = QrCodeAccess }
{
PinAccess = PinAccess
QrCodeAccess = QrCodeAccess
}
namespace PureGym
/// Module containing JSON parsing methods for the GymLocation type
@@ -148,8 +152,10 @@ module GymLocation =
else
reraise ()
{ Longitude = Longitude
Latitude = Latitude }
{
Longitude = Longitude
Latitude = Latitude
}
namespace PureGym
/// Module containing JSON parsing methods for the GymAddress type
@@ -209,12 +215,14 @@ module GymAddress =
.AsValue()
.GetValue<string> ()
{ AddressLine1 = AddressLine1
{
AddressLine1 = AddressLine1
AddressLine2 = AddressLine2
AddressLine3 = AddressLine3
Town = Town
County = County
Postcode = Postcode }
Postcode = Postcode
}
namespace PureGym
/// Module containing JSON parsing methods for the Gym type
@@ -348,7 +356,8 @@ module Gym =
.AsValue()
.GetValue<string> ()
{ Name = Name
{
Name = Name
Id = Id
Status = Status
Address = Address
@@ -358,7 +367,8 @@ module Gym =
AccessOptions = AccessOptions
Location = Location
TimeZone = TimeZone
ReopenDate = ReopenDate }
ReopenDate = ReopenDate
}
namespace PureGym
/// Module containing JSON parsing methods for the Member type
@@ -548,7 +558,8 @@ module Member =
.AsValue()
.GetValue<int> ()
{ Id = Id
{
Id = Id
CompoundMemberId = CompoundMemberId
FirstName = FirstName
LastName = LastName
@@ -562,7 +573,8 @@ module Member =
MembershipName = MembershipName
MembershipLevel = MembershipLevel
SuspendedReason = SuspendedReason
MemberStatus = MemberStatus }
MemberStatus = MemberStatus
}
namespace PureGym
/// Module containing JSON parsing methods for the GymAttendance type
@@ -675,7 +687,8 @@ module GymAttendance =
.AsValue()
.GetValue<string> ()
{ Description = Description
{
Description = Description
TotalPeopleInGym = TotalPeopleInGym
TotalPeopleInClasses = TotalPeopleInClasses
TotalPeopleSuffix = TotalPeopleSuffix
@@ -683,7 +696,8 @@ module GymAttendance =
AttendanceTime = AttendanceTime
LastRefreshed = LastRefreshed
LastRefreshedPeopleInClasses = LastRefreshedPeopleInClasses
MaximumCapacity = MaximumCapacity }
MaximumCapacity = MaximumCapacity
}
namespace PureGym
/// Module containing JSON parsing methods for the MemberActivityDto type
@@ -765,12 +779,14 @@ module MemberActivityDto =
.AsValue()
.GetValue<int> ()
{ TotalDuration = TotalDuration
{
TotalDuration = TotalDuration
AverageDuration = AverageDuration
TotalVisits = TotalVisits
TotalClasses = TotalClasses
IsEstimated = IsEstimated
LastRefreshed = LastRefreshed }
LastRefreshed = LastRefreshed
}
namespace PureGym
/// Module containing JSON parsing methods for the SessionsAggregate type
@@ -815,9 +831,11 @@ module SessionsAggregate =
.AsValue()
.GetValue<int> ()
{ Activities = Activities
{
Activities = Activities
Visits = Visits
Duration = Duration }
Duration = Duration
}
namespace PureGym
/// Module containing JSON parsing methods for the VisitGym type
@@ -862,9 +880,11 @@ module VisitGym =
.AsValue()
.GetValue<int> ()
{ Id = Id
{
Id = Id
Name = Name
Status = Status }
Status = Status
}
namespace PureGym
/// Module containing JSON parsing methods for the Visit type
@@ -922,10 +942,12 @@ module Visit =
.AsValue()
.GetValue<bool> ()
{ IsDurationEstimated = IsDurationEstimated
{
IsDurationEstimated = IsDurationEstimated
StartTime = StartTime
Duration = Duration
Gym = Gym }
Gym = Gym
}
namespace PureGym
/// Module containing JSON parsing methods for the SessionsSummary type
@@ -958,7 +980,10 @@ module SessionsSummary =
| v -> v
)
{ Total = Total; ThisWeek = ThisWeek }
{
Total = Total
ThisWeek = ThisWeek
}
namespace PureGym
/// Module containing JSON parsing methods for the Sessions type
@@ -992,6 +1017,7 @@ module Sessions =
| v -> v
)
{ Summary = Summary; Visits = Visits }
{
Summary = Summary
Visits = Visits
}