fix usage of xs.writev for writing platformdata

diff --git a/xenops/domain.ml b/xenops/domain.ml
index d3fb0a496d63ba0e71513ddfee73eef6c97725b7..f18a2ae94962bb0959bb9977da07206cb6de55bb 100644 (file)
--- a/xenops/domain.ml
+++ b/xenops/domain.ml
@@ -159,8 +159,7 @@ let make ~xc ~xs info uuid =
                ];
 
                xs.Xs.writev dom_path info.xsdata;
-               xs.Xs.writev dom_path (List.map (fun (k,v) ->
-                       ("platform/" ^ k, v)) info.platformdata);
+               xs.Xs.writev (dom_path ^ "/platform") info.platformdata;
 
                xs.Xs.write (dom_path ^ "/control/platform-feature-multiprocessor-suspend") "1";