diff --git a/PureGym.App/Fullness.fs b/PureGym.App/Fullness.fs index ab34bf5..bbe8af6 100644 --- a/PureGym.App/Fullness.fs +++ b/PureGym.App/Fullness.fs @@ -51,7 +51,6 @@ module Fullness = let! client = Dto.make args.Creds let! id = GymSelector.canonicalId client args.Gym let! attendance = client.GetGymAttendance id - let attendance = failwith "" if args.Terse then System.Console.WriteLine attendance.TotalPeopleInGym diff --git a/PureGym.App/MemberActivity.fs b/PureGym.App/MemberActivity.fs index c9803b1..f69d03e 100644 --- a/PureGym.App/MemberActivity.fs +++ b/PureGym.App/MemberActivity.fs @@ -33,6 +33,7 @@ module MemberActivity = task { let! client = Dto.make args.Creds let! activity = client.GetMemberActivity () + let activity = activity.ToMemberActivity () System.Console.WriteLine (string activity) return 0 } diff --git a/PureGym/Client.fs b/PureGym/Client.fs index db57c37..a6f9ea3 100644 --- a/PureGym/Client.fs +++ b/PureGym/Client.fs @@ -26,7 +26,7 @@ type IPureGymApi = /// Get information about the activities logged against the currently authenticated PureGym human. [] - abstract GetMemberActivity : unit -> Task + abstract GetMemberActivity : unit -> Task /// Get information about the individual visits to all PureGyms the currently-authenticated PureGym human has made. [] diff --git a/PureGym/Dto.fs b/PureGym/Dto.fs index 4e63926..f204c78 100644 --- a/PureGym/Dto.fs +++ b/PureGym/Dto.fs @@ -3,6 +3,7 @@ namespace PureGym open System open System.Text.Json.Serialization +/// Describes the opening hours of a given gym. [] type GymOpeningHours = { diff --git a/PureGym/SurfaceBaseline.txt b/PureGym/SurfaceBaseline.txt index 1701c9a..b54b704 100644 --- a/PureGym/SurfaceBaseline.txt +++ b/PureGym/SurfaceBaseline.txt @@ -155,8 +155,8 @@ PureGym.IPureGymApi.GetGym [method]: int -> PureGym.Gym System.Threading.Tasks.T PureGym.IPureGymApi.GetGymAttendance [method]: int -> PureGym.GymAttendance System.Threading.Tasks.Task PureGym.IPureGymApi.GetGyms [method]: unit -> PureGym.Gym list System.Threading.Tasks.Task PureGym.IPureGymApi.GetMember [method]: unit -> PureGym.Member System.Threading.Tasks.Task -PureGym.IPureGymApi.GetMemberActivity [method]: unit -> string System.Threading.Tasks.Task -PureGym.IPureGymApi.GetSessions [method]: System.DateTime -> System.DateTime -> string System.Threading.Tasks.Task +PureGym.IPureGymApi.GetMemberActivity [method]: unit -> PureGym.MemberActivityDto System.Threading.Tasks.Task +PureGym.IPureGymApi.GetSessions [method]: System.DateTime -> System.DateTime -> PureGym.Sessions System.Threading.Tasks.Task PureGym.Member inherit obj, implements PureGym.Member System.IEquatable, System.Collections.IStructuralEquatable, PureGym.Member System.IComparable, System.IComparable, System.Collections.IStructuralComparable PureGym.Member..ctor [constructor]: (int, string, string, string, int, string, string, string, System.DateOnly, string, string, string, int, int, int) PureGym.Member.CompoundMemberId [property]: [read-only] string