entrypoint.fs

[<EntryPoint>]
let main argv =
    try
        match ParseArgs argv with
            | Options.NoCommand -> printfn "%s" "Subcommand required!"
            | Options.Query o ->
                let client = Client.New o.BaseUrl o.Id o.Key
                let status = client.q {
                    let! ticket = client.Query o.Query o.From o.To
                    let! status = client.WaitOn ticket
                    return status }
                match status  with
                    | Fail fails -> printfn "Fail %A" fails
                    | Error error -> printfn "Error %A" error
                    | Pass ticket -> printfn "Pass %A" ticket
    with
        | Failure(msg) -> printfn "Error: %s" msg
        | :? ArguParseException as ex -> printfn "%s" ex.Message
    0