From 8f2f6a5e2074a5da684f9f1a5f5e8f3c51a82b76 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 6 Feb 2017 13:34:23 +1100 Subject: More or less completed main procedure, fixed some bugs --- src/candidates.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/candidates.adb') diff --git a/src/candidates.adb b/src/candidates.adb index bb09a40..33d3901 100644 --- a/src/candidates.adb +++ b/src/candidates.adb @@ -31,8 +31,9 @@ package body Candidates is procedure Read_Candidates - (Filename, State : in String; - Candidate_List : out Candidate_Vector) + (Filename : in String; + State : in State_Name; + Candidate_List : out Candidate_Vector) is package My_CSV is new CSV; use Ada.Text_IO; @@ -53,7 +54,7 @@ package body Candidates is -- AEC Senate candidate data is arranged in csv format if Current_Record.Length = 25 and then Current_Record.Element (2) = "S" and then - Current_Record.Element (3) = State + Current_Record.Element (3) = State_Name'Image (State) then Current_Candidate := (First_Name => Current_Record.Element (8), -- cgit