add example

5067d8ce · zapashcanon · 2399ea4d · 5067d8ce · 5067d8ce
Unverified Commit 5067d8ce authored Oct 07, 2021 by zapashcanon
Show whitespace changes
Inline Side-by-side

Showing with 15 additions and 0 deletions

example/dune example/dune +3 -0

example/example.ml example/example.ml +12 -0

No files found.
--- a/example/dune
+++ b/example/dune
+(executable
+ (name example)
+ (libraries ezcurl))
--- a/example/example.ml
+++ b/example/example.ml
+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