[Libguestfs] [PATCH 2/2] builder: output translated notes also in --notes

[Pino Toscano]

---
 builder/builder.ml | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/builder/builder.ml b/builder/builder.ml
index 1800f2d..274edfe 100644
--- a/builder/builder.ml
+++ b/builder/builder.ml
@@ -215,11 +215,12 @@ let main () =
 
   (match mode with
   | `Notes ->                           (* --notes *)
-    (match entry with
-    | { Index_parser.notes = ("", notes) :: _ } ->
-      print_endline notes;
-    | { Index_parser.notes = _ :: _ }
-    | { Index_parser.notes = [] } ->
+    let notes =
+      Languages.find_notes (Languages.languages ()) entry.Index_parser.notes in
+    (match notes with
+    | notes :: _ ->
+      print_endline notes
+    | [] ->
       printf (f_"There are no notes for %s\n") arg
     );
     exit 0
-- 
1.8.3.1