From: Rob Hoes Date: Wed, 26 Jan 2011 17:39:04 +0000 (+0000) Subject: Fix ocamldoc extensions for use with ocaml-3.12 X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=0e0334b3be78cb846252415136ff3cb8ffb3a86c;p=xcp%2Fxen-api.git Fix ocamldoc extensions for use with ocaml-3.12 Signed-off-by: Rob Hoes --- diff --git a/ocaml/doc/odoc_json.ml b/ocaml/doc/odoc_json.ml index 306cfff9..ac288cb0 100644 --- a/ocaml/doc/odoc_json.ml +++ b/ocaml/doc/odoc_json.ml @@ -267,7 +267,7 @@ class gen () = node ("h" ^ string_of_int n) (self#t_of_text t) | Odoc_info.Latex s -> node "span" ~atts:["class", "latex"] [self#t_of_raw s] | Odoc_info.Link (s, t) -> node "a" ~atts: ["href", s] (self#t_of_text t) - | Odoc_info.Ref (name, ref_opt) -> self#t_of_Ref name ref_opt + | Odoc_info.Ref (name, ref_opt, _) -> self#t_of_Ref name ref_opt | Odoc_info.Superscript t -> node "sup" (self#t_of_text t) | Odoc_info.Subscript t -> node "sub" (self#t_of_text t) | Odoc_info.Module_list l -> Leaf "" (* self#json_of_Module_list l *)