git.annexia.org
/
virt-mem.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refactored, process table now loaded centrally.
[virt-mem.git]
/
uname
/
virt_uname.ml
diff --git
a/uname/virt_uname.ml
b/uname/virt_uname.ml
index
3d902ce
..
d90974d
100644
(file)
--- a/
uname/virt_uname.ml
+++ b/
uname/virt_uname.ml
@@
-23,7
+23,7
@@
open Virt_mem_gettext.Gettext
open Virt_mem_utils
open Virt_mem_types
open Virt_mem_utils
open Virt_mem_types
-let run debug
({ domname = domname }, _, utsname)
=
+let run debug
{ domname = domname } { utsname = utsname }
=
match utsname with
| Some u ->
printf "%s: %s %s %s %s %s %s\n"
match utsname with
| Some u ->
printf "%s: %s %s %s %s %s %s\n"
@@
-39,4
+39,4
@@
virt-uname prints the uname information such as OS version,
architecture and node name for virtual machines running under
libvirt."
architecture and node name for virtual machines running under
libvirt."
-let () = Virt_mem.register "uname" summary description ~run
+let () = Virt_mem.register "uname" summary description ~
needs_utsname:true ~
run