patrick/puregym-unofficial-dotnet
1
0
Fork 0
Code Issues Pull Requests Packages Releases Activity

Rename
Some checks failed
ci/woodpecker/push/all-checks-complete Pipeline is pending
Details
ci/woodpecker/push/build Pipeline was successful
Details
ci/woodpecker/pr/build Pipeline failed
Details
ci/woodpecker/pr/all-checks-complete unknown status
Details

Browse Source
This commit is contained in:
Smaug123
2023-12-28 20:10:56 +00:00
parent ee52f695b1
commit 66b44471d5
6 changed files with 5 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
PureGym.App/Fullness.fs
View File

@@ -48,7 +48,7 @@ module Fullness =
let run (args : FullnessArgs) =
task {
let! client = Dto.make args.Creds
let! client = Api.make args.Creds
let! id = GymSelector.canonicalId client args.Gym
let! attendance = client.GetGymAttendance id

2
PureGym.App/LookupGym.fs
View File

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

2
PureGym.App/MemberActivity.fs
View File

@@ -31,7 +31,7 @@ module MemberActivity =
let run (args : MemberActivityArgs) =
task {
let! client = Dto.make args.Creds
let! client = Api.make args.Creds
let! activity = client.GetMemberActivity ()
let activity = activity.ToMemberActivity ()
System.Console.WriteLine (string<MemberActivityThisMonth> activity)

2
PureGym.App/Sessions.fs
View File

@@ -41,7 +41,7 @@ module Sessions =
let run (args : SessionsArgs) =
task {
let! client = Dto.make args.Creds
let! client = Api.make args.Creds
let! activity = client.GetSessions (args.FromDate, args.ToDate)
System.Console.WriteLine (string<Sessions> activity)

6
PureGym.sln
View File

@@ -6,8 +6,6 @@ Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "PureGym.App", "PureGym.App\
EndProject
Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "PureGym.Test", "PureGym.Test\PureGym.Test.fsproj", "{F09DF609-5F53-4BB3-BD64-DDB136CD4D2E}"
EndProject
Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "WoofWare.Myriad.Plugins", "..\WoofWare.Myriad\WoofWare.Myriad.Plugins\WoofWare.Myriad.Plugins.fsproj", "{ECA6B986-ED3A-4CC0-B37E-8E928C9DB9B3}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
@@ -26,9 +24,5 @@ Global
{F09DF609-5F53-4BB3-BD64-DDB136CD4D2E}.Debug|Any CPU.Build.0 = Debug|Any CPU
{F09DF609-5F53-4BB3-BD64-DDB136CD4D2E}.Release|Any CPU.ActiveCfg = Release|Any CPU
{F09DF609-5F53-4BB3-BD64-DDB136CD4D2E}.Release|Any CPU.Build.0 = Release|Any CPU
{ECA6B986-ED3A-4CC0-B37E-8E928C9DB9B3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{ECA6B986-ED3A-4CC0-B37E-8E928C9DB9B3}.Debug|Any CPU.Build.0 = Debug|Any CPU
{ECA6B986-ED3A-4CC0-B37E-8E928C9DB9B3}.Release|Any CPU.ActiveCfg = Release|Any CPU
{ECA6B986-ED3A-4CC0-B37E-8E928C9DB9B3}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
EndGlobal

2
PureGym/Api.fs
View File

@@ -6,7 +6,7 @@ open System.Threading.Tasks
/// Methods for interacting with the PureGym REST API.
[<RequireQualifiedAccess>]
module Dto =
module Api =
/// Create a REST client, authenticated as the specified user.
let make (auth : Auth) : IPureGymApi Task =
task {