From 027fefd517b8a93c54611a6cc4c51a54fea1b9fe Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Mon, 30 Apr 2012 11:33:19 +0100
Subject: Add gettext support for OCaml tools (virt-resize, virt-sparsify,
 virt-sysprep).

Note that this support is optional: To enable it, install the
ocaml-gettext library from
http://forge.ocamlcore.org/projects/ocaml-gettext .  If this library
is not installed, then configure detects this and inserts dummy
gettext functions that do nothing.
---
 sysprep/sysprep_operation_smolt_uuid.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'sysprep/sysprep_operation_smolt_uuid.ml')

diff --git a/sysprep/sysprep_operation_smolt_uuid.ml b/sysprep/sysprep_operation_smolt_uuid.ml
index 85e788ec..25f73725 100644
--- a/sysprep/sysprep_operation_smolt_uuid.ml
+++ b/sysprep/sysprep_operation_smolt_uuid.ml
@@ -17,6 +17,7 @@
  *)
 
 open Sysprep_operation
+open Sysprep_gettext.Gettext
 
 module G = Guestfs
 
@@ -37,7 +38,7 @@ let smolt_uuid_perform g root =
 let smolt_uuid_op = {
   name = "smolt-uuid";
   enabled_by_default = true;
-  heading = "Remove the Smolt hardware UUID";
+  heading = s_"Remove the Smolt hardware UUID";
   pod_description = None;
   extra_args = [];
   perform = smolt_uuid_perform;
-- 
cgit