From 0e975a2b3220adfe163e5d431d8188cb1774e54e Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Sat, 22 Sep 2018 00:39:07 +0200
Subject: [PATCH] vmmc: info of everything

---
 app/vmmc.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/app/vmmc.ml b/app/vmmc.ml
index 3f6713b..c22527e 100644
--- a/app/vmmc.ml
+++ b/app/vmmc.ml
@@ -267,13 +267,17 @@ let destroy_cmd =
   Term.(ret (const destroy $ setup_log $ socket $ vm_name)),
   Term.info "destroy" ~doc ~man
 
+let opt_vmname =
+  let doc = "Name virtual machine." in
+  Arg.(value & opt vm_c [] & info [ "n" ; "name"] ~doc)
+
 let info_cmd =
   let doc = "information about VMs" in
   let man =
     [`S "DESCRIPTION";
      `P "Shows information about VMs."]
   in
-  Term.(ret (const info_ $ setup_log $ socket $ vm_name)),
+  Term.(ret (const info_ $ setup_log $ socket $ opt_vmname)),
   Term.info "info" ~doc ~man
 
 let cpu =