summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Election.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Election.hs b/src/Election.hs
index d7c8bee..e97eb69 100644
--- a/src/Election.hs
+++ b/src/Election.hs
@@ -30,6 +30,7 @@ data Election = Election
, getTotalPapers :: Int
, getQuota :: Int
, getNextLogNum :: Int
+ , getSeats :: Int
, getVacancies :: Int
, getTransferQueue :: [Transfer]
, getNextToElect :: Int
@@ -77,6 +78,7 @@ createElection outDir counter numToElect = do
, getTotalPapers = total
, getQuota = quota
, getNextLogNum = 1
+ , getSeats = numToElect
, getVacancies = numToElect
, getTransferQueue = []
, getNextToElect = 1
@@ -138,7 +140,8 @@ writeLog e = do
let logName = (getLogDir e) ++ "/" ++ (show (getNextLogNum e)) ++ ".csv"
header =
- [ "Vacancies"
+ [ "Seats"
+ , "Vacancies"
, "Total Papers"
, "Quota"
, "Candidate"
@@ -148,7 +151,8 @@ writeLog e = do
, "Changed"
, "Order Elected" ]
static =
- [ show (getVacancies e)
+ [ show (getSeats e)
+ , show (getVacancies e)
, show (getTotalPapers e)
, show (getQuota e)]
dynFunc c =