add a string to liststring allowance for getting params.

diff --git a/xenvm/tasks.ml b/xenvm/tasks.ml
index 827f58b74e9288fb96db698015f35feba4acfdf0..18483327a649910a2b84423af8a99d9306fe1d05 100644 (file)
--- 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)