From 5d17600ad375504bfb90f79d30ec91a16e2c49f4 Mon Sep 17 00:00:00 2001 From: Prashanth Mundkur Date: Mon, 4 May 2009 16:53:55 -0700 Subject: [PATCH] fix usage printing --- libs/json/parser_tests/test_parser.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libs/json/parser_tests/test_parser.ml b/libs/json/parser_tests/test_parser.ml index 1f620c5..8ab861e 100644 --- a/libs/json/parser_tests/test_parser.ml +++ b/libs/json/parser_tests/test_parser.ml @@ -22,7 +22,7 @@ let parse_args () = Arg.parse (Arg.align options) (fun f -> file := Some f) usage; match !file with | Some f -> f - | None -> Printf.eprintf "%s\n" usage; exit 1 + | None -> Arg.usage (Arg.align options) usage; exit 1 let read_whole_file ic = let buf = Buffer.create 512 in -- 2.39.5