From f2aa9261a877da151815bff1268641f5cc1b6c5e Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Fri, 15 May 2015 19:10:28 +0100
Subject: [PATCH] ocaml tools: Translate a few messages which were not
 internationalized.

---
 builder/builder.ml           | 2 +-
 sysprep/sysprep_operation.ml | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/builder/builder.ml b/builder/builder.ml
index 3d39005a7..5ea69c02b 100644
--- a/builder/builder.ml
+++ b/builder/builder.ml
@@ -97,7 +97,7 @@ let main () =
     | `Delete_cache ->                  (* --delete-cache *)
       (match cache with
       | Some cachedir ->
-        message "Deleting: %s" cachedir;
+        message (f_"Deleting: %s") cachedir;
         Cache.clean_cachedir cachedir;
         exit 0
       | None ->
diff --git a/sysprep/sysprep_operation.ml b/sysprep/sysprep_operation.ml
index 5ead3cea7..5bc1efab1 100644
--- a/sysprep/sysprep_operation.ml
+++ b/sysprep/sysprep_operation.ml
@@ -285,7 +285,7 @@ let perform_operations_on_filesystems ?operations g root
   List.iter (
     function
     | { name = name; perform_on_filesystems = Some fn } ->
-      message "Performing %S ..." name;
+      message (f_"Performing %S ...") name;
       fn g root side_effects
     | { perform_on_filesystems = None } -> ()
   ) ops
@@ -306,7 +306,7 @@ let perform_operations_on_devices ?operations g root
   List.iter (
     function
     | { name = name; perform_on_devices = Some fn } ->
-      message "Performing %S ..." name;
+      message (f_"Performing %S ...") name;
       fn g root side_effects
     | { perform_on_devices = None } -> ()
   ) ops