diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-01-19 22:50:37 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-01-19 22:50:37 +1100 |
| commit | e9547849b87d078e476cdc10568559bf278dba7b (patch) | |
| tree | 6c56ec96fdb8404fa29576f1843b0e931144de61 /src/main.hs | |
| parent | b66e9234fa0162a1035138891d88ad85f00950f6 (diff) | |
Election functionality added, completely untested
Diffstat (limited to 'src/main.hs')
| -rw-r--r-- | src/main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |