print_http_json.ml

(*
to compile:

$ ocamlfind ocamlopt -o print_http_json print_http_json.ml -linkpkg -package json-static,netclient -syntax camlp4o

to run (trying it out on couchdb):

$ ./print_http_json http://localhost:5984/joetest
*)

open Printf

let get url =
  (Json_io.json_of_string
    (Http_client.Convenience.http_get url ))

let print json =
  printf "%s\n%!"
    (Json_io.string_of_json ~compact:false json)

let _ =
  print (get(Sys.argv.(1)))