Commits

camlspotter  committed 9aad09d

comment

  • Participants
  • Parent commits 710bd90
  • Branches dev

Comments (0)

Files changed (1)

 open Common
 
 open Tiny_json
-open Meta_conv.Open
 open Meta_conv.Types.Result.Open (* I use >>= only for Result here *)
 open Json_conv  (* for conv(json) *)
 open Ocaml_conv (* for conv(ocaml) *)
   let parse s = try `Ok (parse s) with e -> `Error (`Json_parse e)
 end
 
+(** { 6 Types } *)
+
 module Scheme = struct
   type t = 
-    | Hg(:"hg":) 
-    | Git(:"git":) 
+    | Hg  (:"hg":) 
+    | Git (:"git":) 
   with conv(json), conv(ocaml)
 end
 
 
 end
 
+(** { 6 End points } *)
+
 (** repositories Endpoint *)
 module Repositories = struct