Permalink
Browse files

Allow the IDL to generate code for recursive datatypes

Signed-off-by: Jon Ludlam <jonathan.ludlam@eu.citrix.com>
  • Loading branch information...
1 parent ed36b9f commit 9b0abf42d086c3e18c42122e75a715a7a458a79a @jonludlam jonludlam committed Dec 18, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 rpc-light/p4_idl.ml
View
4 rpc-light/p4_idl.ml
@@ -336,8 +336,8 @@ struct
let _loc = Ast.loc_of_str_item si in
<:str_item<
$si$;
- value $MyRpcLight.Rpc_of.gen_one (lid,[],body)$;
- value $MyRpcLight.Of_rpc.gen_one (lid,[],body)$;
+ value rec $MyRpcLight.Rpc_of.gen_one (lid,[],body)$
+ and $MyRpcLight.Of_rpc.gen_one (lid,[],body)$;
>>;;
AstFilters.register_str_item_filter begin fun si ->

0 comments on commit 9b0abf4

Please sign in to comment.