From 348dc88775fac78f5c1afa30c4f00d6d14dff592 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 12 Feb 2017 23:07:52 +1100
Subject: Election counting now works, logging improved from Haskell version,
 still need to fix exhausted paper collection

---
 src/candidates.adb | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

(limited to 'src/candidates.adb')

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;
 
 
-- 
cgit