namespace gapic

open System

open System.Reflection

open Fli

open Argu

open Arguments

let runCommands (parser: ArgumentParser<CliArguments>) (args: string array) =

match (parser.Parse args).GetAllResults() with

| [ User p ] -> p |> Users.getUser

| [ Repo r ] ->

cli {

Exec "gh"

Arguments $"repo view {r}"

}

|> Command.execute

|> Output.toText

| [ Issues is ] ->

cli {

Exec "gh"

Arguments $"issue list --repo {is}"

}

|> Command.execute

|> Output.toText

| [ Version ] -> Assembly.GetExecutingAssembly().GetName().Version |> string

| [ Help ] -> parser.PrintUsage()

| _ -> parser.PrintUsage()

[<EntryPoint>]

let main ([<ParamArray>] argv: string[]) : int =

try

(ArgumentParser.Create<CliArguments>(), argv) ||> runCommands |> printfn "%s"

with ex ->

eprintfn $"{ex.Message}"

0