Use WoofWare.MYriad REST API entirely

2024-01-29 22:51:11 +00:00
parent 58fdb23719
commit 5b7a29f27f
12 changed files with 284 additions and 69 deletions
--- a/PureGym.App/MemberActivity.fs
+++ b/PureGym.App/MemberActivity.fs
@@ -1,5 +1,6 @@
 namespace PureGym.App

+open System.Threading
 open Argu
 open PureGym

@@ -31,7 +32,7 @@ module MemberActivity =

    let run (args : MemberActivityArgs) =
        task {
-            let! client = Api.make args.Creds
+            let! client = Api.makeWithoutRefresh CancellationToken.None args.Creds
            let! activity = client.GetMemberActivity ()
            let activity = activity.ToMemberActivity ()
            System.Console.WriteLine (string<MemberActivityThisMonth> activity)