Experimental automated 'follower' code.

[virt-mem.git] / ps / virt_ps.ml

diff --git a/ps/virt_ps.ml b/ps/virt_ps.ml
index fe538a9..340266a 100644 (file)
--- a/ps/virt_ps.ml
+++ b/ps/virt_ps.ml
@@ -23,6 +23,7 @@ open Virt_mem_gettext.Gettext
 open Virt_mem_utils
 open Virt_mem_types
 
+(*
 open Kernel_task_struct
 
 let run debug { domname = domname; mem = mem } { tasks = tasks } =
@@ -38,6 +39,9 @@ let run debug { domname = domname; mem = mem } { tasks = tasks } =
     fun task ->
       printf "%5Ld      %s\n" task.task_pid task.task_comm
   ) tasks
+*)
+
+let run debug _ _ = ()
 
 let summary = s_"list processes in virtual machine"
 let description = s_"\