From e9547849b87d078e476cdc10568559bf278dba7b Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 19 Jan 2017 22:50:37 +1100 Subject: Election functionality added, completely untested --- src/main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/main.hs') diff --git a/src/main.hs b/src/main.hs index 6e68489..7b08e64 100644 --- a/src/main.hs +++ b/src/main.hs @@ -166,10 +166,10 @@ main = do (aboveBallot, belowBallot) <- Cand.readCandidates candidateFile state counter <- Sen.createSenateCounter preferenceFile aboveBallot belowBallot Dir.createDirectory outputDir - election <- Elt.createElection outputDir counter + election <- Elt.createElection outputDir counter numToElect -- run the show - Elt.doCount election numToElect + Elt.doCount election -- cgit