From 683163aaf22abfb75c162ff3c6205565ddb0a699 Mon Sep 17 00:00:00 2001 From: Prashanth Mundkur Date: Wed, 6 May 2009 15:02:21 -0700 Subject: [PATCH] fix type-inference --- gen/json_conv/codegen.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.5