WIP with JSON static parsing
This commit is contained in:
@@ -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
|
||||
|
Reference in New Issue
Block a user