From e00ef46e17a54e25ccf2daf36cf6548d38485eca Mon Sep 17 00:00:00 2001 From: Ian Campbell Date: Tue, 10 Jan 2012 16:19:09 +0000 Subject: ocaml: Correct ocaml type name for Aggregate types. No change to the generated code because this path isn't used yet. Signed-off-by: Ian Campbell Acked-by: Ian Jackson Committed-by: Ian Jackson --- tools/ocaml/libs/xl/genwrap.py | 2 ++ 1 file changed, 2 insertions(+) (limited to 'tools/ocaml') diff --git a/tools/ocaml/libs/xl/genwrap.py b/tools/ocaml/libs/xl/genwrap.py index 5f8639a0a7..2e65aec761 100644 --- a/tools/ocaml/libs/xl/genwrap.py +++ b/tools/ocaml/libs/xl/genwrap.py @@ -59,6 +59,8 @@ def ocaml_type_of(ty): if not typename: raise NotImplementedError("No typename for Builtin %s (%s)" % (ty.typename, type(ty))) return typename + elif isinstance(ty,libxltypes.Aggregate): + return ty.rawname.capitalize() + ".t" else: return ty.rawname -- cgit v1.2.3