diff options
Diffstat (limited to 'src/election.adb')
-rw-r--r-- | src/election.adb | 10 |
1 files changed, 6 insertions, 4 deletions
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)); |