X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=uname%2Fvirt_uname.ml;h=9f8b38ec5d827428e950215a760b38f33da938c2;hb=621ea5f434a2c00fde1c7f2022c455294709ebb4;hp=4b38d4cd792878da5c92c01d4deb64e6cf5404f1;hpb=f6bb3caa719a564615e7fd2f21a3ad5bca010a88;p=virt-mem.git

diff --git a/uname/virt_uname.ml b/uname/virt_uname.ml
index 4b38d4c..9f8b38e 100644
--- 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
 
-let run debug { domname = domname } { utsname = utsname } =
+let run debug { domname = domname; utsname = utsname } =
   match utsname with
   | Some u ->
       printf "%s: %s %s %s %s %s %s\n"