diff options
Diffstat (limited to 'tools/ocamldep.ml')
-rw-r--r-- | tools/ocamldep.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tools/ocamldep.ml b/tools/ocamldep.ml index c595a61c08..cf095f3832 100644 --- a/tools/ocamldep.ml +++ b/tools/ocamldep.ml @@ -47,7 +47,10 @@ let rec add_type bv ty = | Ptyp_class(c, tl, _) -> add bv c; List.iter (add_type bv) tl | Ptyp_alias(t, s) -> add_type bv t | Ptyp_variant(fl, _, _) -> - List.iter (fun (_,_,stl) -> List.iter (add_type bv) stl) fl + List.iter + (function Rtag(_,_,stl) -> List.iter (add_type bv) stl + | Rinherit sty -> add_type bv sty) + fl and add_field_type bv ft = match ft.pfield_desc with |