Unverified Commit 5067d8ce authored by zapashcanon's avatar zapashcanon
Browse files

add example

parent 2399ea4d
Pipeline #15891 passed with stages
in 7 minutes and 20 seconds
(executable
(name example)
(libraries ezcurl))
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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment