From d30e118c766c07cf40c017a1e31a17c6903b0746 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Sun, 20 Jan 2019 20:31:40 +0100 Subject: [PATCH] Vmm_core.Name: use 'vm:' instead of 'name' as literal string to print --- src/vmm_core.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/vmm_core.ml b/src/vmm_core.ml index 76869c8..8a5ab59 100644 --- a/src/vmm_core.ml +++ b/src/vmm_core.ml @@ -111,7 +111,7 @@ module Name = struct match drop_super ~super ~sub with None -> false | Some _ -> true 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 module Policy = struct