Easy REST requests using cohttp

See ezrest.mli for detailed usage information.

Example usage

Let's take a look at what it's like to use Ezrest from a REPL.

# #require "ezrest"

First, a simple HEAD request.

# let site = Uri.of_string "http://jsonplaceholder.typicode.com/"
val site : Uri.t = <abstr>
# Ezrest.head site
- : Cohttp.Response.t Ezrest.result =
Ok
 {Cohttp.Response.encoding = Cohttp__.Transfer.Unknown; headers = <abstr>;
  version = `HTTP_1_1; status = `OK; flush = false}

Now we can GET some content, failing if the site tries to redirect us.

# Ezrest.get ~follow:0 site
- : string Ezrest.result =
Ok
 "\n<!DOCTYPE html>\n<html lang=\"en\">\n<head>\n<meta charset=\"utf-8\" />\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1, shrink-to-fit=no\" />\n<link rel=\"stylesheet\" href=\"/style.css\" />\n<link rel=\"stylesheet\" href=\"https://cdnjs.cloudflare.com/ajax/libs/prism/1.21.0/themes/prism-tom"... (* string length 6949; truncated *)

We can PUT and POST too!

# let put_site = Uri.with_path site "/posts/1"
val put_site : Uri.t = <abstr>
# Ezrest.put put_site
- : string Ezrest.result = Ok "{\n  \"id\": 1\n}"
# let post_site = Uri.with_path site "/posts"
val post_site : Uri.t = <abstr>
# Ezrest.post post_site
- : string Ezrest.result = Ok "{\n  \"id\": 101\n}"

And DELETE if that's what's necessary.

# Ezrest.delete put_site
- : string Ezrest.result = Ok "{}"

hcarty/ezrest

Easy REST requests using cohttp

Example usage