Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Merge pull request #970 from jonludlam/CA-97270
CA-97270: Now fix unmarshalling of exceptions...
  • Loading branch information
Jon Ludlam committed Jan 16, 2013
2 parents d4b39de + 2bdcaba commit b50c370
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion ocaml/idl/ocaml_backend/gen_client.ml
Expand Up @@ -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
Expand Down

0 comments on commit b50c370

Please sign in to comment.