mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

ocaml tools: Translate a few messages which were not internationalized.

Browse Source
This commit is contained in:
Richard W.M. Jones
2015-05-15 19:10:28 +01:00
parent 59228c39b1
commit f2aa9261a8
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
builder/builder.ml
View File

@@ -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 ->

4
sysprep/sysprep_operation.ml
View File

@@ -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