WIP with JSON static parsing

This commit is contained in:
Smaug123
2023-12-27 20:21:08 +00:00
parent 77ceafde0b
commit 5fd1a52bd8
17 changed files with 756 additions and 94 deletions

View File

@@ -14,7 +14,7 @@ type GetTokenArg =
match s with
| GetTokenArg.Pin _ -> "Eight-digit PureGym user's PIN"
| GetTokenArg.User_Email _ -> "PureGym user's email address"
| GetTokenArg.StdIn _ -> "Read anything not specified on the command line from stdin"
| GetTokenArg.StdIn -> "Read anything not specified on the command line from stdin"
static member Parse (args : ParseResults<GetTokenArg>) : Result<UsernamePin, ArguParseException> =
let canUseStdin = args.TryGetResult(GetTokenArg.StdIn).IsSome