Use WoofWare.Myriad entirely to generate the REST API (#9)

Co-authored-by: Smaug123 <patrick+github@patrickstevens.co.uk> Reviewed-on: #9
2024-01-30 00:17:45 +00:00
parent 58fdb23719
commit e96ae78665
15 changed files with 306 additions and 119 deletions
--- a/PureGym.App/Authenticate.fs
+++ b/PureGym.App/Authenticate.fs
@@ -1,5 +1,6 @@
 namespace PureGym.App

+open System.Threading
 open Argu
 open System
 open PureGym
@@ -50,7 +51,7 @@ module Authenticate =

    let run (creds : UsernamePin) =
        task {
-            let! cred = AuthToken.get creds
+            let! cred = AuthToken.get creds CancellationToken.None
            Console.WriteLine cred.AccessToken

            match cred.ExpiryTime with