Election counting now works, logging improved from Haskell version, still need to fix exhausted paper collection

1 files changed, 29 insertions, 0 deletions

diff --git a/src/candidates.adb b/src/candidates.adb
index 5d10ce1..40c038a 100644
--- a/src/candidates.adb
+++ b/src/candidates.adb
@@ -27,6 +27,35 @@ package body Candidates is
     end To_String;
 
 
+
+
+    function Candidate_Header
+           (Delimiter : in Character := ',')
+        return String is
+    begin
+        return "Group" & Delimiter &
+               "Group Rank" & Delimiter &
+               "First Name" & Delimiter &
+               "Last Name" & Delimiter &
+               "Party";
+    end Candidate_Header;
+
+
+
+
+    function Name_And_Party
+           (Input_Candidate : in Candidate)
+        return String
+    is
+        use type SU.Unbounded_String;
+    begin
+        return SU.To_String
+           (Input_Candidate.First_Name & " " &
+            Input_Candidate.Last_Name & ", " &
+            Input_Candidate.Party);
+    end Name_And_Party;
+
+
 end Candidates;