namespace PureGym.App

open System.Threading
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 = Api.makeWithoutRefresh CancellationToken.None args.Creds
            let! activity = client.GetMemberActivity ()
            let activity = activity.ToMemberActivity ()
            System.Console.WriteLine (string<MemberActivityThisMonth> activity)
            return 0
        }