reynir/albatross
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

vmmc: info of everything

Browse source
This commit is contained in:
Hannes Mehnert 2018-09-22 00:39:07 +02:00
parent 95cdd18f44
commit 0e975a2b32
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
app/vmmc.ml
View file

@ -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 =