Fix spacing.

diff --git a/gen/rpc/codegen.ml b/gen/rpc/codegen.ml
index fc7950a6f0159c0125872831729bbbe26da37fd6..531e22e59767dfa944296c47020797ac5da49f76 100644 (file)
--- a/gen/rpc/codegen.ml
+++ b/gen/rpc/codegen.ml
@@ -279,7 +279,7 @@ module Client = struct
 
        let gen_resp_handler ff modname c (rpc, resp) =
                fprintf ff "@,@[<v 8>let %s resp =@," (gen_resp_name resp);
-               fprintf ff "%s.%s (%s resp)@]" modname resp.response_handler
+               fprintf ff "%s.%s (%s resp)@]@," modname resp.response_handler
                        (Type_conv.of_json resp.response_value.param_type)
 
        let generate_resp_handlers ff modname c rpc_list =
@@ -328,7 +328,7 @@ module Client = struct
                fprintf ff "Jsonrpc.params = Json.Object (Array.of_list [ %s ])" args_str;
                (match rpc.rpc_response with
                 | None -> fprintf ff "@]@,}@]"
-                | Some resp -> fprintf ff "@]@,}, %s, %s@]" rpcvn (gen_resp_name resp)
+                | Some resp -> fprintf ff "@]@,}, %s, %s@]@," rpcvn (gen_resp_name resp)
                )
 end