From 5b3307b32f88c391ef65b7683b4178229e3bae24 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 4 Nov 2017 11:04:16 +1100 Subject: Removed use of obsolescent ASCII and replaced with Ada.Characters.Latin_1 --- src/election.adb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/election.adb') diff --git a/src/election.adb b/src/election.adb index 797c117..fb869e7 100644 --- a/src/election.adb +++ b/src/election.adb @@ -2,6 +2,7 @@ with + Ada.Characters.Latin_1, Ada.Strings.Fixed, Ada.Strings.Unbounded, Ada.Text_IO, @@ -19,6 +20,7 @@ use type package body Election is + package Latin renames Ada.Characters.Latin_1; package SU renames Ada.Strings.Unbounded; @@ -109,7 +111,7 @@ package body Election is Bundle_Containers.Read_Bundles (Preference_File, Pref_Data); if Verbose then - Put_Line (Standard_Error, "Done." & ASCII.LF); + Put_Line (Standard_Error, "Done." & Latin.LF); Put_Line (Standard_Error, "Setting up election..."); end if; @@ -134,7 +136,7 @@ package body Election is Work_To_Do := True; if Verbose then - Put_Line (Standard_Error, "Done." & ASCII.LF); + Put_Line (Standard_Error, "Done." & Latin.LF); end if; end Setup; @@ -536,11 +538,11 @@ package body Election is Int_Image (Next_Log_Num) & " between candidates: "); for V in Valid_Response loop CurrentID := Entries.Reference (From_Vector.Element (V).Index).ID; - SU.Append (Log_Msg, ASCII.LF & Indent & + SU.Append (Log_Msg, Latin.LF & Indent & Candidates.Name_And_Party (Cand_Data (CurrentID))); end loop; CurrentID := Entries.Reference (From_Vector.Element (Result).Index).ID; - SU.Append (Log_Msg, ASCII.LF & Candidates.Name_And_Party (Cand_Data (CurrentID)) & + SU.Append (Log_Msg, Latin.LF & Candidates.Name_And_Party (Cand_Data (CurrentID)) & " was selected to be excluded."); Put_Line (Main_Log, SU.To_String (Log_Msg)); -- cgit