X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=virt-df%2Fvirt_df_linux_swap.ml;h=04e22b93bd24254dbb9f2d2c72913e8308ca2bed;hp=463882870098f0786d0d666a09d45a884a74d8da;hb=e6cca10e5cf86b9bd280e371fb1195835a96bff0;hpb=f6cc606a9e87e7cf287ba3bcc8fbfb4063f0bdd7;ds=sidebyside

diff --git a/virt-df/virt_df_linux_swap.ml b/virt-df/virt_df_linux_swap.ml
old mode 100755
new mode 100644
index 4638828..04e22b9
--- a/virt-df/virt_df_linux_swap.ml
+++ b/virt-df/virt_df_linux_swap.ml
@@ -20,6 +20,8 @@
    Support for Linux swap partitions.
 *)
 
+open Virt_df_gettext.Gettext
+
 (* Int64 operators for convenience. *)
 let (+^) = Int64.add
 let (-^) = Int64.sub
@@ -28,7 +30,7 @@ let (/^) = Int64.div
 
 let probe_swap target part_type fd start size =
   Virt_df.Swap {
-    Virt_df.swap_name = "Linux swap";
+    Virt_df.swap_name = s_ "Linux swap";
     swap_block_size = 4096L;		(* XXX *)
     swap_blocks_total = size *^ 512L /^ 4096L;
   }