Updated PO files.

[virt-mem.git] / lib / virt_mem_capture.ml

diff --git a/lib/virt_mem_capture.ml b/lib/virt_mem_capture.ml
index 413af56..154f76d 100644 (file)
--- a/lib/virt_mem_capture.ml
+++ b/lib/virt_mem_capture.ml
@@ -65,11 +65,15 @@ let rec beforeksyms debug = function
          save_image image filename
       ) images
 
-and save_image (_, domname, arch, mmap) filename =
-  printf (f_"virt-mem capture: saving kernel image from %s to filename %s\n")
-    domname filename;
+and save_image (_, domname, arch, mem) filename =
+  assert false;
 
-  assert false
+  let chan = open_out filename in
+
+  close_out chan;
+
+  printf (f_"virt-mem capture: wrote kernel image from %s to filename %s\n")
+    domname filename
 
 let summary = s_"capture memory image for post-mortem analysis"
 let description = s_"Capture a memory image to a file for later post-mortem