diff options
| -rw-r--r-- | src/Election.hs | 8 |
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 = |