From: Prashanth Mundkur <prashanth.mundkur@citrix.com>
Date: Wed, 6 May 2009 22:02:21 +0000 (-0700)
Subject: fix type-inference
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=683163aaf22abfb75c162ff3c6205565ddb0a699;p=xenclient%2Ftoolstack.git

fix type-inference
---

diff --git a/gen/json_conv/codegen.ml b/gen/json_conv/codegen.ml
index c6ea682..e22725f 100644
--- a/gen/json_conv/codegen.ml
+++ b/gen/json_conv/codegen.ml
@@ -93,9 +93,9 @@ end
 
 let verbose = ref false
 
-let dbg =
+let dbg fmt =
 	let logger s = if !verbose then Printf.printf "%s" s in
-	Printf.ksprintf logger
+	Printf.ksprintf logger fmt
 
 module Pragma = struct
 	exception Missing_prefix of string * string