From a08247c51431b8aa944da923308d0aae07e3f5ea Mon Sep 17 00:00:00 2001 From: mgrojo Date: Sun, 17 Sep 2023 20:10:06 +0200 Subject: [PATCH] Print UTF-8 string using `GNAT.IO` in `Report_Jekyll` Fixes #1456 --- src/alr/alr-commands-show.adb | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/src/alr/alr-commands-show.adb b/src/alr/alr-commands-show.adb index 4730cd8a3..01fc1827a 100644 --- a/src/alr/alr-commands-show.adb +++ b/src/alr/alr-commands-show.adb @@ -13,6 +13,8 @@ with Alire.Solver; with Alire.Utils.Tables; with Alire.Utils.TTY; +with GNAT.IO; + with Semantic_Versioning.Extended; package body Alr.Commands.Show is @@ -232,14 +234,14 @@ package body Alr.Commands.Show is then Cmd.Root.Release else Cmd.Find_Target_Release (Name, Versions, Current)); begin - Put_Line ("---"); - Put_Line ("layout: crate"); + GNAT.IO.Put_Line ("---"); + GNAT.IO.Put_Line ("layout: crate"); -- TODO: conditional expressions can't be exported yet, we report in -- the interim the ones that apply to the current system. - Put_Line (Rel.Whenever (Platform.Properties).To_YAML); - Put_Line ("---"); - Put_Line (Rel.Long_Description); - Put_Line (Rel.Notes); + GNAT.IO.Put_Line (Rel.Whenever (Platform.Properties).To_YAML); + GNAT.IO.Put_Line ("---"); + GNAT.IO.Put_Line (Rel.Long_Description); + GNAT.IO.Put_Line (Rel.Notes); end; exception when Alire.Query_Unsuccessful =>