From: Prashanth Mundkur <prashanth.mundkur@citrix.com>
Date: Mon, 4 May 2009 23:53:55 +0000 (-0700)
Subject: fix usage printing
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=5d17600ad375504bfb90f79d30ec91a16e2c49f4;p=xenclient%2Ftoolstack.git

fix usage printing
---

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