let instance = "https://osh.ocamlpro.com"

let badge = "/badge?label=build&color=green&status=passing"

let url = Format.sprintf "%s%s" instance badge

let () =
  match Ezcurl.get ~url () with
  | Error (_code, msg) ->
    Format.eprintf "error: %s@." msg;
    exit 1
  | Ok badge -> Format.printf "Here's your badge:@.%s@." badge.body