Vmm_core.Name: use 'vm:' instead of 'name' as literal string to print

This commit is contained in:
Hannes Mehnert 2019-01-20 20:31:40 +01:00
parent f64583c74c
commit d30e118c76

View file

@ -111,7 +111,7 @@ module Name = struct
match drop_super ~super ~sub with None -> false | Some _ -> true match drop_super ~super ~sub with None -> false | Some _ -> true
let pp ppf ids = let pp ppf ids =
Fmt.(pf ppf "[name %a]" (list ~sep:(unit ".") string) ids) Fmt.(pf ppf "[vm: %a]" (list ~sep:(unit ".") string) ids)
end end
module Policy = struct module Policy = struct