summaryrefslogtreecommitdiff
path: root/src/election.adb
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2017-11-04 11:04:16 +1100
committerJed Barber <jjbarber@y7mail.com>2017-11-04 11:04:16 +1100
commit5b3307b32f88c391ef65b7683b4178229e3bae24 (patch)
treecfdaefed203e3b3a896230d5c41f50dee0ce809b /src/election.adb
parentd1d6ff0de6894b1066e3e09f67eb4a6de4d3753b (diff)
Removed use of obsolescent ASCII and replaced with Ada.Characters.Latin_1HEADmaster
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));