WIP with JSON static parsing

2023-12-27 20:21:08 +00:00
parent 77ceafde0b
commit 5fd1a52bd8
17 changed files with 756 additions and 94 deletions
--- a/PureGym.App/MemberActivity.fs
+++ b/PureGym.App/MemberActivity.fs
@@ -31,9 +31,8 @@ module MemberActivity =

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