From 07073dafe2b6e3824b4607e9dc7f7bfcc307f5c0 Mon Sep 17 00:00:00 2001
From: Alejandro R Mosteo <amosteo@unizar.es>
Date: Fri, 21 Apr 2023 12:34:14 +0200
Subject: [PATCH] Fix Wide_Wide_String interpreted as String (#1370)

---
 src/alire/alire-index-search.adb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/alire/alire-index-search.adb b/src/alire/alire-index-search.adb
index 4db8e689..7e7fb85f 100644
--- a/src/alire/alire-index-search.adb
+++ b/src/alire/alire-index-search.adb
@@ -1,5 +1,6 @@
 with Ada.Containers.Indefinite_Ordered_Maps;
 with Ada.Containers.Ordered_Sets;
+with Ada.Strings.UTF_Encoding.Wide_Wide_Strings;
 
 with Alire.Conditional;
 with Alire.Utils.Tables;
@@ -82,7 +83,9 @@ package body Alire.Index.Search is
          end loop;
 
          return Result.Flatten
-           (if CLIC.TTY.Is_TTY then "»" else ",");
+           (if CLIC.TTY.Is_TTY
+            then Ada.Strings.UTF_Encoding.Wide_Wide_Strings.Encode ("»")
+            else ",");
       end Image;
 
       ---------
-- 
2.39.5