Permalink
Browse files

CA-97270: Now fix unmarshalling of exceptions...

Signed-off-by: Jon Ludlam <jonathan.ludlam@eu.citrix.com>
  • Loading branch information...
1 parent 75ce056 commit 2bdcaba5c48e5292cec04f08acaca179da928560 @jonludlam jonludlam committed Jan 16, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 ocaml/idl/ocaml_backend/gen_client.ml
@@ -184,7 +184,7 @@ let gen_module api : O.Module.t =
" return response.Rpc.contents";
" else match response.Rpc.contents with";
" | Rpc.Enum [ Rpc.String \"Fault\"; Rpc.String code ] -> failwith (\"INTERNAL ERROR: \"^code)";
- " | Rpc.Enum [ Rpc.String code; args ] -> return (server_failure code (API.string_set_of_rpc args))";
+ " | Rpc.Enum ((Rpc.String code) :: args) -> return (server_failure code (List.map Rpc.string_of_rpc args))";
" | rpc -> failwith (\"Client.rpc: \" ^ Rpc.to_string rpc)";
]
in

0 comments on commit 2bdcaba

Please sign in to comment.