From: Vincent Hanquez <vincent.hanquez@eu.citrix.com>
Date: Tue, 9 Jun 2009 15:53:28 +0000 (+0100)
Subject: add a string to liststring allowance for getting params.
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=afd6f09e0087a751cfa93cd44a829337eb5059ef;p=xenclient%2Ftoolstack.git

add a string to liststring allowance for getting params.
---

diff --git a/xenvm/tasks.ml b/xenvm/tasks.ml
index 827f58b..1848332 100644
--- a/xenvm/tasks.ml
+++ b/xenvm/tasks.ml
@@ -113,4 +113,5 @@ let args_get_bool args name =
 let args_get_liststring args name =
 	match args_assoc name args with
 	| ValListString l -> l
+	| ValString s     -> [ s ]
 	| _               -> raise (Invalid_type_registered name)