X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=template.ml;fp=template.ml;h=428ffe44be145ea139a9a55a53d9bc3d88f06334;hb=00c6b7f0a9371df0212dbe84abb1f95c162609a0;hp=29af2939d9d87cde54b208e40bf17d561074b651;hpb=0828c34208a46b7a2e1b03b7c93f907bf900c050;p=mclu.git

diff --git a/template.ml b/template.ml
index 29af293..428ffe4 100644
--- a/template.ml
+++ b/template.ml
@@ -78,6 +78,7 @@ type template_info = {
   minimum_size : int64 option;
   disk_bus : string option;
   network_model : string option;
+  has_xml_target : bool;
 }
 
 let probe ?(verbose = false) filename =
@@ -135,9 +136,12 @@ let probe ?(verbose = false) filename =
     | Some [answer] -> Some answer
     | _ -> None in
 
+  let has_xml_target = run_template ~verbose filename "xml" [] <> None in
+
   { base_image = base_image;
     minimum_memory = minimum_memory;
     recommended_memory = recommended_memory;
     minimum_size = minimum_size;
     disk_bus = disk_bus;
-    network_model = network_model }
+    network_model = network_model;
+    has_xml_target = has_xml_target }