40 lines
969 B
Forth
40 lines
969 B
Forth
namespace PureGym.App
|
|
|
|
open Argu
|
|
open PureGym
|
|
|
|
type MemberActivityArgsFragment =
|
|
| MemberActivityArgsFragment of bool
|
|
|
|
interface IArgParserTemplate with
|
|
member s.Usage =
|
|
match s with
|
|
| MemberActivityArgsFragment _ -> "dummy argument: this subcommand has no args"
|
|
|
|
type MemberActivityArgs =
|
|
{
|
|
Creds : Auth
|
|
}
|
|
|
|
static member Parse
|
|
(auth : Auth)
|
|
(_ : MemberActivityArgsFragment ParseResults)
|
|
: Result<MemberActivityArgs, ArguParseException>
|
|
=
|
|
{
|
|
Creds = auth
|
|
}
|
|
|> Ok
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module MemberActivity =
|
|
|
|
let run (args : MemberActivityArgs) =
|
|
task {
|
|
let! client = Dto.make args.Creds
|
|
let! activity = client.GetMemberActivity ()
|
|
let activity = activity.ToMemberActivity ()
|
|
System.Console.WriteLine (string<MemberActivityThisMonth> activity)
|
|
return 0
|
|
}
|