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/Counter.hs | |
| parent | b66e9234fa0162a1035138891d88ad85f00950f6 (diff) | |
Election functionality added, completely untested
Diffstat (limited to 'src/Counter.hs')
| -rw-r--r-- | src/Counter.hs | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/src/Counter.hs b/src/Counter.hs index 021ac45..317f96a 100644 --- a/src/Counter.hs +++ b/src/Counter.hs @@ -3,7 +3,9 @@ module Counter( SenateCounter, createSenateCounter, - doCount + doCount, + getBallot, + getTotal ) where @@ -74,3 +76,15 @@ doCount sen criteria = do else return 0 + + +getBallot :: SenateCounter -> Typ.BelowLineBallot +getBallot = ballotMap + + + + +getTotal :: SenateCounter -> Int +getTotal = numBallots + + |