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/Fullness.fs
+++ b/PureGym.App/Fullness.fs
@@ -48,9 +48,10 @@ module Fullness =

    let run (args : FullnessArgs) =
        task {
-            let! client = Api.make args.Creds
+            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