Source

ocaml-bitbucket / type.ml

camlspotter ab68943 














type scm = [ `hg | `git ]
 
and repo = { 
  owner      : string;
  scm        : scm;
  slug       : string;
  is_private : bool;
  name       : string
}

and repos = repo list

with json

let json = json_of_repo { owner= "hello"; scm = `hg; slug = "hello"; is_private = true; name = "hello" }
let _ = Format.eprintf "%a@." (fun j -> Json_io.Pretty.print j) json