summaryrefslogtreecommitdiff
path: root/src/election.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/election.adb')
-rw-r--r--src/election.adb10
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));