[Pkg-libvirt-commits] [libguestfs] 13/17: ocaml tools: Translate a few messages which were not internationalized.

[Hilko Bengen]

This is an automated email from the git hooks/post-receive script.

bengen pushed a commit to annotated tag upstream/1.29.43
in repository libguestfs.

commit f2aa9261a877da151815bff1268641f5cc1b6c5e
Author: Richard W.M. Jones <rjones at redhat.com>
Date:   Fri May 15 19:10:28 2015 +0100

    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 3d39005..5ea69c0 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 5ead3ce..5bc1efa 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

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-libvirt/libguestfs.git