| Some conn ->
let dominfos = D.get_domains_and_infos conn [D.ListActive] in
(* D.t is abstract so we cannot marshal it. *)
- List.map (
+ filter_map (
fun (dom, info) ->
- { dom_name = D.get_name dom; dom_info = info }
+ let name = D.get_name dom in
+ let name_len = String.length name in
+ if name_len > 8 && String.sub name 0 8 = "guestfs-" then
+ None
+ else
+ Some { dom_name = D.get_name dom; dom_info = info }
) dominfos
| None -> [] in
(node, dominfo)