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/LookupGym.fs
+++ b/PureGym.App/LookupGym.fs
@@ -44,7 +44,7 @@ module LookupGym =

    let run (args : LookupGymArgs) =
        task {
-            let! client = Api.make args.Creds
+            let! client = Dto.make args.Creds
            let! s = client.GetGym 19
            System.Console.WriteLine (string<Gym> s)
            return 0