Program.fs

open Argu
open Hopac

[<EntryPoint>]
let main argv =
    let query = @"_sourceCategory=harbour/container-health"
    try
         Args("fss", argv)
         |> Client.query query
         |> Client.send
         |> function
             | (202, resp) -> printfn "%A" resp
             | (400, resp) -> printfn "ERROR: %A" resp
             | (415, _) -> printfn "ERROR: Content-Type not application/json"
             | _ -> printfn "ERROR: Unknown"
    with
        | Failure(msg) -> printfn "Error: %s" msg
        | :? ArguParseException as ex -> printfn "%s" ex.Message
    0