Internationalize virt-df program.

[virt-top.git] / virt-df / virt_df_linux_swap.ml

diff --git a/virt-df/virt_df_linux_swap.ml b/virt-df/virt_df_linux_swap.ml
old mode 100755 (executable)
new mode 100644 (file)
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;
   }