From: Prashanth Mundkur <prashanth.mundkur@citrix.com>
Date: Wed, 3 Jun 2009 22:38:27 +0000 (-0700)
Subject: Fix spacing.
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=21e7eb8d7a3ff6d23c0a8de6e40ca9bc6e3eb6e4;p=xenclient%2Ftoolstack.git

Fix spacing.
---

diff --git a/gen/rpc/codegen.ml b/gen/rpc/codegen.ml
index fc7950a..531e22e 100644
--- 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