fix type-inference

diff --git a/gen/json_conv/codegen.ml b/gen/json_conv/codegen.ml
index c6ea682542e79379e0f70312f14a4d5aa206d3c0..e22725fdbd3270552ae09a375d266544372d03a3 100644 (file)
--- 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